嘿，这个坑我之前踩过！你遇到的问题核心原因很简单：ggplot的geom_line()是严格按照数据框里的行顺序来连接点的，而你提供的示例数据里，x是先从log(1)递增到log(100)，再从log(99)递减回log(1)，所以折线会跟着这个“先升后降”的行顺序来回跳转。而base R的plot(type="l")在你的示例里看起来正常，大概率是因为它的连线逻辑刚好契合了你预期的视觉效果，但本质上它也是按原始数据顺序连线的。

最简单的解决方案：先对数据按x值排序 #

只需要在绘图前把数据框按x列从小到大排序，geom_line()就会按x轴的自然顺序连接点，画出平滑的曲线：

library(ggplot2)
x1 <- log(c(1:100, 99:1))
y1 <- log(seq(0.22, 0.2, length.out = 199))
dat <- data.frame(x = x1, y = y1)

# 按x值排序数据
dat_sorted <- dat[order(dat$x), ]

# 绘制正常折线
ggplot(data = dat_sorted, aes(x = x, y = y)) + geom_line()

为什么这个方法有效？ #

排序后，数据框里的行是按x从最小到最大排列的，geom_line()会依次连接这些点，自然就会沿着x轴的方向画出平滑的曲线，不会再出现来回跳跃的情况。

额外小技巧：如果是拟合曲线的场景 #

如果你是在对原始数据做二次拟合后绘制拟合线，更规范的做法是先生成一系列均匀分布的x值，再用拟合模型预测对应的y值，最后用排序后的预测数据绘图，这样能彻底避免x值重复或顺序混乱的问题。比如：

# 假设你有原始数据
set.seed(123)
raw_x <- rnorm(100, 5, 2)
raw_y <- 0.5*raw_x^2 - 3*raw_x + 10 + rnorm(100, 0, 2)
raw_dat <- data.frame(x = raw_x, y = raw_y)

# 拟合二次模型
model <- lm(y ~ poly(x, 2), data = raw_dat)

# 生成均匀分布的x预测序列
pred_x <- seq(min(raw_x), max(raw_x), length.out = 100)
pred_y <- predict(model, newdata = data.frame(x = pred_x))
pred_dat <- data.frame(x = pred_x, y = pred_y)

# 绘制拟合线（自带排序，不会跳跃）
ggplot(raw_dat, aes(x, y)) +
  geom_point() +
  geom_line(data = pred_dat, color = "red", size = 1)

这样生成的拟合线绝对是平滑的，不会出现任何跳跃问题。

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