r - ジッターが異なる異なるx値を持つggplotグラフを作成するにはどうすればよいですか?

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)

abruh のコメントに基づいて更新されました。