如何在直接标签中配置box.color＆＃34; draw.rects＆＃34;？

Question

以下是我的工作示例：

library(ggplot2)
library(directlabels)  # ver 2014.6.13 via r-forge
DF <- expand.grid(z = seq(1, 3001, by=10), k = seq(from=0.5, to=5, by=0.25))

# Defines the function value for each z-k combination
DF$dT <- with(DF, -0.07 * z * (1/2.75 - 1/k))

p <- ggplot(DF, aes(x = z, y = k, z = dT)) +  theme_bw() + 
 stat_contour(aes(colour=..level..), breaks=c(seq(from=-40, to=0, by=5), c(seq(from=5, to=150, by=10))))
angled.boxes <- list("far.from.others.borders","calc.boxes","enlarge.box","draw.rects")
direct.label(p, "angled.boxes")

看起来像这样：

我想将标签的框边框颜色变为“白色”，但我看不出怎么做。在包的新闻中写道：

  

2.5 --- 2012年4月6日

     

draw.rects具有可配置的颜色，默认为黑色。

看到“angled.boxes”是一个包含以下内容的列表：

angled.boxes <- list("far.from.others.borders","calc.boxes","enlarge.box","draw.rects")

我想这是可能的，但是怎么样？

Answer 1

这似乎是一个黑客但它的确有效。我刚刚重新定义了draw.rects函数，因为由于直接标记调用其函数的笨重方式，我无法看到如何将参数传递给它。 （非常像ggplot-functions。我从来不习惯将函数作为字符值。）：

assignInNamespace( 'draw.rects',  
function (d, ...) 
{
    if (is.null(d$box.color)) 
        d$box.color <- "red"
    if (is.null(d$fill)) 
        d$fill <- "white"
    for (i in 1:nrow(d)) {
        with(d[i, ], {
            grid.rect(gp = gpar(col = box.color, fill = fill), 
                vp = viewport(x, y, w, h, "cm", c(hjust, vjust), 
                  angle = rot))
        })
    }
    d
}, ns='directlabels')
dlp <- direct.label(p, "angled.boxes")
dlp

Answer 2

我也得到了包裹作者Toby Hocking的回复。这些都可以起作用：

my.dl <- list(dl.trans(box.color="red"),"draw.rects")
direct.label(p, list("far.from.others.borders","calc.boxes", "enlarge.box", "my.dl"))

或（快捷方式）

my.dl <- list(box.color="red", "draw.rects")
direct.label(p, list("far.from.others.borders","calc.boxes", "enlarge.box", "my.dl"))