geom_points的选择性抖动

Question

我有一个ggplot，其中一些点与其他一些点重叠。我想知道是否有办法将这些要点放在另一个之上。就我而言，最多有2个重叠点。

x=c(1,1,2,3,4,4)
y=c('a1','a1','a2','a3','a4','a4')
type = c('A','B','C','A','B','C')

data = as.data.frame(cbind(x,y,type))

ggplot() + geom_point(data = data, aes(x=x,y=y, color = type, fill = type), size = 2, shape = 25)

在这里，我们看到x=1 and y=a1的点type A位于type B的下方，但理想情况下，我希望Type B垂直移动一点。

如果使用抖动，则所有事物都会移位，包括没有重叠的点。

Answer 1

我们可以使用duplicated或任何类似的函数来检测重叠，然后我们可以将jitter与R索引一起使用以选择性地应用抖动。

我将其写为函数：

selective_jitter <- function(x, # x = x co-ordinate
                             y, # y = y co-ordinate 
                             g  # g = group
                             ){
  x <- as.numeric(x)
  y <- as.numeric(y)
  a <- cbind(x, y)
  a[duplicated(a)] <- jitter(a[duplicated(a)], amount = .15) # amount could be made a parameter

  final <- cbind(a, g)
  return(final)
}


data <- as.data.frame(selective_jitter(data$x, data$y, data$type))

ggplot() + geom_point(data = data, aes(x=x,y=y, color = g, fill = type), size = 2, shape = 25)

有很多方法可以不同地编写或调整它。例如，我认为一个很好的调整是为amount的{​​{1}}选项添加一个可选参数。

另一个可能的改进是使用游标卡尺来查找（近）重复项和精确重复项（而jitter()只会找到精确重复项）。

最后的注释-有时我这样做时喜欢使用半透明的颜色而不是duplicated。仅当序列（jitter）的数量较少时，此变体才能很好地起作用，以便您可以执行以下操作：将黄色的1个序列，蓝色的1个序列，然后将它们的重叠部分设为绿色（在堆栈溢出），以证明您是否有兴趣。

Answer 2

以另一种方式转换y值。基本思想类似于Hack-R：

library(data.table)
setDT(data)
data[, y2 := as.numeric(y) + 0.2* (rowid(y) - 1)]

ggplot() +
    geom_point(data = data,
               aes(x=x,y=y2, color = type, fill = type),
               size = 2, shape = 25) +
    scale_y_continuous(breaks = seq_len(uniqueN(data$y)), labels = levels(data$y))

注意：我假设y是一个因素，如您的示例所示。否则，您可以使用y将data$y <- factor(data$y)从字符转换为因数。