Метки в geom_bar, имеющие только переменную x и коэффициент заполнения

Я создал 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, пол = "ж" и возраст = "> 20" = 2, пол = "ж" и возраст = "> 30" = 1, пол = "м" и возраст = "> 10" = 3, пол = "м" и возраст = "> 20" = 1, пол = "м" и возраст = "> 30" = 2


r ggplot2 geom-bar
person Aditya Devarajan    schedule 22.07.2016    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Я думаю, вы хотите что-то вроде этого:

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

введите здесь описание изображения

person mpalanco    schedule 22.07.2016

arrow_upward
0
arrow_downward

Не уверен, правильно ли я понял ваш вопрос, но вы имеете в виду что-то вроде этого:

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")
person Shirin Elsinghorst    schedule 22.07.2016