如何用ggplot2绘制样条线？

Question

我有一些数据想要制作直方图。但是，我想用线条表示这个直方图。我尝试过使用 ggplot2 的 freq_poly 。然而，产生的线条相当锯齿状。我想知道是否可以将splines与ggplot2一起使用，以便在freq_poly中生成的线条会更平滑。

d <- rnorm( 1000 )
h <- hist( d, breaks="FD", plot=F )
plot( spline( h$mids, h$counts ), type="l" )

这就是我想要实现的目标。但我想使用 ggplot2 来做到这一点。

Answer 1

我假设您正在尝试使用 spline() 函数。如果不是，请忽略此答案。

spline() 返回两个组件 x 和 y 的列表对象：

List of 2
 $ x: num [1:93] -3.3 -3.23 -3.17 -3.1 -3.04 ...
 $ y: num [1:93] 1 0.1421 -0.1642 -0.0228 0.4294 ...

我们可以简单地将它们转换为 data.frame 并绘制它们。可能有更奇特的方法可以做到这一点，但这可行：

h <- hist( d, breaks="FD", plot=F )
zz <- spline( h$mids, h$counts )
qplot(x, y, data = data.frame(x = zz$x, y = zz$y), geom = "line")