Question

我想知道是否有办法用 ggplot2 来绘制“线外文字”, 例如用小白边线来绘制黑文字, 以便很容易在地图等背景上读取。

最理想的情况是, 我想在Google地图上找到同样类型的标签:

""https://i.stack.imgur.com/vzEQo.png" alt="在这里输入图像描述"/ >

提前感谢任何提示!

Answer 1

执行 < code> shadowtext 函数在 < code> 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)

""https://i.stack.imgur.com/TunlH.png" alt="在这里输入图像描述"/ >

Answer 2

使用 shadowtext 库和使用 geom_shadowtext 而不是 geom_text 来使用 shadowtext

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

“https://i.stack.imgur.com/XbOFb.png' alt='“带有钻石数据集的正字文本”/>

Answer 4

Greg Snow接受的回答不再与[email protected] 有效,因为调用aes 而不是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  )
}

取而代之。

友情链接