RStudio读取CSV绘制Combo Chart遇geom_path分组错误求解决方案

核心问题修复：折线图分组报错 #

你遇到的geom_path: Each group consists of only one observation...报错，是因为X轴是离散字符型（国家/商品名称），ggplot2默认会按每个X轴元素单独分组，每个组只有一个数据点，自然无法连线。

直接修复方法：在geom_line的aes参数里添加group=1，强制将所有数据归为同一分组，就能正常绘制折线。

X轴使用说明 #

CSV首列的国家/商品名称完全可以作为X轴——ggplot2支持离散字符型变量作为X轴，只是建议你给列重命名，避免...1这种自动生成的模糊列名，提升代码可读性。

修正后的完整代码 #

library(readr)
library(ggplot2)

# 读取数据
ComboR <- read_csv("C:/Users/Giulio/Downloads/ComboR.csv")
# 整理数据并给列起清晰的名字
dataco <- data.frame(
  commodity = ComboR$...1,
  B2014_import = ComboR$B2014,
  BAU2050_import = ComboR$`BAU 2050`
)

# 绘制组合图
ggp <- ggplot(dataco, aes(x = commodity)) + 
  # 绘制柱状图
  geom_bar(aes(y = B2014_import), stat = "identity", fill = "cyan", colour = "#006000") +
  # 绘制折线图，添加group=1解决分组问题
  geom_line(aes(y = BAU2050_import, group = 1), color = "red", size = 2) +
  # 自定义图表标签
  labs(title = "Import Percentage Comparison",
       x = "Commodities",
       y = "% Import") +
  # 可选：旋转X轴标签，避免长名称重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

# 展示图表
ggp

额外优化建议 #

• 如果需要突出折线的数据点，可添加geom_point(aes(y = BAU2050_import), color = "red", size = 3)
• 确认BAU 2050列是数值型数据，如果是字符型，先用as.numeric(ComboR$BAU 2050)转换

内容的提问来源于stack exchange，提问作者Giulio