如何像打印一样格式化对象的字符串表示？

Question

我想将命名的num矢量格式化为字符串，以在图上添加为文本标签。我希望字符串的格式与print相同或相似。是否有像print这样的函数而不是打印到控制台返回一个字符串？这是一个有效的代码片段。我想用包含向量元素名称的函数替换toString。

library(lattice)
lm <- lm(hp ~ disp, mtcars)
xyplot(hp ~ disp, mtcars, type = c('p', 'r'),
    panel = function(...) {
        panel.xyplot(...)
        panel.text(median(mtcars$disp), lm$coefficients[1], toString(lm$coefficients))
    })

谢谢，
肖恩

Answer 1

如果要在绘图区域中绘制文本，则需要使用用户坐标，前两个参数需要为后面的文本向量的x和y位置：

panel.text(x=c( 100,100, 150,150) ,y=c(300, 290, 300, 290), 
           c(  names(lm$coefficients), round(lm$coefficients, 2) )

Answer 2

我认为您要找的是names()（请查看?names）。

返回对象的值标签。