R 中可以有自己的类的对象吗？

Question

我是 R 新手，我想知道是否可以创建自己的类的对象。当我读到“help(class)”时，似乎没有像Java中那样的类是可能的。我的意思是我想要一个带有方法、私有变量和构造函数的类。例如，它可能如下所示：

className <- class {
  # private variables
  var1 <- "standardvalue"

  var2 <- TRUE
  # Constructor
  constructor (v1, v2) {
    var1 <- v1
    var2 <- v2
  }

  # Method 1
  function sum() {
    var1 + var2
  }

  # Method 2
  function product() {
    var1 * var2
  }
}

在我的主程序中，我想创建此类的对象并调用它的函数。例如这样：

# Create Object
numbers <- className(10,7)

# Call functions of the Object
numbers -> sum()      # Should give "17"
numbers -> product()  # Should give "70"

这样的事情可能吗？到目前为止我还没有找到任何例子。

感谢您的帮助。

Answer 1

是的，在基础 R 中有（至少）三个 OO 系统可供选择：

• S3
• S4
• ReferenceClasses

以及通过 CRAN 包（例如 proto）提供的其他类似 OO 的框架。

请对 S3、S4、ReferenceClasses、OO 等进行一些谷歌搜索，可能从 rseek.org 开始。所有 R 编程书籍也涵盖了这一点；我最喜欢的是 Chambers (2008) 题为“数据分析软件”的书。

Answer 2

如果您来自 java，因此习惯于 private 和 public 属性和方法，我建议您使用 R6< /代码> 包。请参阅此链接。从文档中获取的 person 类的一个简单示例如下：

library(R6)
Person <- R6Class("Person",
  public = list(
    name = NA,
    hair = NA,
    initialize = function(name, hair) {
      if (!missing(name)) self$name <- name
      if (!missing(hair)) self$hair <- hair
      self$greet()
    },
    set_hair = function(val) {
      self$hair <- val
    },
    greet = function() {
      cat(paste0("Hello, my name is ", self$name, ".\n"))
    }
  )
)

以下是创建此类实例的方法：

johnDoe <- Person$new("John Doe")
johnDoe$set_hair("brown")

请注意，与 java 方法不同的是，使用 $ 运算符调用在对象之后。