在提取/替换操作期间保留对象属性的方法

最近我在我的R代码中遇到了以下问题。在接受数据框作为参数的函数中，我需要添加（或替换，如果存在）一列，其中包含根据数据框原始列的值计算的数据。我编写了代码，但测试显示数据框提取/替换操作，我用过，结果是对象的特殊（用户定义）属性丢失.

在意识到这一点并通过阅读 R 文档确认该行为之后（http://stat.ethz.ch/R-manual/R-patched/library/base/html/Extract.html http://stat.ethz.ch/R-manual/R-patched/library/base/html/Extract.html），我决定非常简单地解决这个问题 - 通过saving提取/替换操作之前的属性和恢复此后他们：

myTransformationFunction <- function (data) {

  # save object's attributes
  attrs <- attributes(data)

  <data frame transformations; involves extract/replace operations on `data`>

  # restore the attributes
  attributes(data) <- attrs

  return (data)
}

这种方法奏效了。然而，无意中，我看到了另一篇 R 文档（http://stat.ethz.ch/R-manual/R-patched/library/base/html/Extract.data.frame.html http://stat.ethz.ch/R-manual/R-patched/library/base/html/Extract.data.frame.html），恕我直言，它提供了一个有趣的（并且可能是一个更通用的？）替代方法解决同样的问题：

## keeping special attributes: use a class with a
## "as.data.frame" and "[" method:

as.data.frame.avector <- as.data.frame.vector

`[.avector` <- function(x,i,...) {
  r <- NextMethod("[")
  mostattributes(r) <- attributes(x)
  r
}

d <- data.frame(i = 0:7, f = gl(2,4),
                u = structure(11:18, unit = "kg", class = "avector"))
str(d[2:4, -1]) # 'u' keeps its "unit"

如果这里的人们可以通过以下方式提供帮助，我将非常感激：

1. 比较上述两种方法，如果它们具有可比性（我意识到定义的第二种方法是针对数据帧的，但我怀疑它可以推广到任何对象）；

2. 解释第二种方法中函数定义的语法和含义，特别是as.data.frame.avector，以及这条线的目的是什么as.data.frame.avector <- as.data.frame.vector.

我正在回答我自己的问题，因为我刚刚发现了一个SO问题（如何从 data.frame 中删除一行而不丢失属性 https://stackoverflow.com/questions/10404224/how-to-delete-a-row-from-a-data-frame-without-losing-the-attributes），答案涵盖most我上面提出的问题。但是，附加说明（对于 R 初学者） 为了第二种方法仍然会受到赞赏。

UPDATE:

在对以下 SO 问题的回答中提出了该问题的另一种解决方案：索引操作删除属性 https://stackoverflow.com/questions/13432519/indexing-operation-removes-attributes。然而，就我个人而言，我更喜欢这种基于创建新类的方法，因为恕我直言，它在语义上更清晰。