如果要创建一个带有在右侧标记的重叠点的箱线图。我尝试geom_dl了directlabels包装，但卡住了。
library(ggplot2)
library(directlabels)
set.seed(0)
x <- data.frame(label=LETTERS[1:15],
x="a",
y = rnorm(15))
x$xpos <- as.numeric(x$x) + .25
g <- ggplot(x, aes(x=x, y=y)) +
geom_boxplot(width=.4) +
geom_point(col="blue")
使用方法定位标签不重叠控制last.points。
g + geom_dl(aes(x=xpos, label=label), method = "last.points")
使用last.qp避免重叠的方法失败。
g + geom_dl(aes(x=xpos, label=label), method = "last.qp") # fails
Error in approx(df[, x.var], df[, tiebreak.var], xvals) :
need at least two non-NA values to interpolate
任何想法，如何geom_dl运行或以另一种方式实现适当的放置？
添加在
使用last.bumpup下面建议的@lukeA 方法效果很好。但是，一些标签仍然重叠。有没有办法调整这个？
附加组件 2
我认为只有在使用超过一个级别的因素时才会出现问题x。
set.seed(0)
x <- data.frame(label=LETTERS[1:24],
g1 = c("a"),
g2 = c("a", "b"),
y = rnorm(24))
x$g1 <- as.factor(x$g1)
x$g2 <- as.factor(x$g2)
x$xpos1 <- as.numeric(x$g1) + .25
x$xpos2 <- as.numeric(x$g2) + .25
第一个图的标签位置很好。对于具有两个级别的第二个，重叠仍然存在。
# one group
ggplot(x, aes(x=g1, y=y)) +
geom_boxplot(width=.4) +
geom_point(col="blue") +
geom_dl(aes(x=xpos1, label=label), method= "last.bumpup")
两个级别
# two groups
ggplot(x, aes(x=g2, y=y)) +
geom_boxplot(width=.4) +
geom_point(col="blue") +
geom_dl(aes(x=xpos2, label=label), method= "last.bumpup")
