grep数据帧的一部分，并用作绘图中的标题

Question

如何获取数据框的名称

mydf.mtcars<-mtcars

并grep .之后的所有内容，即mtcars，然后将其用作情节中的标题？

这相当于做

plot(mydf.mtcars,main="mydf")

由于

Answer 1

您可以使用deparse和substitute获取data.frame的名称。然后使用一些正则表达式删除名称中的extrat部分。

例如：

sub('(.*)[.].*','\\1',deparse(substitute(mydf.mtcars)))
[1] "mydf"

Answer 2

同意两个先前的答案，但会将其包装在一个函数中：

plotname <- function(d) {titl <- deparse(substitute(d)); 
                         plot(d, main=sub("[.].+$", "", titl) )}
plotname(mydf.mtcars)

Answer 3

> gsub("\\..*","",deparse(substitute(mydf.mtcars)))
[1] "mydf"