geom_bar中的标签只有x变量和填充因子

Question

我已根据以下代码创建了DF。

sex <- c("m","f","m","m","m","m","m","f","f","f")
age <- c(">10",">20",">30",">10",">20",">30",">10",">20",">30",">10") 
df1 <- data.frame(sex,age)
ggplot (df1, aes(sex, fill = factor(age))) + geom_bar()

我想单独标记年龄和性别组合的计数

  

性别=＆＃34; F＆＃34;和年龄=＆＃34;＆gt; 10＆＃34; = 1，性别=＆＃34; f＆＃34;和年龄=＆＃34;＆gt; 20＆＃34; = 2，性别=＆＃34; f＆＃34;和   年龄=＆＃34;＆gt; 30＆＃34; = 1，性别=＆＃34; m＆＃34;和年龄=＆＃34;＆gt; 10＆＃34; = 3，性别=＆＃34; m＆＃34;和年龄=＆＃34;＆gt; 20＆＃34;   = 1，性别=＆＃34; m＆＃34;和年龄=＆＃34;＆gt; 30＆＃34; = 2

Answer 1

我想你想要这样的东西：

ggplot(df1, aes(sex, fill = factor(age))) + geom_bar() + 
  geom_text(stat = "count", aes(y = ..count.., label = ..count..), position = "stack", vjust = 3)

Answer 2

不确定我是否理解你的问题，但你的意思是这样的：

df2 <- as.data.frame(table(df1))
df2$sex_age <- paste(df2$sex, df2$age, sep = "_")

ggplot(df2, aes(x = sex_age, y = Freq)) + geom_bar(stat = "identity")