几何平滑不适用于 R 中时间序列的日期标签

如何解决几何平滑不适用于 R 中时间序列的日期标签

所以我尝试用平滑的 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")