ggplot2报错check_aesthetics():美学映射长度需匹配数据行数问题排查

报错原因分析 #

你遇到的Error in check_aesthetics(): ! Aesthetics must be either length 1 or the same as the data (3474): x，核心问题是映射给x轴的hour变量长度和当前绘图数据的行数（3474）不匹配。常见诱因有两种：

• 全局环境中存在另一个同名的hour变量，ggplot误引用了它而非目标数据框中的列
• 过滤后的bike数据里，hour列存在异常（比如是列表格式、长度与数据行数不一致）

修复步骤 #

1. 明确指定数据列，规避全局变量冲突 #

修改ggplot的美学映射，用.data前缀明确指定使用数据框内的列，彻底避免和全局变量混淆：

filtered_bike <- filter(bike, workingday == 0)
pl2 <- ggplot(filtered_bike, aes(x = .data$hour, y = .data$count))

2. 合并重复的绘图层 #

你代码里连续添加了两次geom_point，完全可以合并成一层，减少冗余同时避免潜在的图层冲突：

pl2 <- pl2 + geom_point(
  position = position_jitter(w = 1, h = 0),
  aes(color = .data$temp),
  alpha = 0.5
)

3. 验证数据完整性 #

先确认过滤后的数据是否正常：

# 查看数据行数
nrow(filtered_bike)
# 检查hour列的长度和类型
length(filtered_bike$hour)
class(filtered_bike$hour)

如果length(filtered_bike$hour)不等于nrow(filtered_bike)，说明hour是列表列，需要先展开：

# 若hour为列表列，用unnest展开
library(tidyr)
filtered_bike <- filtered_bike %>% unnest(hour)

完整修复后的代码 #

bike <- read.csv('bikeshare.csv', sep = ',')
library(ggplot2)
library(plotly)
library(dplyr)
library(tidyr) # 处理列表列时需要

# 过滤并预处理数据
filtered_bike <- filter(bike, workingday == 0)
# 可选：如果hour是列表列则执行下方代码
# filtered_bike <- filtered_bike %>% unnest(hour)

pl2 <- ggplot(filtered_bike, aes(x = .data$hour, y = .data$count))
pl2 <- pl2 + geom_point(
  position = position_jitter(w = 1, h = 0),
  aes(color = .data$temp),
  alpha = 0.5
)
pl2 <- pl2 + scale_color_gradientn(
  colours = c('dark blue','blue','light blue','light green','yellow','orange','red')
)
print(pl2 + theme_bw())

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