Question

我正在用R制作条形图和组合图，并想在图上添加图例

我已经使用了theme（）并进行了大量搜索，但似乎不适用于这些类型的图形，或者只能为一个图表找到解决方案

这是数据框

        Names   1    0 Good_pct Bad_pct Total Total_Pct Bad_Rate grp_score   WOE      IV Efficiency
1     A. 1 año  47  193     4.08    5.09   240      4.25    19.58      4.45 -2.21 0.22321      0.505
2  B. 1-3 años 219  961    20.32   23.70  1180     20.87    18.56      4.62 -1.54 0.52052      1.690
3  C. 3-7 años 275 1596    33.75   29.76  1871     33.10    14.70      5.31  1.26 0.50274      1.995
4 D. 7-10 años 103  579    12.24   11.15   682     12.06    15.10      5.23  0.93 0.10137      0.545
5  E. >10 años 280 1399    29.58   30.30  1679     29.70    16.68      4.94 -0.24 0.01728      0.360
6      missing   0    1     0.02    0.00     1      0.02     0.00     10.00   Inf     Inf      0.010

这是我的代码：

  ggplot(anti_90_12)  + 
  geom_bar(aes(x=Names, y=Total),stat = "identity", fill="olivedrab2")+
  geom_line(aes(x=1:6,y=Bad_Rate/100*max(anti_90_12$Total)),stat = "identity",colour="dodgerblue2",linetype=1)+
  geom_point(aes(x=Names,y=Bad_Rate/100*max(anti_90_12$Total)),stat = "identity",colour="dodgerblue2",size=2.5)+
  geom_text(aes(label=Bad_Rate, x=Names, y=100+(Bad_Rate/100*max(anti_90_12$Total))), colour="black")+
  scale_y_continuous(sec.axis = sec_axis(~./max(anti_90_12$Total)))+ 
  ggtitle("Antigüedad Laboral vs Bad Rate 90@12")+
  labs(y="Casos",x="Años")

由于stackoverflow中有新人的政策，我还不能添加图像，只有下面带有我所拥有图表的此链接，才需要条形图和折线图的图例

https://i.stack.imgur.com/978Qu.png

我需要将图例添加到组合的ggplot图中

0 个答案: