如何返回列的名称而不是它包含的数据？

Question

我试图获取要打印的对象的名称而不是它所代表的值。

这可能吗？例如，如何更改以下as.character（）命令以返回文本＆＃39; foo＆＃39;和＆＃39; bar＆＃39;而不是他们所代表的价值。

custom_plot<-function(X, Y){
plot(X, Y, main =paste("Custom Plot ", as.character(Y), "vs.", as.character(X)))
} 

foo<-c(1,2,3)
bar<-c(2,4,5)

custom_plot(foo, bar) 
#Should make a plot with title of "Custom Plot foo vs. bar"

Answer 1

我们可以使用substitute

custom_plot<-function(X, Y){
  plot(X, Y, main =paste("Custom Plot ", substitute(Y), "vs.", substitute(X)))
}