我想重现情节:如何绘制按月份和日期平均的数据?
从link
我几乎能做到这一点,但我错过了什么:
library(lubridate)
library(ggplot2)
# get the data
dates <- seq(as.Date("2012-01-01"), as.Date("2014-12-30"), by = 1)
series <- seq(from = 1, to = 1095, by = 1)
df<-data.frame(dates,series)
# for aggregation
df$month<-as.numeric(format(df$date, "%m"))
df$week<-week(as.POSIXct(df$date))
df$weekday<-weekdays(as.POSIXct(df$date))
df$days<-as.numeric(format(df$date, "%d"))
df$week_days<-as.numeric(format(df$date, "%w"))
# for plotting
for_plot=aggregate(series ~ + weekday+ month, data =df, FUN=mean)
ggplot(for_plot, aes(x=weekday, y=series)) + geom_line(aes(group=month, color=month),size=2,alpha=0.5)
plo如果你想精确地复制它,你应该从'plot()'函数开始,也许使用'lines()'和'points()'的组合。否则,你试图复制的论文中的情节的哪些方面? –