geom_bar 中的标签只有 x 变量和填充因子
Labels in geom_bar having only x variable and fill factor
我已经根据以下代码创建了一个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()
我想单独标注年龄和性别组合的计数
sex="f" and age = ">10" = 1, sex="f" and age = ">20" = 2, sex="f" and
age = ">30" = 1, sex="m" and age = ">10" = 3, sex="m" and age = ">20"
= 1, sex="m" and age = ">30" = 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")
我想你想要这样的东西:
ggplot(df1, aes(sex, fill = factor(age))) + geom_bar() +
geom_text(stat = "count", aes(y = ..count.., label = ..count..), position = "stack", vjust = 3)
我已经根据以下代码创建了一个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()
我想单独标注年龄和性别组合的计数
sex="f" and age = ">10" = 1, sex="f" and age = ">20" = 2, sex="f" and age = ">30" = 1, sex="m" and age = ">10" = 3, sex="m" and age = ">20" = 1, sex="m" and age = ">30" = 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")
我想你想要这样的东西:
ggplot(df1, aes(sex, fill = factor(age))) + geom_bar() +
geom_text(stat = "count", aes(y = ..count.., label = ..count..), position = "stack", vjust = 3)