小编Pab*_*oAB的帖子

我想使用 ggplot2 添加阴影区域，连接每个条形的类别，如图所示

数据

library(ggplot2)
  
specie <- c(rep("sorgho" , 3) , rep("poacee" , 3) , rep("banana" , 3) , rep("triticum" , 3) )
condition <- rep(c("normal" , "stress" , "Nitrogen") , 4)
value <- abs(rnorm(12 , 0 , 15))
data <- data.frame(specie,condition,value)
  
ggplot(data, aes(fill=condition, y=value, x=specie)) + 
  geom_bar(position="fill", stat="identity", width = .5)

有谁知道\xe2\x80\x99s是否可以在ggplot2 538\xe2\x80\x99s中复制绘图中概述文本的功能？

在所附的例子中。是否可以将圆形白色轮廓添加到百分比中？

我想创建一个如下图所示的图表。它是一种使用 geom_area 和 geom_point 的组合。

假设我的数据如下所示：

library(gcookbook, janitor)\n\nggplot(uspopage, aes(x = Year, y = Thousands, fill = AgeGroup)) +\n    geom_area()\n

我得到下图

然后，我想添加确切的点数作为每个类别的总数，即：

library(dplyr)\nuspopage |> \n    group_by(AgeGroup) |> \n    summarize(total = sum(Thousands))\n\n# A tibble: 8 \xc3\x97 2\n  AgeGroup   total\n  <fct>      <int>\n1 <5       1534529\n2 5-14     2993842\n3 15-24    2836739\n4 25-34    2635986\n5 35-44    2331680\n6 45-54    1883088\n7 55-64    1417496\n8 >64      1588163\n

我正在尝试复制此图，特别是INDUSTRIAL的螺旋条形图。知道如何使用 ggplot2 来做到这一点吗？

提前致谢！