问题描述
所以我尝试用平滑的 lm 绘制时间序列的散点图。起初它有效,但在我将点转换为日期以获得正确的标签后,它不再显示 geom_smooth 或正确的标签。 (例如,标签是按日期的单个数值,而不是按我希望的年份。我希望标签是从 2018 年到 2021 年的每一年的日期。)
xnum = as.numeric(this.NCAR[,indx])
xval = as.Date(this.NCAR[,indx])
yval = as.numeric(this.NCAR[,indy])
status = this.NCAR$Status
xy = as.data.frame(cbind(xnum,xval,yval,status))
mod.s = lm(yval~xnum,data=NULL)
min.date = min(this.NCAR$`Date Reported`)
max.date = max(this.NCAR$`Date Reported`)
for (k in 1:4) {
years[k] = gsub(" ","",years[k])
}
xval = as.Date(xval,format="%Y-%m-%d")
yval = as.numeric(yval)
g.s = ggplot(data=xy,aes(x=xval,y=yval)) + geom_point() +
geom_smooth(data=xy,y=yval),method="lm") +
labs(title = paste("Plot of",subjects[s],"subject area NCARs"),x = "Date",y = "No. of Days Opened") +
scale_x_date(date_breaks = "1 year",date_labels = "%Y")
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)