使用ggplot2概述文本

Question

我想知道是否有办法用ggplot2绘制“轮廓文字”，例如带有白色小边框的黑色文字，以便在地图等背景上轻松阅读。

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

提前感谢任何提示！

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)

Answer 2

更简单的解决方案是使用shadowtext库并使用geom_shadowtext代替geom_text

Answer 3

不理想或非常灵活，但您可以通过绘制粗体单声道文本，然后在顶部绘制标准单声道文字来获得效果。

我使用了绿色面板背景来模拟地图。

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

(p <- ggplot(d, aes(carat, price)) +
  geom_text(
    aes(label = cut, family = "mono", fontface = "bold"), 
    size = 12, 
    colour = "black"
  ) +
  geom_text(
    aes(label = cut, family = "mono"), 
    size = 12, 
    colour = "white"
  ) +
  opts(panel.background = theme_rect(fill = "green"))
)

Answer 4

由于ggplot2@2.2.1而非aes的召唤，Greg Snow接受的答案不再适用于aes_q。

使用

for(i in theta) {
  p <- p + geom_text( 
    aes_q(x = bquote(carat+.(cos(i)*xo)),
          y = bquote(price+.(sin(i)*yo)),
          label = ~cut), 
    size=12, colour='black' )
}

代替。