r - ggplot2 在 .elements_tree 之外创建一个新的主题元素

Question

我需要为 ggplot2 创建一个新的主题元素

如何添加 新品 项目到 .elements_tree数据结构(作为引用，它从第 263 行 HERE 开始)

例如，我有一个特殊情况，我需要添加另一个轴，因此，我想添加主题对象:axis.text.z , axis.title.z等等...

我可以通过入侵 plot$theme 将其手动添加到单个绘图对象(例如“绘图”)中。 ，但是，当我尝试通过 theme(...) 进行修改时命令，它通过 validate_element 未经验证从第 363 行开始的函数，也在同一个源文件上(再次 HERE)。

如果我创建了 .elements_tree 的本地副本，通过类似的东西:

.elements_tree = ggplot2:::.elements_tree
.elements_tree = c(.elements_tree,
                    axis.text.z  = el_def("element_text", "axis.text"),
                    axis.title.z = el_def("element_text", "axis.text"))

然后新副本不会被 ggplot2 库实例拾取，因此什么也没有实现。

Answer 1

HTH:

et <- ggplot2:::.element_tree
et <- c(.element_tree,
        axis.text.z  = ggplot2:::el_def("element_text", "axis.text"),
        axis.title.z = ggplot2:::el_def("element_text", "axis.text"))

unlockBinding(".element_tree", asNamespace("ggplot2"))
assign(".element_tree", et, asNamespace("ggplot2"))
lockBinding(".element_tree", asNamespace("ggplot2"))