将geom_bar width default更改为另一个默认值

Question

我想做什么

我目前有一个自定义主题用于我的绘图，我希望在所有类型的绘图的一些预定义参数之上。我的第一个重点是条形图，我想更改默认宽度。

ggplot2中geom_bar的默认宽度为＆＃34; 默认情况下，设置为数据分辨率的90％。＆＃34; （http://ggplot2.tidyverse.org/reference/geom_bar.html）。

我想将默认值更改为 75％。要清楚，我不有兴趣改变它：

geom_bar(stat='identity', width=0.75)

因为这意味着我每次创建条形图时都必须指定它。我希望它成为新的默认值。

到目前为止我尝试了什么

我尝试使用以下方法更改宽度默认值：

update_geom_defaults("bar", list(width=0.75))

但后来我收到一条错误消息：Error: Aesthetics must be either length 1 or the same as the data (964): width。我认为这可能是因为宽度是根据数据的分辨率计算的，而目前我还没有调出update_geom_defaults

另外，我也意识到width不是条形码默认值的一部分：

GeomBar$default_aes
* colour   -> NA
* fill     -> "grey35"
* size     -> 0.5
* linetype -> 1
* alpha    -> NA

我的问题是：

• 90％默认设置在哪里？
• 我可以以任何方式更改吗？
• 如果没有，是否有另一种方法可以将一组预定义的参数传递给所有geom_ *函数？

谢谢！

Answer 1

默认值在GeomBar中定义：

GeomBar <- ggproto("GeomBar", GeomRect,
  required_aes = c("x", "y"),

  setup_data = function(data, params) {
    data$width <- data$width %||%
      params$width %||% (resolution(data$x, FALSE) * 0.9)  ## <- right here
    transform(data,
      ymin = pmin(y, 0), ymax = pmax(y, 0),
      xmin = x - width / 2, xmax = x + width / 2, width = NULL
    )
  },

  draw_panel = function(self, data, panel_params, coord, width = NULL) {
    # Hack to ensure that width is detected as a parameter
    ggproto_parent(GeomRect, self)$draw_panel(data, panel_params, coord)
  }
)

标记的行使用%||%，用于在事件params$width为NULL时设置默认值（这是geom_bar中的默认值，{{1} }意思是“为我设置合理的东西”。）

没有像NULL这样的好方法来改变它。你可以做的是，像你这样自己update_geom_defaults：

geom_bar

这在大多数情况下都可以正常工作，即使用离散的x轴（因为分辨率为1）。对于更复杂的情况，您可能需要调整或重新定义geom_bar75 <- function (..., width = 0.75) { geom_bar(..., width = width) } 本身。

GeomBar