如何在R代码中从数据框获取输出？附数据分析代码问询

看起来你正在构建自定义的网格对象（StdGrid），并尝试编写直方图计算函数（MHistogramC）来处理它。我来帮你完善代码，并一步步说明如何从这些对象中提取需要的输出结果。

首先，先把你提供的代码整理并补全，确保能正常运行：

library("Matrix")

# 定义你的数据与参数
Data <- list(c(2,3), c(3,2), c(2,2))
TheSizes <- c(3,4)
n <- 2
dd <- 2

# 创建StdGrid类的构造函数
StdGrid <- function(Data, TheSizes) {
  SGrid <- list(
    Values = Data,
    Sizes = TheSizes
  )
  class(SGrid) <- append(class(SGrid), c("StdGrid","Moment"))
  return(SGrid)
}

# 实例化StdGrid对象（你之前漏了传递参数，这里补上）
theObject <- StdGrid(Data, TheSizes)

# 完善MHistogramC函数，实现基于网格的直方图计数逻辑
MHistogramC <- function(theObject, n, dd) {
  sizes <- theObject$Sizes  # 从对象中提取Sizes属性
  l <- length(sizes)
  data <- theObject$Values  # 从对象中提取Values属性
  
  # 初始化Xarray矩阵
  Xarray <- matrix(rep(0, l*n), ncol = n)
  
  # 补全计数矩阵N的初始化，匹配Sizes的维度
  N <- matrix(rep(0, prod(sizes)), nrow = sizes[1], ncol = sizes[2])
  
  # 遍历数据填充计数矩阵
  for (i in seq_along(data)) {
    coords <- data[[i]]
    N[coords[1], coords[2]] <- N[coords[1], coords[2]] + 1
  }
  
  # 返回包含多种输出的结果列表
  return(list(
    CountMatrix = N,
    Xarray = Xarray,
    InputSizes = sizes
  ))
}

# 调用函数获取计算结果
histogramResult <- MHistogramC(theObject, n, dd)

接下来，我们看看具体怎么从对象和函数输出中提取内容：

从StdGrid对象（theObject）中提取基础数据 #

因为theObject本质是带自定义类的列表，你可以用以下方式提取属性：

• 获取值列表：theObject$Values 或者 theObject[["Values"]]
• 获取尺寸向量：theObject$Sizes 或者 theObject[["Sizes"]]
• 查看对象的类：class(theObject)

从MHistogramC函数的输出中提取结果 #

函数返回的是一个结果列表，你可以通过名称直接提取对应内容：

• 获取计数矩阵：histogramResult$CountMatrix
• 获取Xarray矩阵：histogramResult$Xarray
• 获取输入的尺寸参数：histogramResult$InputSizes

举个实际运行的例子，执行完代码后，你可以这样查看输出：

# 查看theObject的Values内容
print(theObject$Values)
# 输出：[[1]] [1] 2 3; [[2]] [1] 3 2; [[3]] [1] 2 2

# 查看最终的计数矩阵
print(histogramResult$CountMatrix)
# 输出：
#      [,1] [,2] [,3] [,4]
# [1,]    0    0    0    0
# [2,]    0    1    1    0
# [3,]    0    1    0    0

如果你想让自定义对象的输出更友好，还可以为StdGrid类编写专属的打印方法：

# 为StdGrid类自定义打印格式
print.StdGrid <- function(x) {
  cat("=== StdGrid Object ===\n")
  cat("Grid Sizes:", x$Sizes, "\n")
  cat("Data Points:\n")
  print(x$Values)
}

# 直接打印对象就会用自定义格式
print(theObject)

内容的提问来源于stack exchange，提问作者A.pinedo