如何用R在同一图表中绘制月度数据折线与年度每日数据散点？

你遇到的报错原因很清晰：geom_point(data=SampleData$data)这行代码里，你传入的SampleData$data是一个单独的数值向量，而ggplot2要求data参数必须接收完整的数据框，同时你还需要明确指定散点的x和y轴映射关系。

修正后的完整代码 #

library(ggplot2)
library(reshape2) # 别忘了加载melt需要的包

# 生成月度数据
df <- data.frame(Month= seq(as.Date("2004/1/1"), by='month', length.out=12), 
                 data = (seq(1:12)), 
                 data2 = ((12:1)))
# 融合数据
samplemelt <- melt(df, id.vars='Month', variable.name ='Methods')
# 生成每日数据
SampleData <- data.frame(day=seq(as.Date("2004/1/1"), by='day', length.out=365), 
                         data=rnorm(n=365,mean=6,sd=2))

# 绘制图表：叠加折线和散点
ggplot(samplemelt, aes(Month, value))+ 
  geom_line(aes(colour=Methods), size=1) +
  # 关键修正：传入完整数据框，指定x和y的映射
  geom_point(data=SampleData, aes(x=day, y=data), color="gray50", alpha=0.6)

关键说明 #

• 给geom_point()传入完整的SampleData数据框，而不是单独的列
• 在geom_point()的aes()里明确指定x轴为day（你的每日数据日期列），y轴为data（每日数据的数值列）
• 额外添加了color="gray50"和alpha=0.6，让散点不会遮盖折线，视觉效果更清晰

这样运行后，就能在月度折线图上成功叠加年度每日数据的散点了。

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