排查ggplot与base R绘图结果存在差异的原因

我最近分别用base R和ggplot2两种方式绘制同一组数据，本来是想对比下二者的绘图效果，结果发现ggplot2出了问题——画出来的图和base R的完全不一样，按道理它们应该是一致的。下面是我用到的代码和对应的图形：

Base R 代码 #

# 注：这段代码看起来可能存在输入失误，建议核对原始代码内容
em is though.

ggplot2 代码 #

（注：此处未提供完整的ggplot2代码片段，建议补充后能更精准定位问题）

对应图形 #

• Base R 绘制的预期图形：Base R 绘图效果
• ggplot2 绘制的异常图形：ggplot2 异常绘图效果

作为经常处理这类绘图差异的开发者，我给你几个方向，大概率能找到问题根源：

• 核对数据映射是否一致：先确认base R绘图时用到的x、y变量是什么，ggplot2的aes()函数里有没有对应上？比如base R用plot(mtcars$wt, mtcars$mpg)，那ggplot2就得写成ggplot(mtcars, aes(x=wt, y=mpg))，变量名和数据集都得完全匹配，不能搞错。
• 检查图形类型是否匹配：base R用的是散点图（type="p"）、折线图（type="l"）还是柱状图？ggplot2对应的geom层要选对——比如base R画折线用lines()，ggplot2就得用geom_line()，别选错成geom_point()了。
• 对齐坐标轴设置：base R默认的坐标轴范围是数据的最小值到最大值，ggplot2有时候会自动扩展一点范围，你可以用xlim(min(x), max(x))或者coord_cartesian(xlim=c(min(x), max(x)))强制和base R的范围一致，后者不会过滤数据，更推荐使用。
• 匹配分组与样式设置：如果base R里有分组（比如多条线用不同颜色区分），ggplot2有没有用group参数指定分组变量？或者颜色映射有没有和base R一致？比如base R用lines(x, y1, col="red")，ggplot2要么把数据整理成长格式后用aes(color=group_var)，要么直接在geom_line()里指定color="red"。
• 确认数据集完全相同：base R绘图前有没有对数据做过筛选、排序或者聚合？比如用subset()取了部分数据？要确保ggplot2用的数据集和base R处理后的完全一致，别不小心混用了原始数据集和处理后的数据集，那结果肯定不一样。

举个实际的例子，假设你的base R代码是这样的：

# 生成数据并绘图
x <- seq(1, 10, by=0.5)
y <- sin(x)
plot(x, y, type="l", col="blue", lwd=2)

那对应的正确ggplot2代码应该是：

library(ggplot2)
# 整理成数据框（ggplot2要求数据为数据框格式）
df <- data.frame(x = x, y = y)
ggplot(df, aes(x=x, y=y)) +
  geom_line(color="blue", linewidth=2) # linewidth对应base R的lwd参数

这样画出来的图就和base R的完全一致了。

如果你的代码里有特殊设置（比如对数坐标轴、自定义刻度），一定要确保ggplot2的参数和base R对应上。比如base R用plot(x, y, log="x")，ggplot2就要用scale_x_log10()或者coord_trans(x="log10")来实现同样的效果。

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