如何修复R函数返回ggplot与dataframe时数据结构被破坏的问题？

你当前的问题出在返回语句c(list(p), dq)上：DataFrame在R中本质是由列向量组成的列表，c()函数会将DataFrame的每一列拆成独立元素合并到结果列表里，导致原本的DataFrame被拆分成了单独的列向量。

下面是两种修复方案：

方案1：统一用列表包裹返回对象 #

直接把ggplot对象和DataFrame一起放入list()中返回，这样能完整保留DataFrame的结构：

library('ggplot2')
library(reshape2) # 原代码用到melt，需加载该包

plotCars <- function(d){
  
  dm <- suppressMessages(melt(d))
  
  p <- ggplot(dm, aes(x=variable, y=value, fill=variable)) +
    geom_boxplot(width=0.2)
  
  q <- quantile(d$dist, prob=c(0.8))
  dq <- d[d$dist > q[1],]
  
  # 用list包裹两个对象，避免拆分DataFrame
  return(list(p, dq))
}

obj <- plotCars(cars)
# 调用ggplot对象（可直接用于ggarrange）
obj[[1]]
# 调用完整的DataFrame
obj[[2]]

方案2：返回命名列表（更推荐） #

给列表元素命名，后续调用时可通过名称直接访问，无需依赖元素顺序，代码可读性更强：

library('ggplot2')
library(reshape2)

plotCars <- function(d){
  
  dm <- suppressMessages(melt(d))
  
  p <- ggplot(dm, aes(x=variable, y=value, fill=variable)) +
    geom_boxplot(width=0.2)
  
  q <- quantile(d$dist, prob=c(0.8))
  dq <- d[d$dist > q[1],]
  
  # 返回带命名的列表
  return(list(boxplot = p, filtered_dist_data = dq))
}

obj <- plotCars(cars)
# 通过名称调用ggplot对象
obj$boxplot
# 通过名称调用完整的DataFrame
obj$filtered_dist_data

修改后，DataFrame的结构会被完整保留，既可以正常将ggplot对象传入ggarrange()，也能对DataFrame进行后续的分析操作。

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