r - 在 R 基本图中的文本字段周围放置一个框架

Question

我有一个简单的散点图，我想在其中添加
一些文本字段。此外，我想在它们周围放置一个框架。

这是一个玩具示例:

set.seed(1)
x <- rnorm(10)
y <- rnorm(10)

plot(x,y)

text(0,0,'FRAME ME PLEASE')

Answer 1

如果您以绘图单位计算字符串的宽度和高度，则可以动态执行此操作:

set.seed(1); x <- rnorm(10); y <- rnorm(10); plot(x,y)

txt <- 'FRAME ME PLEASE'
xt <- 0
yt <- 0

text(xt, yt, txt)

sw   <- strwidth(txt)
sh   <- strheight(txt)
frsz <- 0.05

rect(
  xt - sw/2 - frsz,
  yt - sh/2 - frsz,
  xt + sw/2 + frsz,
  yt + sh/2 + frsz
)

值得注意的是，如果指定，这也可以处理宽高计算阶段的cex和字体变化。