r - directlabels を少し左に移動

Question

1 つのグループではなくすべてのグループで、直接ラベルを少しだけ左に移動しようとしています。デフォルトでは、dl.move は一度に 1 つのグループのみを移動します。

library(directlabels)
library(ggplot2)

count <- c(1,5,6,7,8,8)
year <- c(rep(c(2000,2001,2002),2))
group <- c(rep("A",3),rep("B",3))
c <- data.frame(year,count,group)

p <- ggplot(c, aes(x=year, y=count, colour=group)) + geom_line()

direct.label(p, "first.points")

1 点を移動できます...

kif <- dl.move("A", hjust=2, vjust=0)
direct.label(p, list("first.points",kif))

しかし、理想的には、すべてを同じ時間だけ移動したいだけです。私が完全に見逃したばかげた構文はありますか?

Answer 1

dl.trans(x=x-0.1)すべてを左に 0.1cm 移動します。

direct.label(p, list(dl.trans(x=x-0.1), "first.qp"))

Answer 2

それを見つけた。シンプルな

direct.label(p, list("first.points",hjust=2, vjust=0)) 

完璧ではありませんが、機能します。間隔はデフォルトのように均一ではありません。