如何在ggplot2中设置坐标轴起始值为1并绘制多列折线图？

解决方案 #

直接修改scale_x_continuous和scale_y_continuous的参数，强制轴的起始值为1，同时保留原有的多折线绘制逻辑：

library(ggplot2)
library(reshape2)

# 数据处理（保留你的原有代码）
mynewframe <- merge_recurse(file.list,all.x=TRUE, all.y=TRUE, by="ElNumber") 
mynewframe[is.na(mynewframe)] <- 0
sortedDF <- mynewframe[order(mynewframe$ElNumber), ]
sortedDF.melted <- melt(sortedDF, id.vars = "ElNumber")

# 绘制折线图并设置轴范围
p_lines <- ggplot(sortedDF.melted, aes(as.numeric(ElNumber), value, col = variable)) + 
  geom_line() +
  # 设置X轴：起始值1，刻度间隔100，自动匹配数据最大值
  scale_x_continuous(
    breaks = seq(1, max(sortedDF.melted$ElNumber), by = 100),
    limits = c(1, NA)
  ) +
  # 设置Y轴：起始值1，自动匹配数据最大值（如需固定上限可替换NA为12000）
  scale_y_continuous(
    limits = c(1, NA)
    # 可选：如果有Y值小于1，用squish将其压缩到1的位置，避免数据被剔除
    # oob = scales::squish
  )

print(p_lines)

关键说明 #

• X轴设置：limits = c(1, NA)强制轴的起始点为1，NA让ggplot自动沿用数据中的X最大值，无需手动计算；同时调整刻度序列从1开始生成，保证刻度与轴起始值对齐。
• Y轴设置：同样用limits = c(1, NA)将Y轴起始值设为1，若你的目标图Y轴上限固定为12000，直接把NA替换为12000即可。
• 多折线保留：你之前用melt将宽格式数据转为长格式的操作是正确的，aes(col = variable)会自动为6列数据分配不同颜色的折线，无需额外修改。

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