我想添加文本注释，但希望它包裹在一个圆圈周围吗？ 例如，我可以将文本添加到圆圈中的任何地方。这是下面的示例；我画了一条蓝色箭线，指示...

Question

与ggplot2和朋友一起。需要对文本大小，文本间距或情节大小进行一些手动调整，以控制其涵盖的圆圈。

library(ggplot2); library(ggforce); library(geomtextpath)

t = seq(0, 1, length.out = 100) * pi
semi_top <- data.frame(x = cos(t),
                       y = sin(t),
                       label = "1345678910110000000000000000000000")

ggplot() +
  geom_circle(aes(x0=0,y0=0,r=1), fill = "gray70") +
  scale_x_continuous(limits = c(-1.5, 1.5)) +
  geom_textpath(data = semi_top, aes(x,y,label = label), size = 12, vjust = 1.1) +
  coord_fixed(clip = "off") +
  theme_void()

Answer 1

可以在ImageMagick中完成，如下所示，认为不是完美。 i创建一个圆形图像并用白色将其淘汰。然后，我创建具有透明背景的文本图像，并将其划分为180度。然后，我将其通过圆形图像组合。 IM 6的Unix语法如下：

convert -size 500x500 xc:white -fill gray \
-draw "circle 250,250 250,0" -alpha off \
-gravity center -background white -extent 750x750 \
\( -background none -fill black -size x100 \
label:"0123456789000000000000" -distort arc "180 0 300 250" \) \
-gravity south -geometry +0+375 -compose over -composite \
x.png

Answer 2