ggplot2 - 如何汇总和标记每个 x 轴“日期”的“已确认”病例总数

Question

我想为每个“日期”标记“已确认”案例列的总和

ggplot(filter(COVID1, COUNTY %in% c("Kent")))+
geom_col(aes(x = Date, y = Cases, fill = CASE_STATUS), position = position_stack(reverse = TRUE), width = .88)+

dp(COUNTY Date CASE_STATUS Cases Deaths Cases.Cumulative Deaths.Cumulative Updated 1 Kent 2020-03-01 Confirmed 1 0 1 0 2020/07/06 12:46:31

使用这段代码，我得到了这个结果，这是预期值的一半。

geom_text(aes(x = Date, y = Cases, label = stat(y), group = Date), stat = 'summary')+

 filter(COVID1, COUNTY %in% c("Kent"))

县 日期 CASE_STATUS 病例 死亡 病例.累积死亡人数.累积更新 1 Kent 2020-03-01 确认 1 0 1 0 2020/07/06 12:46:31 2 Kent 2020-03-02 确认 1 0 2 0 2020/07/ 06 12:46:31 3 肯特 2020-03-03 确认 0 0 2 0 2020/07/06 12:46:31 4 肯特 2020-03-04 确认 3 0 5 0 2020/07/06 12:46:31 5 肯特 2020-03-05 已确认 0 0 5 0 2020/07/06 12:46:31 6 肯特 2020-03-06 已确认 1 0 6 0 2020/07/06 12:46:31 7 肯特 2020-03- 07 确认 2 0 8 0 2020/07/06 12:46:31 8 肯特 2020-03-08 已确认 1 0 9 0 2020/07/06 12:46:31 9 肯特 2020-03-09 已确认 2 0 11 0 2020/07/06 12:46:31

Answer 1

这就是我尝试过的，这不是我想要的，但很接近。

geom_text(aes(x = Date, y = Cases, label = stat(2*y), group = Date), stat = 'summary', postion = position_dodge(.9), vjust = .4, angle = 90, color = "white")+