自从我问了如何进行核平滑，我想为此提供一个答案。
我将从将其作为额外数据添加到数据框中并绘制它开始，就像接受的答案一样。
首先，这是我将要使用的数据和软件包（与我的帖子中相同）：
library(dplyr)
library(ggplot2)
set.seed(1234)
expand.grid(z = -5:2, x = seq(-5,5, len = 50)) %>%
mutate(y = dnorm(x) + 0.4*runif(n())) %>%
filter(z <= x) ->
Z
下面是情节：
接下来是情节：
Z %>%
group_by(z) %>%
do(data.frame(ksmooth(.$x, .$y, 'normal', bandwidth = 2))) %>%
ggplot(aes(x,y)) +
geom_line(data = Z) +
geom_line(color = 'blue', size = 1) +
facet_wrap(~ z)
这只是简单地使用了基本R中的ksmooth。请注意，避免动态平滑非常简单（使带宽恒定即可解决此问题）。实际上，可以通过以下方式恢复动态样式平滑（例如geom_smooth）：
Z %>%
group_by(z) %>%
do(data.frame(ksmooth(.$x, .$y, 'normal', bandwidth = diff(range(.$x))/5))) %>%
ggplot(aes(x,y)) +
geom_line(data = Z) +
geom_line(color = 'blue', size = 1) +
facet_wrap(~ z)
我也参考了https://github.com/hrbrmstr/ggalt/blob/master/R/geom_xspline.r中的示例，将这个想法转化为实际的stat_和geom_，具体如下：
geom_ksmooth <- function(mapping = NULL, data = NULL, stat = "ksmooth",
position = "identity", na.rm = TRUE, show.legend = NA,
inherit.aes = TRUE,
bandwidth = 0.5, ...) {
layer(
geom = GeomKsmooth,
mapping = mapping,
data = data,
stat = stat,
position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = list(bandwidth = bandwidth,
...)
)
}
GeomKsmooth <- ggproto("GeomKsmooth", GeomLine,
required_aes = c("x", "y"),
default_aes = aes(colour = "blue", size = 1, linetype = 1, alpha = NA)
)
stat_ksmooth <- function(mapping = NULL, data = NULL, geom = "line",
position = "identity", na.rm = TRUE, show.legend = NA, inherit.aes = TRUE,
bandwidth = 0.5, ...) {
layer(
stat = StatKsmooth,
data = data,
mapping = mapping,
geom = geom,
position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = list(bandwidth = bandwidth,
...
)
)
}
StatKsmooth <- ggproto("StatKsmooth", Stat,
required_aes = c("x", "y"),
compute_group = function(self, data, scales, params,
bandwidth = 0.5) {
data.frame(ksmooth(data$x, data$y, kernel = 'normal', bandwidth = bandwidth))
}
)
（请注意，我对上面的代码理解很差。）但现在我们可以做到：
Z %>%
ggplot(aes(x,y)) +
geom_line() +
geom_ksmooth(bandwidth = 2) +
facet_wrap(~ z)
"而且平滑处理不是我最初想要的动态的。虽然我在想是否有更简单的方法。"
当移动到后续面时，z=-5面是好的，但平滑似乎“过度拟合”；事实上，z=-1已经受到影响，在最后一个面，z=2，平滑线完美地适配了数据。理想情况下，我希望有一种不太动态的平滑方法，例如始终平滑大约4个点（或使用固定内核的内核平滑）。
以下SO问题相关，但也许更为雄心勃勃（因为它想要更多关于