r - ggplot2 で制限された 3 次スプラインをプロットする際のエラー

Question

ggplot2を使用して、制限された 3 次スプラインを使用して近似を説明したいと思いますgeom_smooth()が、正しく機能していないようです。以下に短い例を示します。

# rms package Contains Restricted Cubic Splines (RCS)
library(rms)
library(ggplot2)

# Load Data
data(cars)

# Model Fit with RCS
fit <- lm(speed ~ rcs(dist, 5), data=cars)

# Obtain Diagnostic Data
plot.dat <- cbind(cars, fitted=fitted(fit))

# Compare Smooth to Actual
ggplot(data=plot.dat) +
  geom_point(aes(x=dist, y=speed)) +
  geom_smooth(aes(x=dist, y=speed), method="lm", 
              formula=y ~ rcs(x, 5), se=FALSE, colour="blue") +
  geom_line(aes(y=fitted, x=dist), size=1.25, colour="red")

これにより、次の画像が得られます: スプラインの比較 でgeom_smooth()正しい結果が得られない 理由がわかりません。明らかに回避策があります (上図のように) がgeom_smooth()、正しい結果を生成する方法はありますか?