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的評論指出這個問題，我想出了這個：

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