создать вертикально неперекрывающиеся метки рядом с графиком с помощью ggplot2

Если вы хотите создать коробчатую диаграмму с наложенными точками, которые помечены справа. Я пробовал 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")

Позиционируйте метки без контроля перекрытия с помощью метода _4 _. < / а>

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")