如何以相同的幅度抖动 geom_line 和 geom_point？

Question

我有一个ggplot2线图，其中两条线有明显的重叠。 我正在尝试使用position_jitterdodge()以便它们更明显，但我无法以相同的方式获得指向这两个抖动的线条和点。 我试图仅在水平方向上抖动点和线（因为我不想建议在 y 轴上进行任何更改）。 这是一个 MWE：

## Create data frames
dimension <- factor(c("A", "B", "C", "D"))
df <- data.frame("dimension" = rep(dimension, 2),
                 "value" = c(20, 21, 34, 32,
                             20, 21, 36, 29),
                 "Time" = c(rep("First", 4), rep("Second", 4)))
## Plot it
ggplot(data = df, aes(x = dimension, y = value,
                      shape = Time, linetype = Time, group = Time)) +
    geom_line(position = position_jitterdodge(dodge.width = 0.45)) +
    geom_point(position = position_jitterdodge(dodge.width = 0.45)) +
    xlab("Dimension") + ylab("Value")

这产生了丑陋的：

我显然在这里有一些根本性的错误：我应该怎么做才能使geom_point抖动跟随geom_line抖动？

Answer 1

仅水平的另一个选项是指定position_dodge并将其传递给每个 geom 的position参数。

pd <- position_dodge(0.4)

ggplot(data = df, aes(x = dimension, y = value,
                      shape = Time, linetype = Time, group = Time)) +
  geom_line(position = pd) +
  geom_point(position = pd) +
  xlab("Dimension") + ylab("Value")

Answer 2

一种解决方案是手动抖动点：

df$value_j <- jitter(df$value)

ggplot(df, aes(dimension, value_j, shape=Time, linetype=Time, group=Time)) +
  geom_line() +
  geom_point() +
  labs(x="Dimension", y="Value")

离散 X 轴的水平解决方案并不那么干净（当 ggplot2 这样做时，它在封面下很干净，因为它可以很好地为您处理轴和点变换）但它是可行的：

df$dim_j <- jitter(as.numeric(factor(df$dimension)))

ggplot(df, aes(dim_j, value, shape=Time, linetype=Time, group=Time)) +
  geom_line() +
  geom_point() +
  scale_x_continuous(labels=dimension) +
  labs(x="Dimension", y="Value")

Answer 3

2017 年 7 月， ggplot2开发者在position_jitter函数上添加了一个seed参数（ https://github.com/tidyverse/ggplot2/pull/1996 ）。

因此，现在（此处： ggplot2 3.2.1 ）您可以将参数seed传递给position_jitter以便在geom_point和geom_line具有相同的jitter效果（请参阅官方文档： https : geom_line .html )

请注意， geom_jitter （尚）不存在此seed参数。

ggplot(data = df, aes(x = dimension, y = value,
                      shape = Time, linetype = Time, group = Time)) +
  geom_line(position = position_jitter(width = 0.25, seed = 123)) +
  geom_point(position = position_jitter(width = 0.25, seed = 123)) +
  xlab("Dimension") + ylab("Value")