在ggplot2中使用geom_rug添加条件rug时触发check_aesthetics错误

错误原因 #

你遇到的报错是因为geom_rug继承了上层的完整swiss数据集（共47行），但你在美学映射中用索引提取了26行的子集，导致美学变量长度（26）与数据长度（47）不匹配，触发了check_aesthetics()的校验错误。

两种可行解决方法 #

方法1：给geom_rug单独传入子集数据 #

这是最清晰规范的做法，让geom_rug仅使用符合条件的子集数据，其他图层保持使用完整数据集：

ggplot(data = swiss) + 
  geom_point(mapping = aes(x = Education, y = Fertility)) + 
  geom_smooth(method = "lm", aes(x = Education, y = Fertility), se = FALSE) + 
  geom_smooth(method = "loess", aes(x = Education, y = Fertility, 
                                    col = "red"), 
              linetype = "dotted", 
              lwd = 2,
              se = FALSE) + 
  # 单独指定geom_rug的数据源为Agriculture≥50的子集
  geom_rug(data = subset(swiss, Agriculture >= 50), 
           mapping = aes(x = Education, y = Fertility), 
           color = "blue")

方法2：用ifelse在美学映射中过滤无效值 #

通过ifelse将不符合条件的观测值设为NA，ggplot会自动忽略NA对应的绘图元素：

ggplot(data = swiss) + 
  geom_point(mapping = aes(x = Education, y = Fertility)) + 
  geom_smooth(method = "lm", aes(x = Education, y = Fertility), se = FALSE) + 
  geom_smooth(method = "loess", aes(x = Education, y = Fertility, 
                                    col = "red"), 
              linetype = "dotted", 
              lwd = 2,
              se = FALSE) + 
  geom_rug(mapping = aes(x = ifelse(Agriculture >= 50, Education, NA), 
                         y = ifelse(Agriculture >= 50, Fertility, NA)), 
           color = "blue")

关于提前子集化的问题 #

你之前提前子集化后触发fortify()错误，大概率是因为误将全局数据集替换成了子集，导致依赖完整数据的图层（比如geom_point、geom_smooth）无法正常工作。正确的做法是仅给需要子集的图层单独指定数据源，而非修改全局的data参数。

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