r - ggplot2:如何获取影响 ScaleContinuous 类的 Geom 类

Question

我已经开始扩展 ggplot2，我仍然对这个包如何调用它的所有内部函数有一些感觉。

我有一个新的 ggproto 类，它扩展了当前的 Geom 环境之一。该类的当前模型将沿着离散的 x 轴绘制一些东西，理想情况下接触 x 轴刻度。当 y 轴已经处于离散比例时，此模型运行良好，因为默认扩展值仅添加 .6 填充。然而，在连续的 y 尺度上，默认填充会使这些新绘制的对象看起来很远。总之，我怎样才能让我的 Geom 类覆盖默认扩展而不只是添加 scale_y_continuous(expand = c(0,0,.05,0) 或 scale_y_discrete(expand = c(0, 0, .6,0) 到我的图层函数...

考虑以下可重现的例子

library(dplyr)
library(tidyr)
library(ggplot2)
library(stringr)
mtcars0 <- as_tibble(mtcars, rownames = "CarNames") %>%
  gather(key = "qualities", value = "value", -CarNames) %>%
  group_by(qualities) %>%
  mutate(scaledValue = scale(value)) %>%
  ungroup() %>%
  mutate(carCase = case_when(str_detect(CarNames, "^[A-M]") ~ "A-M",
                             TRUE ~ "N-Z"))
"%||%" <- function(a, b) {
  if (!is.null(a)) a else b
}

MyText <- ggproto("GeomMyText",
                  GeomText,
                  extra_params = c("na.rm","padDist"),
                  setup_data = function(data, params){
                    #find bottom of plot with sufficent space
                    minpadding <- params$padDist %||% diff(range(data$y))*.05
                    data$y <- min(data$y) - minpadding
                    data 
                  })

geom_mytext <- function (mapping = NULL, data = NULL, stat = "identity", position = "identity", 
                         ..., parse = FALSE, nudge_x = 0, nudge_y = 0, check_overlap = FALSE, 
                         na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, padDist = NULL) 
{ 
  if (!missing(nudge_x) || !missing(nudge_y)) {
    if (!missing(position)) {
      abort("You must specify either `position` or `nudge_x`/`nudge_y`.")
    }
    position <- position_nudge(nudge_x, nudge_y)
  }
  layer(data = data, mapping = mapping, stat = stat, geom = MyText, 
        position = position, show.legend = show.legend, inherit.aes = inherit.aes, 
        params = list(parse = parse, check_overlap = check_overlap, 
                      na.rm = na.rm, padDist = padDist, ...))
}


result <- ggplot(mtcars0, aes(x = CarNames, value)) +
  geom_point() +
  geom_mytext(aes(label = carCase)) +
  theme(axis.text.x = element_text(angle=90))
#Default
result 
#Desired Result without having to call scale_y_continuous
result + scale_y_continuous(expand = c(0,0,0.05,0))

我假设我需要扩展 ScaleContinuous 环境，但我不知道如何将 MyText 环境与其连接。

有什么建议吗？

---- 编辑----

感谢您的快速回复!一些事情-

1. 我知道标签的绘制和剪裁过度，这不是我实际的 Geom 环境，只是我可以放在一起证明我的问题的东西。
2. 正如我所担心的，到目前为止似乎每个人都在提供 solution that was raised for this question .虽然提供我自己的比例不太理想 - 因为我必须加入逻辑来辨别它们关联的 y 轴是离散的还是连续的，当 ggplot2 已经知道这一点时，我认为可能有一个技巧我不见了。现在我将根据给出的建议继续开发。谢谢!

---- 编辑 2 ----

我又看了一眼 solution given here .我需要修改的确切参数是

panel_params$y$continuous_range[1] <- panel_params$y$limits[1]

我需要在 draw_panel 的某处执行此操作。似乎相关的比例包含在那里，coord$transform(data, panel_params) 负责根据为 panel_params$y$limits 设置的内容在重新缩放的轴上包含填充 和 panel_params$y$continuous_range。

再次感谢所有做出贡献的人!

Answer 1

好问题 - 感谢发帖。

这比您想象的要容易。您只需将所需的比例对象与从 geom_mytext 函数返回的层对象捆绑在一起，方法是将它们与 c 连接起来。在这个例子中，我还捆绑了一个 coord_cartesian 对象，这样我就可以关闭裁剪以正确显示文本。我还将默认的 check.overlap 更改为 TRUE，因为您的标签被过度绘制了。

请注意，我根本没有更改您的 ggplot 调用

geom_mytext <- function (mapping = NULL, data = NULL, stat = "identity", position = "identity", 
                         ..., parse = FALSE, nudge_x = 0, nudge_y = 0, check_overlap = FALSE, 
                         na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, padDist = NULL) 
{ 
  if (!missing(nudge_x) || !missing(nudge_y)) {
    if (!missing(position)) {
      abort("You must specify either `position` or `nudge_x`/`nudge_y`.")
    }
    position <- position_nudge(nudge_x, nudge_y)
  }
  c(layer(data = data, mapping = mapping, stat = stat, geom = MyText, 
        position = position, show.legend = show.legend, inherit.aes = inherit.aes, 
        params = list(parse = parse, check_overlap = check_overlap, 
                      na.rm = na.rm, padDist = padDist, ...)), 
    scale_y_continuous(expand = c(0,0,0.05,0)),
    coord_cartesian(clip = "off"))
}


result <- ggplot(mtcars0, aes(x = CarNames, value)) +
  geom_point() +
  geom_mytext(label = "test") +
  theme(axis.text.x = element_text(angle=90))

result 

现在是注意事项。因为您要提供自己的 scale_y_continuous 对象，所以用户在尝试添加自己的 y 刻度时不会喜欢 ggplot 的提示。您还需要一些逻辑来选择添加连续或离散的 y 刻度。不过，我不认为这些是无法克服的问题。