需要帮助绘制ggplot

Question

我有2列-一列带有数字（部分），另一列表示good中的bad或r。 这是示例数据

df <- data.frame(G_or_B = c("Good", "Good", "Bad", "Good", "Good", "Bad", "Good", "Good"), Section = c(1,1,1,1, 2,2, 3,3) )

我需要一个ggplot（条形图），该条形图针对每个部分说明在r中有多少good和多少bad，并在条形图中显示商品的数量。我是r的新手，但能很好地理解已有的代码。

我有ggplot的代码，可以绘制条形图，但无法显示数字。当我尝试下面的代码时，我看到的栏是“好”或“坏”，而不是计数，

ggplot(df, aes(x = Section, fill = G_or_B) )+ 
geom_bar(stat = "identity") +
geom_text(size = 3, position = position_stack(vjust = 0.5))

理想情况下，最终结果将具有该ggplot以及在条上显示的商品和不良商品的数量

Plot after trying above code

Answer 1

如果您先计算数据，尝试的方法将起作用：

library(dplyr)
df_count = count(df, G_or_B, Section)
ggplot(df_count, aes(x = Section, y = n, fill = G_or_B) )+ 
  geom_col() +
  geom_text(aes(label = n), size = 3, position = position_stack(vjust = 0.5))