ggplot2中的y轴之和

如何解决ggplot2中的y轴之和

我有一个简单的data.frame：

exdataframe <- data.frame(
  date = c("2020-10-18","2020-10-20","2020-10-21","2020-10-31","2020-10-29","2020-11-01","2020-11-02"),Salesman = c("Bob","Mark","Rob","Richard","Richard"),values = c(10,50,30,100,120,90,20)
)
exdataframe$date <- as.Date(exdataframe$date) # transform to Date class

所以我绘图：

ggplot(exdataframe,aes(x = cut(date,breaks = "month"),y = values,fill=Salesman)) + 
  geom_bar(stat = "identity",position=position_dodge()) +
  geom_text(aes(label=values),position=position_dodge(width=0.9),vjust=-0.25) + 
  xlab("Month")

我的问题是如何按Salesman列和按月以及按Salesman分组求和所有Y轴值？

解决方法

我们可以按sum

进行分组

library(dplyr)
library(lubridate)
library(ggplot2)
library(zoo)
exdataframe %>%
    group_by(month = as.yearmon(date),Salesman) %>%
    summarise(values = sum(values),.groups = 'drop') %>%
    ggplot(aes(x = month,y = values,fill = Salesman,group = Salesman)) + 
     geom_bar(stat = 'identity',position = position_dodge())

-输出