使用R ggplot2绘制多变量折线图仅显示灰色方块如何解决

1. 数据过滤后无有效观测 #

过滤条件和原数据集的实际取值/列名不匹配是最高发原因：

• 原数据集的列名可能未自动转换为点分隔格式，比如带空格的Both sexes、Type of work等，你写的Type.of.work、Both.Sexes在数据集中不存在
• 过滤条件的取值拼写和数据集不一致，比如全职的取值可能为Full time（无横杠），加拿大的取值可能为CAN而非Canada
  过滤后数据集行数为0时，ggplot仅会渲染空白的灰色坐标系背景，没有任何图形元素。

2. 数据类型不匹配 #

• YEAR列被识别为字符型而非数值型，无法连续映射到X轴
• Both.Sexes薪资列带有$、,等特殊字符，被识别为字符型无法映射到Y轴，或者该列存在大量NA值

3. 分组维度无足够观测 #

Education.level每个分组的观测数≤1，geom_line需要至少两个连续观测才能绘制折线，此时只会显示空白背景。

• 第一步先校验过滤后的数据有效性，运行以下代码确认是否有有效数据：

filtered_data <- wages |> subset(Geography == "Canada" & Type.of.work == "Full-time")
# 查看行数，若返回0说明过滤条件/列名有误
nrow(filtered_data)
# 查看列名是否匹配
colnames(wages)

• 第二步修正列名与过滤条件：原数据集的列名如果带空格，需要用反引号包裹，同时确认过滤条件的取值和数据集一致：

# 查看字段唯一取值，确认过滤条件拼写
unique(wages$`Type of work`)
unique(wages$Geography)

• 第三步转换数据类型：

# 处理年份为数值型
wages$YEAR <- as.numeric(wages$YEAR)
# 清理薪资列的特殊字符后转数值型
wages$`Both sexes` <- as.numeric(gsub("\\$|,", "", wages$`Both sexes`))

• 第四步验证绘图逻辑，若还是无法出线可以先换散点图测试是否有数据点：

# 修正后的完整绘图代码参考
wages |> 
  filter(`Geography` == "Canada", `Type of work` == "Full-time") |>
  ggplot(aes(x = YEAR, y = `Both sexes`, group = `Education level`, colour = `Education level`)) + 
  geom_line(alpha = 0.6, size = 0.5) +
  labs(title = "Wages for Full-Time employees by Education Level in Canada")

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