r - 带有 ggplot2 的轮廓文本

Question

我想知道是否有一种方法可以使用 ggplot2 绘制“轮廓文本”，例如带有白色小边框的黑色文本，以使其在 map 等背景上易于阅读。

理想情况下，我希望获得与您在 Google map 上看到的相同类型的标签:



提前感谢您的任何提示!

Answer 1

这是一种实现 shadowtext 中的一般思想的方法。 TeachingDemos 中的函数包裹。中间部分的代码可以包装成一个函数来简化一些事情。这个例子是从 Richie Cotton 的回答中公然窃取的:

d <- diamonds[sample(nrow(diamonds), 10), ]  


p <- ggplot(d, aes(carat, price) ) 
theta <- seq(pi/8, 2*pi, length.out=16)
xo <- diff(range(d$carat))/200
yo <- diff(range(d$price))/200
for(i in theta) {
    p <- p + geom_text( 
        bquote(aes(x=carat+.(cos(i)*xo),y=price+.(sin(i)*yo),label=cut)), 
                    size=12, colour='black' )
}
p <- p + geom_text( aes(label=cut), size=12, colour='white' )
p <- p + opts( panel.background=theme_rect(fill='green' ) )
print(p)