Как мне сделать график ggplot с разными значениями x с разным джиттером?

Question

Если я хочу создать дрожание точек, но моя ось x имеет неравные интервалы, как это:

library(ggplot2)
ggplot(ToothGrowth, aes(x=dose, y=len)) + geom_point()

как я могу изменять ширинуджиттера при разных значениях оси x, поэтому я не получаю перекрытие как это?

ggplot(ToothGrowth, aes(x=dose, y=len)) + geom_jitter(width = 0.3,size = 4)

Я хочу, например, способчтобы сделать джиттер суженным на 0,5, шире на 1 и самым широким на 2.

Answer 1

Грязным способом может быть дрожание дозы перед построением графика:

JitterSize <- rep(c(1.5, 3, 6), table(ToothGrowth$dose))
ToothGrowth $ Jitter <- jitter(ToothGrowth $ dose, JitterSize)
ggplot(data = ToothGrowth, 
       aes(x = Jitter, y=len, color = as.character(dose))) + 
geom_point(size = 4)

Обновлено на основе комментариев Абруха.