将样本大小添加到 R 中的 ggplot2 条形图

Question

我正在尝试在 R 中使用 ggplot2 生成条形图。到目前为止，图表制作完美，但当我尝试添加样本大小时，它不起作用。这是我的代码：

library(ggplot2)
library(ggthemes)
library(dplyr)
library(ggsignif)
Demo1 <- demo.csv("demo.csv", header = T, sep = ",")
Demo1
mean <- aggregate(A ~ B, Demo1, mean)
sd <- aggregate(A ~ B, Demo1, sd)
samplesize <- Demo1 %>% group_by(B) %>% summarise(count = n())

X <- ggplot(Demo1, aes(y = B, x = A))
X <- X + stat_summary(fun = "mean", 
                  geom = "bar") 
X <- X + stat_summary(fun = "mean", 
                  geom = "errorbar",
                  fun.min = function(x)mean(x)-sd(x), 
                  fun.max = function(x)mean(x) + sd(x), 
                  width = 0.1,
                  size = 0.5)
X <- X + theme_classic()

然后，尝试通过以下代码粘贴我一开始计算的samplesize。

X <- X + geom_text(aes(x = A, y = B, label = samplesize))

有什么好的方法吗？

提前致谢。

Answer 1

你在找吗？

library(dplyr)
library(ggplot2)

mtcars %>%
  count(cyl) %>%
  ggplot() + aes(cyl, n, label = n) + 
  geom_col() + geom_text(vjust = -0.5)

对于你的数据你可以尝试添加-

X + geom_text(data = samplesize, aes(label = count), vjust = -5.5, hjust = -0.5)

根据您的选择调整 hjust 和 vjust 值。

将样本大小添加到 R 中的 ggplot2 条形图

Add sample size to ggplot2 bar plot in R

r

bar-chart

ggplot2