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

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() 

我要单独标注的年龄和性别

性别= “F” 和年龄= “> 10”= 1，性别=“F组合的数“和年龄=”> 20“= 2，性别=”f“和年龄=”30“= 1，性别=”m“和年龄=”> 10“= 3，性别=”m“ “> 20” = 1，性别=“m”和年龄=“> 30”= 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")