下面是一个可重复使用的例子:
library(ggplot2)
library(ggbeeswarm)
ggplot(mtcars, aes(x = factor(am), y = mpg, color = factor(am))) +
geom_quasirandom(pch = 15, size= 6, alpha=0.7) +
geom_text(aes(label = gear),
position = position_jitter(width = 0.1, height = 0),
vjust = -0.5,
size = 3)
这段代码生成以下图:
我的问题是:我如何才能准确地将数字定位在这个图上的正方形内？
也可以通过将种子设置为position_jitter来实现这一点
library(ggplot2)
ggplot(mtcars, aes(x = factor(am), y = mpg, color = factor(am))) +
geom_point(shape = 15, size = 6, alpha = 0.7,
position = position_jitter(width = 0.25, height = 0, seed = 31)) +
geom_text(aes(label = gear),
position = position_jitter(width = 0.25, height = 0, seed = 31),
size = 3, color = "black")
