在函数输出中打印数据帧名称

Question

我有一个看起来像这样的函数：

removeRows <- function(dataframe, rows.remove){
  dataframe <- dataframe[-rows.remove,]
  print(paste("The", paste0(rows.remove, "th"), "row was removed from", "xxxxxxx"))
}

我可以使用这样的函数从数据框中删除第 5 行：

removeRows(mtcars, 5)

函数输出此消息：

"The 5th row was removed from xxxxxxx"

如何将 xxxxxxx 替换为我使用过的数据框的名称，所以在这种情况下为mtcars？

Answer 1

您需要在未评估的上下文中访问变量名称。我们可以为此使用substitute：

removeRows <- function(dataframe, rows.remove) {
  df.name <- deparse(substitute(dataframe))
  dataframe <- dataframe[rows.remove,]
  print(paste("The", paste0(rows.remove, "th"), "row was removed from", df.name))
}

其实这就是它的主要用途；根据文档，

substitute 的典型用途是为数据集和绘图创建信息标签。