小编ale*_*r_m的帖子

有人可以帮我添加第二轴的百分比吗？我尝试了不同的方法，但未能得到任何结果。

我将提供以下数据：

year <- c("2010","2011","2012","2013","2014","2015","2016","2017","2018","2019","2020","2010","2011","2012","2013","2014","2015","2016","2017","2018","2019","2020")
sex <- c("male","male","male","male","male","male","male","male","male","male","male","female","female","female","female","female","female","female","female","female","female","female")
number <- c(12,5,15,5,4,6,5,5,8,4,0,54,64,70,50,54,35,40,37,42,36,24)
perFailed <- c(0.090909091,0.057971014,0.117647059,0.163636364,0.068965517,0.048780488,0.044444444,0.071428571, 0.1,0.1,0)
data <- data.frame(year,sex,number,perFailed)
data$year <- as.factor(data$year)
library(ggplot2)
ggplot(data=data, aes(x=year, y=number, fill=sex)) +
  geom_bar(stat="identity", position=position_dodge()) +
  theme_bw()

我不知道怎么做，但 R 复制了我的上一栏 ( perFailed)。该数据需要绘制在geom_line()辅助轴上。

谢谢大家。