如何在ggplot中的barplot上方附加折线图

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

ggplotggplot 中带有条形图和比率线

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 是正确的，因为该行没有任何信息，因为从填充中可以明显看出拆分。