ggplot绘制15条折线图：线型仅支持13条的问题解决求助

ggplot2默认的离散线型比例尺仅包含13种独特线型，当分类数量超过13时，超出的类别无法获取唯一线型，导致显示异常。以下是几种可行的解决办法：

1. 自定义足够数量的独特线型 #

通过手动定义包含15种不同线型的向量，使用scale_linetype_manual()指定给每个类别。ggplot2支持多种线型表示方式：预定义字符串（如solid、dashed）、数字（0-8），以及自定义破折号模式（如"11"、"22"，格式为[线长][空白长]）。

修正数据+完整代码 #

首先修正原始数据中years列的格式错误（原代码中years是list列，无法正确映射到x轴）：

states_list <- c('Alabama', 'Alaska', 'Arkansas', 'California', 'Colorado', 'Delaware', 'Florida', 'New Mexico', 'New York', 'Oregon', 'Hawaii', 'Idaho', 'Utah', 'Washington', 'Vermont')

# 生成正确的长格式数据
states_df <- data.frame(
  states = rep(states_list, each = 8),
  years = rep(2014:2021, times = 15),
  value = rnorm(120)
)

# 定义15种独特线型
custom_linetypes <- c(
  "solid", "dashed", "dotted", "dotdash", "longdash", "twodash",
  "11", "12", "13", "21", "22", "23", "31", "32", "33"
)

# 绘制折线图
statesplot <- ggplot(states_df, aes(x = years, y = value, group = states, colour = states, linetype = states)) +
  geom_line(linewidth = 1) + # 适当加宽线条提升辨识度
  scale_linetype_manual(values = custom_linetypes) +
  theme(legend.position = "right") # 调整图例位置避免重叠

statesplot

2. 结合颜色与线型双重区分 #

如果觉得自定义过多线型不易区分，可以保留部分重复线型，同时依靠颜色差异辅助区分。这种方式无需额外定义大量线型，适合对辨识度要求稍低的场景：

statesplot <- ggplot(states_df, aes(x = years, y = value, group = states, colour = states, linetype = states)) +
  geom_line(linewidth = 1) +
  scale_linetype_discrete(limits = states_list) # 强制为所有类别分配线型（超出13个会重复）

3. 分面展示提升可读性 #

当折线数量过多时，分面是更高效的解决方案。将15个州分组到不同子图中，每个子图的折线数量减少，可读性大幅提升：

# 按州名首字母分组
states_df$facet_group <- case_when(
  substr(states_df$states, 1, 1) %in% c("A", "C", "D") ~ "A-C-D",
  substr(states_df$states, 1, 1) %in% c("F", "H", "I", "N") ~ "F-H-I-N",
  TRUE ~ "O-U-V-W"
)

statesplot <- ggplot(states_df, aes(x = years, y = value, group = states, colour = states, linetype = states)) +
  geom_line(linewidth = 1) +
  facet_wrap(~facet_group, ncol = 1) + # 按列排列分面
  theme(legend.position = "bottom")

statesplot

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