R ggplot：基于x轴因子切换线型的折线图绘制问题

问题分析 #

你遇到的警告和虚线不显示问题，主要出在两个地方：

• 你把pta.target转成了因子类型，导致每个group2+toxic组合下的每个x值只有一个观测，geom_line找不到可以连线的相邻点，所以抛出"Each group consists of only one observation"的警告。
• 分开调用geom_line指定线型的方式，没有让ggplot正确识别同一个group2内的点需要连贯连线，反而把每个toxic子集单独分组，导致无法形成连续折线。

解决方案思路 #

1. 把x轴恢复为连续型：pta.target本质是MIC数值，用连续型更符合数据逻辑，也能让ggplot按数值顺序连接点。
2. 将线型映射到toxic变量：不用分开写两个geom_line，直接在全局aes里把linetype绑定到toxic，让ggplot自动根据toxic值切换线型。
3. 手动指定线型对应关系：用scale_linetype_manual明确指定nontoxic对应虚线，toxic对应实线，贴合你的需求。
4. 确保分组正确：group = group2放在全局aes里，保证同一个group2的点会被连在一起。

完整调整后的代码 #

# 加载所需包
library(ggplot2)
library(dplyr)

# 你的数据
pta.40 <- structure(list(pta.simnum = c(2L, 2L, 3L, 3L, 5L, 5L, 8L, 8L, 15L, 15L, 29L, 29L, 57L, 56L, 112L, 110L, 2L, 3L, 2L, 4L, 3L, 6L, 5L, 10L, 8L, 19L, 14L, 36L, 26L, 71L, 50L, 141L, 98L), dose = c(100, 100, 200, 200, 400, 400, 700, 700, 1400, 1400, 2800, 2800, 5600, 5500, 11100, 10900, 100, 200, 100, 300, 200, 500, 400, 900, 700, 1800, 1300, 3500, 2500, 7000, 4900, 14000, 9700), group1 = c("arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc", "arc", "nonarc"), group2 = c("ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei6", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8", "ei8"), pta.target = c(0.25, 0.25, 0.5, 0.5, 1, 1, 2, 2, 4, 4, 8, 8, 16, 16, 32, 32, 0.125, 0.25, 0.25, 0.5, 0.5, 1, 1, 2, 2, 4, 4, 8, 8, 16, 16, 32, 32), pta.prop.success = c(0.925, 0.935, 0.925, 0.935, 0.925, 0.935, 0.901, 0.904, 0.901, 0.904, 0.901, 0.904, 0.901, 0.902, 0.9, 0.9, 0.958, 0.958, 0.933, 0.92, 0.933, 0.909, 0.933, 0.901, 0.926, 0.901, 0.915, 0.9, 0.91, 0.9, 0.908, 0.9, 0.904), toxic = c("nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "toxic", "toxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "nontoxic", "toxic", "toxic")), row.names = c(NA, 33L), class = "data.frame")

# 绘制调整后的折线图
graph.pta <- ggplot(data = pta.40, aes(x = pta.target, y = dose, group = group2, color = group2, linetype = toxic)) + 
  geom_point(size = 2) +  # 放大点让显示更清晰
  geom_line(size = 1) +
  scale_linetype_manual(values = c("nontoxic" = "dashed", "toxic" = "solid")) +  # 指定线型对应关系
  facet_wrap(~group1) +
  labs(x = "MIC Value (pta.target)", y = "Dose") +  # 添加坐标轴标签
  theme_bw()  # 可选：使用简洁的主题

# 查看图形
graph.pta

效果说明 #

• 这个代码会消除之前的警告，因为x轴是连续型，同一个group2的点会按pta.target的数值顺序连贯连线。
• 当toxic从nontoxic切换到toxic时，线型会自动从虚线变成实线，完美匹配你的需求。
• 每个group1的分面里，ei6和ei8组会用不同颜色区分，同时线型直观对应无毒/有毒状态。

内容的提问来源于stack exchange，提问作者Quan Truong Anh