ggplot2：将线型映射至因子并指定特定因子为实线

要实现你想要的效果——让"主类别"（比如示例中的"b"）用实线，其他类别自动分配不同线型，核心是用scale_linetype_manual()来手动控制线型与因子级别的映射关系，下面给你两种实用的方法：

方法一：手动指定所有类别线型（适合类别少的情况） #

如果你的类别数量不多，直接给每个因子级别指定对应的线型就很直观。比如你的示例里只有"a"和"b"两个类别，我们可以明确把"b"设为实线，"a"设为虚线：

library(ggplot2)
library(dplyr)

# 加set.seed让结果可复现
set.seed(123)
df <- data.frame(time=c(1:10,1:10), 
                 X=c(cumsum(rnorm(10)),cumsum(rnorm(10))), 
                 categ=c(rep("b",10),rep("a",10)))

df %>% 
  ggplot(aes(x=time,y=X)) + 
  geom_line(aes(linetype=categ)) +
  # 命名向量指定每个类别的线型
  scale_linetype_manual(values = c("a" = "dashed", "b" = "solid"))

这里的线型参数除了用字符串（"solid"、"dashed"、"dotted"等），也可以用数字代码：1代表实线，2虚线，3点线，4点虚线，5长虚线，6双虚线，效果是一样的。

方法二：自动分配非目标类别线型（适合类别多的情况） #

如果你的因子有很多级别，不想逐个手动指定，可以先提取所有类别，把目标类别设为实线，剩下的自动分配不同线型：

# 获取所有唯一的类别
all_categs <- unique(df$categ)
# 构建线型映射："b"用实线，其余按顺序分配不同线型
line_types <- setNames(
  # 给目标类别设为solid，其他从预设线型列表里取
  ifelse(all_categs == "b", "solid", c("dashed", "dotted", "dotdash", "longdash")[seq_along(all_categs[all_categs != "b"])]),
  all_categs
)

df %>% 
  ggplot(aes(x=time,y=X)) + 
  geom_line(aes(linetype=categ)) +
  scale_linetype_manual(values = line_types)

这种方式的好处是，就算后续数据里新增了其他类别，只要扩展预设的线型列表，就能自动给新类别分配不重复的线型，不用改太多代码。

补充说明 #

默认情况下，ggplot会按照因子级别的字母顺序分配线型（比如你的示例里"a"在前，默认会被分配实线），所以我们需要手动覆盖这个默认映射，才能让指定的类别（"b"）优先使用实线，满足打印友好的可视化需求。

内容的提问来源于stack exchange，提问作者VFreguglia