带两个轴的条形图上的R叠加线图

我有下面的代码，它只生成一个没有线条的条形图。如何调整此代码以获得第二行？

库（ggplot2）
p1您应该提供一个最小的数据集来重现您的问题，因此我无法测试我的解决方案，但我认为这是因为因子标度上的一条线不起作用，所以您应该使用：

p1 <- p1 +  geom_line(data = subset(df, Year == 2006),  
                      aes(x = State, y = Total.Poverty / 1000), colour = "blue")

p1必须在代码中添加group=1


库（ggplot2）
我试过了，但没有成功。让我给你看看我有什么。在原始线程中重新附加文件。df