r - 螺旋环绕的文本

Question

我在 LaTeX people wrapping text into a spiral 看到的如下所示。我想在 R 中复制它。



我虽然情节 的 arctext会这样做，但如果有足够的文字，它似乎会形成一个圆圈，如下图(左)所示。我可以制作图中所示的螺旋线(右)，但无法合并文本和螺旋线。



代码

txt <- paste(rep("bendy like spaghetti", 10), collapse=" ")
txt2 <- paste(rep("bendy like spaghetti", 20), collapse=" ")

par(mfrow=c(1, 2), mar=rep(.3, 4)+c(0, 0, 1, 0))

library(plotrix)
plot.new()
plot.window(xlim = c(1, 5), ylim = c(2, 4), asp = 1)
arctext(txt, center = c(3, 3), radius = 1.7, 
  start = 4 * pi / 3, cex = .75, clockwise = FALSE)
title(main = "Arc Text (plotrix)")

theta <- seq(0, 30 * 2 * pi, by = 2 * pi/72)
x <- cos(theta)
y <- sin(theta)
R <- theta/max(theta)
plot.new()
plot.window(xlim = c(-1, 1), ylim = c(-1, 1), asp = 1)
lines(x * R, y * R)
title(main = "A Spiral")

理想情况下，该解决方案适用于长度为 n 的文本，因此 txt和 txt2以上都会形成一个环绕螺旋，但大小不同( txt2 是 txt 长度的两倍)。

联系方式 网格/ ggplot2 欢迎使用基本的grapgics。

Answer 1

不完美但是

txt <- paste(rep("bendy like spaghetti", 10), collapse=" ")
txt2 <- paste(rep("bendy like spaghetti", 20), collapse=" ")
tt <- strsplit(txt, '')[[1]]

xx <- 5
par(mfrow = c(1,2), mar = c(0,0,0,0))
plot(-xx:xx, -xx:xx, type = 'n', axes = FALSE, ann = FALSE)

## option 1
r <- rev(seq(0, xx, length.out = length(tt)))
x <- sqrt(r) * cos(2 * pi * r)
y <- sqrt(r) * sin(2 * pi * r)
text(x, y, tt)

## option 2
plot(-xx:xx, -xx:xx, type = 'n', axes = FALSE, ann = FALSE)
srt <- atan2(y, x) * 180 / pi
for (ii in seq_along(tt))
  text(x[ii], y[ii], tt[ii], srt = srt[ii] - 90)

显然，越靠近中心，字母之间的距离就越小，因此可以改进。

另外我不知道你怎么能调用 text对于 srt 的每个新值从 srt 开始使用这种方法不是正式的论点意味着你不能 Vectorize(text.default, vectorize.args = 'srt') ，但这对于示例数据来说并不是很慢。

此外，您可以制作数据框并将其插入 ggplot .

dd <- data.frame(x, y, srt = srt - 90, tt)
library('ggplot2')
ggplot(dd, aes(x, y)) + geom_text(label = dd$tt, size = 5)
ggplot(dd, aes(x, y)) + geom_text(label = dd$tt, size = 5, angle = dd$srt)