r - 使用 `geom_line()`，X 轴为因子

Question

假设我有一个数据框:

hist <- data.frame(date=Sys.Date() + 0:13,
                   counts=1:14)

我想绘制工作日的总计数，使用线连接点。以下内容为每个值添加点:

hist <- transform(hist, weekday=factor(weekdays(date),
                                       levels=c('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday')))
ggplot(hist, aes(x=weekday, y=counts)) + geom_point(stat='summary', fun.y=sum)

当我尝试用一​​条线(geom_line())连接它们时，ggplot 提示每组只有一个数据观察，因此无法在点之间绘制一条线。

我理解这一点 - 它试图为每个工作日(因子水平)画一条线。

如何让 ggplot 假装(仅出于该行的目的)工作日是数字？也许我必须有另一列day_of_week，0 表示星期一，1 表示星期二，等等？

Answer 1

如果我正确理解了这个问题，指定 group=1 并添加 stat_summary() 层应该可以解决问题:

ggplot(hist, aes(x=weekday, y=counts, group=1)) +
geom_point(stat='summary', fun.y=sum) +
stat_summary(fun.y=sum, geom="line")