ggplot中aes内用ifelse结合geom_line出现反常结果的问题

想要绘制图表时，让“x opp”（高值）数据用实线，“x ned”（低值）数据用长虚线，但运行代码后线型和图例标签完全反向。

原因分析 #

ggplot2处理离散型linetype映射时，会自动将生成的线型值按字母顺序排序，再对应到默认的线型序列。由于longdash首字母在solid之前，它会被分配到默认的第一个线型（实线），solid则被分配到长虚线，最终导致显示结果与预期相反。

解决方法 #

方法1：手动指定线型映射（推荐） #

直接用原始分组变量grp_val做映射，再通过scale_linetype_manual()明确每个分组对应的线型，彻底规避默认排序的干扰：

library(ggplot2)
df <- data.frame(
    grp_val=c("x opp", "x opp", "x opp", "x ned", "x ned", "x ned"),
    x_val=c(1, 2, 3, 1, 2, 3),
    y_val=c(14, 16, 15, 5, 7, 6)
)
ggplot(df, aes(x_val, y_val)) +
  geom_line(aes(group=grp_val, linetype = grp_val)) +
  scale_linetype_manual(values = c("x opp" = "solid", "x ned" = "longdash"))

这种方式逻辑清晰，代码可读性更高，也方便后续调整样式。

方法2：指定因子水平顺序 #

如果坚持用ifelse生成线型值，可将结果转为因子并指定水平顺序，让solid排在前面：

ggplot(df, aes(x_val, y_val)) +
  geom_line(aes(group=grp_val, 
                linetype = factor(
                  ifelse(grepl("opp", grp_val), "solid", "longdash"),
                  levels = c("solid", "longdash")
                )))

额外提示 #

• 优先使用原始分组变量做美学映射，再通过scale_*_manual定义样式，能减少中间转换带来的错误。
• ggplot2的离散型美学（如linetype、color）都会默认按因子水平顺序分配样式，若需自定义，要么手动指定因子水平，要么用scale_*_manual明确映射关系。

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