r - 在 ggplot2 中创建自定义 Stat 对象

Question

我想为 ggplot2 创建一个自定义 Stat 对象。 (具体来说，我想创建一个与 stat_smooth 允许的不同的平滑器 - 例如，没有 y~x 建模功能 - 但是即使有解决方法，我也想创建其他自定义统计信息对于我的具体情况)。

我找到了 this suggested solution from Hadley Wickham :

StatExpo <- proto(Stat, {
  objname <- "expo"
  desc <- "Exponential smoothing"
  default_geom <- function(.) GeomLine

  calculate_groups <- function(., data, scales, variable="x", ...) {
    data$y <- HoltWinters(data$x, ...)
  }
})
stat_expo <- StatExpo$new

但是，当我尝试时，我得到:

Error in proto(Stat, { : object 'Stat' not found

环顾四周 ggplot code , 我找到了 where Stat is defined .然而， Stat据我所知，对象是 never exported from ggplot2 .

我可以在 ggplot2/R 中编写我的新 stat 对象文件夹，然后重新安装包，但显然这会很麻烦，并且使解决方案很难与他人共享。如何在 ggplot 命名空间之外创建自定义 Stat 对象？

Answer 1

ggplot2:::Stat可用于访问非导出对象。