R 在ggplot中添加文本-ggplot中每个绘图右上角的点数

是否可以在R中的每个绘图内添加点数（如右上角的文本）

谢谢

library(tidyverse)

a <- rnorm(100, mean = 0, sd = 1)
b <- rnorm(100, mean = 0, sd = 1)

p <- tibble(a, b) %>%
  pivot_longer(cols = everything(), names_to = "category", values_to = "values") %>%
  ggplot() + 
  geom_histogram(aes(x = values),
                 bins = 20,
                 color = "black",
                 fill = "blue", 
                 alpha = 0.7) + 
  theme_bw() + 
  facet_grid(category ~ .)

ggsave("sample.png", p)

库（tidyverse）
a试试这个：

library(tidyverse)
#Data
a <- rnorm(100, mean = 0, sd = 1)
b <- rnorm(100, mean = 0, sd = 1)
#Plot
tibble(a, b) %>%
  pivot_longer(cols = everything(), names_to = "category", values_to = "values") %>%
  ggplot() + 
  geom_histogram(aes(x = values),
                 bins = 20,
                 color = "black",
                 fill = "blue", 
                 alpha = 0.7) + 
  theme_bw() + 
  geom_text(data=tibble(a, b) %>%
              pivot_longer(cols = everything(),
                           names_to = "category",
                           values_to = "values") %>%
              group_by(category) %>% summarise(N=n()),
            aes(x=0,y=20,label=N))+
  facet_grid(category ~ .)

库（tidyverse）
#资料
a%
ggplot（）+
geom_直方图（aes（x=值），
垃圾箱=20，
color=“黑色”，
fill=“蓝色”，
α=0.7）+
主题_bw（）+
几何图形文本（数据=TIBLE（a，b）%>%
pivot_更长（cols=everything（），
名称_to=“类别”，
值\u to=“values”）%>%
按（类别）分组%>%总结（N=N（）），
aes（x=0，y=20，标签=N））+
平面网格（类别~）

输出：

您可以使用
geom\u text
。请查收