Labels in geom_bar mit nur x Variable und Füllfaktor

Question

Ich habe einen DF basierend auf dem folgenden Code erstellt.

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

Ich möchte individuell

sex = "f" und Alter = "> 10" = 1, sex = "f die Zählungen der Kombination von Alter und Geschlecht beschriften "und Alter ="> 20 "= 2, Geschlecht =" f "und Alter ="> 30 "= 1, Geschlecht =" m "und Alter ="> 10 "= 3, Geschlecht =" m "und Alter = "> 20" = 1, Geschlecht = "m" und Alter = "> 30" = 2

Answer 1

Ich glaube, Sie wollen etwas wie folgt aus:

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

Answer 2

nicht sicher, ob ich Ihre Frage richtig verstanden habe, aber meinst du so etwas wie dieses:

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