如何在ggplot2 geom_bar中将因子的频率除以固定值？

Question

我想将geom_bar中所有条形的值除以一个固定值，以显示每周的平均值

我有一个考勤记录列表，每个记录都显示日期，工作日和错误名称。我想制作一张图表，显示每个工作日的平均缺勤次数和拖延时间。

我要复制的数据的简化版本：

df <- data.frame(

date = c(2019-01-01,2019-01-01,2019-01-01,2019-01-02,2019-01-02,2019-01-02,2019-01-08,2019-01-09),

weekday = c("Monday","Monday","Monday","Tuesday","Tuesday","Tuesday","Monday","Tuesday"),

name = c("absent","absent","tardy","absent","tardy","tardy","absent","absent")
)

绘制我所拥有的：

ggplot(df,aes(weekday)) + geom_bar(aes(fill = name))

这将显示一个图表，显示星期一和星期二的缺勤总数和迟到总数。 我想做的是将总数除以2（星期数），以显示每个工作日缺勤和拖延的平均次数。

Answer 1

使用labels的{​​{1}}参数可以更改轴值而无需更改数据

scale_y_continuous