R工作室ggplot

我的代码：

ggplot(data)+
  geom_bar(aes(x=data$AgeGroup, y=data$NumberofLoans), stat="identity")+
  geom_line(aes(x=data$AgeGroup, y=data$BadRate*max(data$NumberofLoans)) , stat="identity",group=1)+
  scale_y_continuous(sec.axis = sec_axis(~./max(data$NumberofLoans)))

AgeGroup,NumberofLoans,BadLoans,GoodLoans,BadRate
21-24,310,14,296,4.5
24-27,511,20,491,3.9
27-30,4000,172,3828,4.3
30-33,4568,169,4399,3.7
33-36,5698,188,5510,3.3
36-39,8209,197,8012,2.4
39-42,8117,211,7906,2.6
42-45,9000,216,8784,2.4
45-48,7600,152,7448,2
48-51,6000,84,5916,1.4
51-54,4000,64,3936,1.6
54-57,2000,26,1974,1.3
57-60,788,9,779,1.1

谁能帮我得到第二张图作为答案吗。目前我得到了第一张图表

数据：

ggplot(data)+
  geom_bar(aes(x=data$AgeGroup, y=data$NumberofLoans), stat="identity")+
  geom_line(aes(x=data$AgeGroup, y=data$BadRate*max(data$NumberofLoans)) , stat="identity",group=1)+
  scale_y_continuous(sec.axis = sec_axis(~./max(data$NumberofLoans)))

AgeGroup,NumberofLoans,BadLoans,GoodLoans,BadRate
21-24,310,14,296,4.5
24-27,511,20,491,3.9
27-30,4000,172,3828,4.3
30-33,4568,169,4399,3.7
33-36,5698,188,5510,3.3
36-39,8209,197,8012,2.4
39-42,8117,211,7906,2.6
42-45,9000,216,8784,2.4
45-48,7600,152,7448,2
48-51,6000,84,5916,1.4
51-54,4000,64,3936,1.6
54-57,2000,26,1974,1.3
57-60,788,9,779,1.1

试试：

---

---

---

limits（）是一个允许您指定初始轴限制的参数

您有问题要问吗？我看到一个代码和图片…不要在

aes（）中使用
data$column
。只需使用列名。完成了，问题是我想让图形重叠。第二个y轴从0开始，在第二个绘图中，它从1开始。如何也从1开始y轴作为第二个轴？@PoGibas我相信你可以对第二个轴使用断点，但我认为这里的问题在于主轴的比例