调整ggplot2 Y轴刻度及分组折线图绘制问题求助

1. 规范数据整理（避免手动拼接错误） #

手动拼接数据容易引发类型或分组错误，用tidyr::pivot_longer将宽格式数据转为标准长格式，更稳妥高效：

library(tidyverse) # 加载ggplot2和tidyr工具包

growth <- data.frame(
  stringsAsFactors = FALSE,
  day = c("Day 0","Day 1","Day 2",
          "Day 3","Day 4","Day 5","Day 6","Day 7"),
  wild_type = c(6, 9.8, 69.53, 84.67, 99.33, 145.33, 147.33, 121.8),
  t7_cas9 = c(6, 8.57, 68.83, 85.5, 98.25, 144.67, 137.5, 120.5),
  ip6k = c(6, 6.5, 49.67, 56, 70.5, 127.5, 123.67, 111.33)
)

# 转换为长格式并调整分组名称、日期顺序
data_ggp <- growth %>%
  pivot_longer(cols = -day, names_to = "group", values_to = "y") %>%
  mutate(
    group = case_when(
      group == "wild_type" ~ "Wild_Type",
      group == "t7_cas9" ~ "T7_Cas9",
      group == "ip6k" ~ "IP6K-+"
    ),
    # 将日期转为有序因子，确保X轴按时间顺序排列
    day = factor(day, levels = paste0("Day ", 0:7), ordered = TRUE)
  )

2. 绘制合并折线图（修复乱连+连续Y轴） #

原代码中group=1会强制所有数据点归为一组，导致折线跨组错误连接。移除该参数后，ggplot会自动按color=group分组，生成独立折线：

ggp <- ggplot(data_ggp, aes(x = day, y = y, color = group)) +
  geom_line(linewidth = 1) + # 可选：调整线宽让图更清晰
  scale_y_continuous(limits = c(6, NA)) + # Y轴从Day0的初始值6开始
  labs(x = "Day", y = "种群均值", color = "分组") + # 添加轴标签和图例标题
  theme_bw() # 可选：使用简洁的白底主题
ggp

3. 绘制分面独立折线图（每组单独展示） #

分面后隐藏重复图例，同时保持Y轴从6开始的连续刻度：

p1 <- ggplot(data_ggp, aes(x = day, y = y, color = group)) +
  geom_line(linewidth = 1) +
  scale_y_continuous(limits = c(6, NA)) +
  facet_grid(group ~ .) + # 按组纵向分面
  labs(x = "Day", y = "种群均值") +
  theme_bw() +
  theme(legend.position = "none") # 分面后无需重复显示图例
p1

核心问题说明 #

• 折线乱连：group=1会将所有点视为同一组，移除该参数后，ggplot会自动根据颜色分组生成独立折线。
• Y轴非连续：手动拼接数据可能导致数值类型异常，用pivot_longer转换可确保y列为数值型，ggplot默认映射为连续轴。
• Y轴起始值设置：通过scale_y_continuous(limits = c(6, NA))强制Y轴下限为Day0的初始值6，上限自动适配数据最大值。
• X轴顺序：将日期转为有序因子，避免ggplot按字符顺序排序（当前数据默认顺序正确，但转因子更稳妥）。

内容的提问来源于stack exchange，提问作者Bryan Etindi Abuchery