如何在ggplot中将条形图附加到条形图上方

Question

我的数据框有age列，gender（男/女）。我想按年龄绘制分组条形图，并希望附加每个age的男女比例的线图。

test是数据框，其中age，gender为列

ratio_df是每个age

中男性与女性的新数据框架存储比率

ratio_df <- ddply(test, 'age', function(x) c('ratio' = sum(test$gender == 'Male') / sum(test$gender == 'Female'))) 

ggplot在ggplot

中有条形图和比率行

ggplot(data = test, aes(x = factor(age), fill = gender)) + geom_bar() + geom_line(data = ratio_df, aes(x = age, y = ratio))

Answer 1

如上所述，您的ddply调用似乎对我不利 - 我认为它总是产生相同的比率（在整个数据帧中）。我无法从头顶想出一个紧凑的优雅，所以我不得不求助于一个有点笨重的，但它确实有效。

编辑：我更改了代码以反映http://rwiki.sciviews.org/doku.php?id=tips:graphics-ggplot2:aligntwoplots描述的解决方法，以解决OP的评论。

#sample data
test=data.frame(gender=c("m","m","f","m","f","f","f"),age=c(1,3,4,4,3,4,4))

require(plyr)
age_N <- ddply(test, c("age","gender"), summarise, N=length(gender))

require(reshape2)
ratio_df <- dcast(age_N, age ~ gender, value.var="N", fill=0)
ratio_df$ratio <- ratio_df$m / (ratio_df$f+ratio_df$m)

#create variables for facetting
test$panel = rep("Distribution",length(test$gender))
ratio_df$panel = rep("Ratio",length(ratio_df$ratio))

test$panel <- factor(test$panel,levels=c("Ratio","Distribution"))

require(ggplot2)
g <- ggplot(data = test, aes(x = factor(age)))
g <- g + facet_wrap(~panel,scale="free",ncol=1)
g <- g + geom_line(data = ratio_df, aes(x = factor(age), y = ratio, group=1))
g <- g + geom_bar(aes(fill=gender))
print(g)

这是你在找什么？但是，我认为@SvenHohenstein是正确的，该行没有任何信息，因为分割在填充中很明显。