r语言 - 如何将因子的频率除以 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 参数更改轴值scale_y_continuous

ggplot(df,aes(weekday)) + 
  geom_bar(aes(fill = name)) + 
  scale_y_continuous(labels = function(x) x/2)