Ярлыки в 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() 

Я хочу индивидуально маркировать отсчеты комбинации возраста и пола

секс = "е" и возраст = "> 10" = 1, секс = "ф "и age ="> 20 "= 2, sex =" f "и age ="> 30 "= 1, sex =" m "и age ="> 10 "= 3, sex =" m "и age = "> 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")