R 将geom_线与geom_线组合在一个图中

我尝试将两个图合并为一个图。但是geom_线没有显示，右边的y轴不在%

geom_栏显示了我希望它显示的内容，但geom_线没有显示在ggplot中。 geom_线为a%，表示BV和FV之间的关系，%=BG/FV

我的表格在Excel中的外观

欧洲人的逗号：

Aar 类型 米娅·克鲁 背景 2004 FV 1918050 0,489221 2004 背景 938350,0583 2005 FV 2312210 0,447918 2005 背景 1035680,125 2006 FV 2842071 0,416046 2006 背景 1182431,742 2007 FV 2910107 0,447245 2007 背景 1301530,525 你可以试试

ggplot(df, aes(x = Aar)) + 
   geom_col(aes(y = mia_kr, fill = Type)) + 
   geom_line(aes(y = BG*max(mia_kr), group =Type))  +
   scale_y_continuous(labels = scales::format_format(big.mark = ".", decimal.mark = ",", scientific = FALSE),
                     sec.axis = sec_axis(~ ./max(df$mia_kr)))

---

请注意，行值是根据max

mia_kr

值进行放大的。

请提供您使用的所有代码，包括用于将数据读入R的代码。数据（最好是重现问题所需的最简单代码）以可读的格式，以便我们中任何试图回答您的问题的人都可以在本地重现问题。请同时简化代码，使与触发您描述的问题无关的任何内容都保留为默认值。现在应该可以在本地创建。只需将表格复制粘贴到您自己的excel文件中即可。请阅读有关应立即修复的内容。这些条不应添加在一起，而应相互重叠。显示FV大于BG。