ggplot2:如何在geom_beeswarm中推点位置？

Question

我正在准备一个盒图，它应该同时显示盒图和数据点。数据点应该在右边轻推，而盒图应该在左边。

我使用R包的geom_beeswarm函数，以避免重叠点，类似于geom_jitter。

但是，因为我想在左边添加一个方格图，所以我希望将数据点水平地移动到右边，以便在左边有一个框图的空间。

我已经尝试过使用position = position_nudge(x = 0.5)，但是geom_beeswarm的参数是未知的。nudge_x=0.5也是如此。

有人有另一个解决方案来将geom_beeswarm图移到右边吗？

可复制示例

df <- data.frame('variable'=rep(c('control','treatment'),each=20),
'value'=c(runif(20, min=0, max=3), rnorm(60)))

ggtest<-ggplot(df,aes(variable, value)) +
geom_beeswarm(priority='random',cex=2.5)
ggtest

Answer 1

我遇到了这个问题，而现有的虚拟类别解决方案并没有让我满意，所以我编写了一个position_nudge_any，它接受任何定位功能，然后在它完成时应用额外的“提示”。

#' Nudge any other positioning function from ggplot2
#' @param x Nudge in X direction
#' @param y Nudge in Y direction
#' @param position Any positioning operator from ggplot2 like \link{position_jitter}[ggplot2]
#' @return A combination positioning operator which first runs the original positioning,
#' then adds a nudge on top of that
#' @export
position_nudge_any <- function(x = 0, y = 0, position) {
  ggproto(NULL, PositionNudgeAny,
          nudge = ggplot2::position_nudge(x, y),
          position = position
  )
}


#' Internal class doing the actual nudging on top of the other operation
#' @keywords internal
PositionNudgeAny <- ggplot2::ggproto("PositionNudgeAny", ggplot2::Position,
  nudge = NULL,
  nudge_params = NULL,
  position = NULL,
  position_params = NULL,

  setup_params = function(self, data) {
   list(nudge = self$nudge,
        nudge_params = self$nudge$setup_params(data),
        position = self$position,
        position_params = self$position$setup_params(data))
  },

  setup_data = function(self, data, params) {
   data <- params$position$setup_data(data, params$position_params)
   params$nudge$setup_data(data, params$nudge_params)
  },

  compute_layer = function(self, data, params, layout) {
   data <- params$position$compute_layer(data, params$position_params, layout)
   params$nudge$compute_layer(data, params$nudge_params, layout)
  }
)

然后您可以将您的示例更改为：

df <- data.frame('variable'=rep(c('control','treatment'),each=20),
'value'=c(runif(20, min=0, max=3), rnorm(60)))

ggtest<-ggplot(df,aes(variable, value)) +
geom_point(position=position_nudge_any(x=0.25, y=0, ggbeeswarm::position_beeswarm(priority='random',cex=2.5))
ggtest

​

​