R ggplot2中鞘层宽度的统计密度

R ggplot2中鞘层宽度的统计密度,r,ggplot2,R,Ggplot2,我看到了ggplot2源硬代码bw=“nrd0”。有没有办法通过传递一个参数将binwidth更改为bw=“SJ”,或者我必须用这个差异重新定义类 我想出了一个替代方案,通过它我可以构建传递给stat\u函数的函数 library(purrr) fit <- Y %>% split(.$from) %>% map(~ density(x = .$dist, bw = "SJ")) %>% map(approxfun) 缺点是我必须手动设置每种颜色。我只需

我看到了ggplot2源硬代码
bw=“nrd0”
。有没有办法通过传递一个参数将binwidth更改为
bw=“SJ”
,或者我必须用这个差异重新定义类

我想出了一个替代方案,通过它我可以构建传递给
stat\u函数的函数

library(purrr)
fit <-
  Y %>%
  split(.$from) %>%
  map(~ density(x = .$dist, bw = "SJ")) %>%
  map(approxfun)
缺点是我必须手动设置每种颜色。

我只需
edit()
函数;但是我在其他情况下也经常遇到类似的问题,所以如果其他人有一个方便的建议,可能涉及到
形式的
,我很乐意听到!
...
Y %>%
ggplot(aes(x = x)) + 
  stat_function(fun = fit[[1]]) + 
  stat_function(fun = fit[[2]])