directlabels＆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的評論指向this question我想出了這個：

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

Answer 2

你的代碼只需要適應是theme_set(theme_bw())

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

theme_set(theme_bw()) # added 
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))