ggplot2中x美学为何在多图中不剔除缺失值？

首先咱们得搞清楚ggplot处理缺失值的核心逻辑：ggplot默认只会在绘制图层（比如geom_line、geom_point这类）时跳过缺失的y值，但不会自动剔除x轴上的缺失值。如果你的f.plot所用数据源里，datadate本身存在缺失观测，哪怕这些行的y值也缺失，ggplot还是会把这些无效的datadate保留在x轴范围里——而sp.plot的数据源可能已经自动过滤掉了这些缺失的x值，自然两个图的x轴起始点就对不上了。

另外还有一种可能：你用grid.arrange的align参数尝试共享x轴，但如果两个图的x轴数据范围本身就不一致（一个包含缺失值对应的空位置，一个没有），align只能对齐刻度位置，没法自动裁剪掉其中一个图的无效x值范围。

给你几个实用的方案，按需选择：

• 预处理数据，统一过滤缺失值
  在创建两个图之前，先对数据源做统一的缺失值过滤，确保两个图的datadate范围完全一致：

  # 假设原始数据是df，先过滤掉datadate缺失的行
  filtered_df <- df[!is.na(df$datadate), ]
  # 用过滤后的数据分别创建两个图
  f.plot <- ggplot(filtered_df, aes(x = datadate)) + ...
  sp.plot <- ggplot(filtered_df, aes(x = datadate)) + ...
  

• 手动设置x轴范围强制对齐
  如果不想修改原始数据，可以先提取sp.plot的x轴有效范围，再强制f.plot使用这个范围：

  # 获取sp.plot的x轴实际范围
  sp_x_range <- ggplot_build(sp.plot)$layout$panel_params[[1]]$x.range
  # 给f.plot添加坐标限制，对齐x轴
  f.plot_aligned <- f.plot + coord_cartesian(xlim = sp_x_range)
  # 合并对齐后的两张图
  grid.arrange(f.plot_aligned, sp.plot, ncol = 1, align = "v")
  

• 改用facet实现自动对齐
  如果两个图的变量适合分面展示，直接用ggplot的facet功能，x轴会自动完全对齐，不需要依赖gridExtra：

  # 先把数据整理成长格式
  long_df <- tidyr::pivot_longer(df, cols = c(f_col, sp_col), names_to = "plot_type", values_to = "value")
  # 绘制分面图
  ggplot(long_df, aes(x = datadate, y = value)) +
    geom_line() +
    facet_wrap(~plot_type, ncol = 1, scales = "free_y")
  

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