在ggplot2

Question

我看到了ggplot2源硬代码bw = "nrd0"。有没有办法通过传递参数将binwidth更改为bw = "SJ"，还是我必须重新定义具有该差异的类？

我提出了另一种方法，我将构建函数传递给stat_function。

library(purrr)
fit <-
  Y %>%
  split(.$from) %>%
  map(~ density(x = .$dist, bw = "SJ")) %>%
  map(approxfun)

我将该函数称为：

...
Y %>%
ggplot(aes(x = x)) + 
  stat_function(fun = fit[[1]]) + 
  stat_function(fun = fit[[2]])

缺点是我必须手动设置每种颜色。