r - 在函数输出中打印数据框名称

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的典型用法是为数据集和图创建信息标签。