DirectLabel和ggplot2的背景色？

Question

这里是一些测试数据：

y <- c(1:10, 6:15)
b <- c(rep(c("A", "B"), each=10))
x <- 1:10
df <- data.frame(b, x, y)

和一个测试图：

library(ggplot2)
library(directlabels)
p1 <- ggplot(df, aes(x=x, y=y, colour=b)) + geom_line()
direct.label(p1, list("first.points", hjust=-1, vjust=-0.5))

我希望标签的背景为白色（在文本周围的矩形中）。有办法实现吗？我试过fill="white"，colour="white"，background="white"，什么都没有发生..

Answer 1

好了，感谢亨里克（Henrik）对这个问题的评论，我想到了这个：

p1 <- ggplot(df, aes(x=x, y=y, colour=b)) + geom_line()

my.dl <- list(box.color="white", "draw.rects")
direct.label(p1, list("first.points", hjust=-1, vjust=-0.3, "calc.boxes", "my.dl"))