R语言无法在单图绘制多条数据系列折线的问题排查

核心问题原因 #

• 绘制第二条、第三条折线时，lines()函数误用了原始数值（y2、y3），而非和points()一致的取对数后的值（log(y2)、log(y3)）。原始数值的量级远大于log(y1)对应的y轴范围，导致这些折线被绘制在可视区域之外，无法显示。
• 图例的坐标设置错误：x=1不在x轴（2016-2021）的范围内，图例可能被画出图表。

修正后的代码 #

# 提取数据（假设数据框已加载）
x <- gross.year.df$Reporting.Year
y1 <- gross.year.df$Gross.Revenue
y2 <- net.year.df$Net.Revenue
y3 <- royalty.year.df$Royalty.Payable

# 计算所有y值的对数，用于确定统一的y轴范围
log_y1 <- log(y1)
log_y2 <- log(y2)
log_y3 <- log(y3)

# 绘制第一个系列，同时设置y轴范围包含所有对数后的数据
plot(x, log_y1, type="o", col="red", pch="o", xlab="Year", ylab="ln($)", lty=1,
     ylim = range(c(log_y1, log_y2, log_y3)))

# 添加第二个系列：points和lines都使用log(y2)
points(x, log_y2, col="yellow", pch="*")
lines(x, log_y2, col="yellow", lty=2)

# 添加第三个系列：points和lines都使用log(y3)
points(x, log_y3, col="green", pch="+")
lines(x, log_y3, col="green", lty=3)

# 使用关键词设置图例位置，避免坐标错误
legend("topleft", legend=c("Gross Revenue","Net Revenue","Royalty Payable"), 
       col=c("red","yellow","green"), pch=c("o","*","+"), lty=c(1,2,3), ncol=1)

关键修改点说明 #

1. 统一对数处理：对所有y系列都提前计算对数，并确保points()和lines()使用相同的对数后数值，保证数据落在同一y轴范围内。
2. 显式设置y轴范围：通过ylim = range(c(log_y1, log_y2, log_y3))让y轴自动适配所有三条数据的对数后取值，避免部分数据被截断。
3. 修正图例位置：使用"topleft"关键词代替固定坐标，确保图例显示在图表的左上角可视区域内。

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