Question

在R中的图/图的特定位置添加文本。

你好我正在R中进行一系列绘图。我想节省空间，所以我想删除标题，而我以前使用的是“ main”命令。

我想将标题放在图表/图形的顶部中间。

在网上查找时，我发现了不错的代码来放置文本，如此处所示：http://sphaerula.com/legacy/R/placingTextInPlots.html

##  par( "usr" ) returns a vector containing xleft, xright, ybottom, ytop.
usr <- par( "usr" )
##  Place the text. Note the use of the adj parameter.
##  Left top corner:
text( usr[ 1 ], usr[ 4 ], "left top",     adj = c( 0, 1 ), col = "blue" )

##  Left bottom corner:
text( usr[ 1 ], usr[ 3 ], "left bottom",  adj = c( 0, 0 ), col = "blue" )
##  Right top corner:
text( usr[ 2 ], usr[ 4 ], "right top",    adj = c( 1, 1 ), col = "blue" )
##  Right bottom corner:
text( usr[ 2 ], usr[ 3 ], "right bottom", adj = c( 1, 0 ), col = "blue" )

所有这些命令将文本放在特定的角落。我想把它放在中间。有什么建议吗？一种原始的方法是在文本的左上角添加很多空格...但是还有什么更优雅的方法吗？

Answer 1

假设“中间”是指“中心顶部”，则以下内容应该起作用：

text(x = median(c(usr[2], usr[1])), 
     y = usr[4],
     labels = "center top",
     adj = c(.5, 1),
     col = "blue")

在R图形/图中添加文本或标题

1 个答案: