在R语言中，如何更优雅地随函数输出展示描述性信息？

你可以通过直接在函数内控制输出格式，替代返回列表的方式，实现更美观的结果展示。以下是两种实用方案：

方案1：仅展示格式化输出 #

直接使用cat()打印描述文本，配合print()输出结果，就能得到你想要的格式：

setdiff2 <- function(x, y){
  x_name <- deparse(substitute(x))
  y_name <- deparse(substitute(y))
  
  # 计算两组差异
  x_not_y <- setdiff(x, y)
  y_not_x <- setdiff(y, x)
  
  # 按指定格式输出
  cat(paste("In", x_name, "but not in", y_name, ":"), "\n")
  print(x_not_y)
  cat("\n") # 空行分隔两组结果
  cat(paste("In", y_name, "but not in", x_name, ":"), "\n")
  print(y_not_x)
}

vec1 <- c("A", "B", "C")
vec2 <- c("B", "C", "D")
setdiff2(vec1, vec2)

运行后输出：

In vec1 but not in vec2 :
[1] "A"

In vec2 but not in vec1 :
[1] "D"

方案2：兼顾格式化展示与结果返回 #

如果需要后续继续使用函数计算出的差异结果，可以让函数在输出美观格式的同时，返回一个结构化的列表（用invisible()避免重复打印返回值）：

setdiff2 <- function(x, y){
  x_name <- deparse(substitute(x))
  y_name <- deparse(substitute(y))
  
  x_not_y <- setdiff(x, y)
  y_not_x <- setdiff(y, x)
  
  # 打印格式化信息
  cat(paste("In", x_name, "but not in", y_name, ":"), "\n")
  print(x_not_y)
  cat("\n")
  cat(paste("In", y_name, "but not in", x_name, ":"), "\n")
  print(y_not_x)
  
  # 返回结构化结果，不自动打印
  invisible(list(
    x_not_in_y = x_not_y,
    y_not_in_x = y_not_x
  ))
}

# 调用函数并保存结果
result <- setdiff2(vec1, vec2)
# 后续可直接使用返回的结果
result$x_not_in_y

这种方式既满足了展示需求，又保留了函数的实用性，不会丢失计算结果。

内容的提问来源于stack exchange，提问作者ScottyJ