Точки дрожания в ggplot2, когда границы графика установлены

Question

У меня есть ggplot с фиксированными метками и фиксированными пределами, установленными в scale_x_continuous.Тогда возникает проблема, когда я хочу применить дрожание:

library(ggplot2)

dat <- data.frame(
  x = rep(c(1, 2), 5),
  y = 1:10
)

gg <- ggplot(dat, aes(x,y)) + geom_jitter(width = 0.5)
gg + 
  scale_x_continuous(breaks = pretty(dat$x), limits = c(1,2))

Проблема заключается в том, что точки дрожания не появляются за пределами границ.Есть ли способ джиттер точек, чтобы обновить пределы?Или я должен вручную обновлять пределы в соответствии с шириной дрожания?

Answer 1

Возможно, это можно решить путем применения дрожания перед ggplot таким образом, чтобы данные после дрожания могли определять вашу ось:

library(dplyr)
dat2 <- dat %>%
  mutate(x2 = jitter(x, amount = 0.3))

ggplot(dat2, aes(x2,y)) + 
  geom_point() + 
  scale_x_continuous(breaks = pretty(dat2$x2), 
                     limits = range(dat2$x2))