稍微向左移动DirectLabel

我试图将我的直接标签稍微向左移动，不是一个组，而是所有组。默认情况下，dl.move一次只移动一个组

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

库（directlabels）
图书馆（GG2）
计数找到了它。简单的

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

虽然不完美，但可以工作，间距与默认值不同。
dl.trans（x=x-0.1）
将所有对象向左移动0.1cm

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

谢谢我知道我的是错的，因为动作不成比例。
direct.label(p, list(dl.trans(x=x-0.1), "first.qp"))