學習筆記，僅供參考，有錯必糾

參考自：《R的極客理想》-- 張丹

---

文章目錄

• • R開發(fā)
  • • 基于S4的面向對象編程
    • • 創(chuàng)建S4對象
      • 訪問S4對象的屬性
      • S4的泛型函數(shù)
      • 查看S4對象的函數(shù)

---

R開發(fā)

基于S4的面向對象編程

S4對象系統(tǒng)是一種R語言面向對象實現(xiàn)方式，S4對象有明確的類定義、參數(shù)定義、參數(shù)檢查、繼承關系、實例化、接口函數(shù)、實現(xiàn)函數(shù)等面向對象系統(tǒng)的特征。

創(chuàng)建S4對象

• setClass函數(shù)

S4對象系統(tǒng)有專門的類定義函數(shù)setClass和類的實例化函數(shù)new，我們先看看setClass的語法。

setClass語法：

setClass(Class, representation, prototype, contains=character(),validity, access, where, version, sealed, package,S3methods = FALSE, slots)

setClass參數(shù)表：

參數(shù)含義

Class	定義類名
slots	定義屬性和屬性類型
prototype	定義屬性的默認值
contains=character()	定義父類，繼承關系
validity	定義屬性的類型檢查
where	定義存儲空間
sealed	如果設置TRUE，則同名類不能被再次定義
package	定義所屬的包

• 創(chuàng)建一個S4對象實例

通過setClass函數(shù)定義類的結構，再通過new函數(shù)來實例化類對象：

#定義一個S4對象 setClass("Person", slots = list(name = "character", age = "numeric"))#實例化一個Person對象 father <- new("Person", name = "F", age = 50) father #輸出start An object of class "Person" Slot "name": [1] "F"Slot "age": [1] 50 #輸出endclass(father) #輸出start [1] "Person" attr(,"package") [1] ".GlobalEnv" #輸出endotype(father) #"S4"

• 創(chuàng)建一個有繼承關系的S4對象

如果需要創(chuàng)建有繼承關系的S4對象，可以通過setClass函數(shù)的contains屬性來設置父類：

#定義一個S4對象Person setClass("Person", slots = list(name = "character", age = "numeric"))#定義一個S4對象Son, 繼承Person setClass("Son", slots = list(father = "Person", mother = "Person"), contains = "Person")#實例化一個Person對象 father <- new("Person", name = "F", age = 50) mother <- new("Person", name = "M", age = 51)#實例化一個Son對象 son <- new("Son", name = "S", age = 22, father = father, mother = mother)son@name #"S" son@age #22 son@father #輸出start An object of class "Person" Slot "name": [1] "F"Slot "age": [1] 50 #輸出end#查看son對象的mother屬性 slot(son, "mother") #輸出start An object of class "Person" Slot "name": [1] "M"Slot "age": [1] 51 #輸出end# 檢查son類型 otype(son) #"S4" # 用isS4()檢查S4對象的類型 isS4(son) #TRUE #檢查son@mother屬性類型 otype(son@mother) #"S4"

• S4對象的默認值

通過setClass函數(shù)的prototype屬性給屬性字段中定義的參數(shù)設置默認值：

#定義一個S4對象Bunny setClass("Bunny", slots = list(name = "character", age = "numeric"),prototype = list(age = 20))b <- new("Bunny", name = "Huang") b #輸出start An object of class "Bunny" Slot "name": [1] "Huang"Slot "age": [1] 20 #輸出end

• S4對象的類型檢查

通過setValidity函數(shù)給屬性字段中定義的參數(shù)設置類型檢查：

#定義一個S4對象Person setClass("Person", slots = list(name = "character", age = "numeric"))setValidity("Person", function(object) {if (object@age <= 0 | object@age >= 100) {stop("年齡非法")} })p <- new("Person", name = "T", age = -1) #報錯start Error in validityMethod(object) : 年齡非法 #報錯end

• 從一個已實例化的對象中創(chuàng)建新對象

S4對象還支持從一個已實例化的對象中創(chuàng)建新對象，創(chuàng)建時可以覆蓋對象的值：

# 創(chuàng)建一個對象實例n1 n1 <- new("Person", name="n1", age=19) # 從實例n1中創(chuàng)建實例n2，并修改name的屬性值 n2<-initialize(n1, name="n2")n1 #輸出start An object of class "Person" Slot "name": [1] "n1"Slot "age": [1] 19 #輸出endn2 #輸出start An object of class "Person" Slot "name": [1] "n2"Slot "age": [1] 19 #輸出end

訪問S4對象的屬性

在S3對象中，一般我使用$來訪問一個對象的屬性。但在S4對象中，我們只能使用@來訪問一個對象的屬性。

#定義一個S4對象 setClass("Person", slots = list(name = "character", age = "numeric"))#實例化一個Person對象 father <- new("Person", name = "F", age = 50) #訪問S4對象的屬性 father@name #"F" slot(father, "name") #"F"

S4的泛型函數(shù)

S4的泛型函數(shù)實現(xiàn)有別于S3的實現(xiàn)，S4分離了方法的定義和實現(xiàn)，如在其他語言中我們常說的接口和實現(xiàn)分離。通過setGeneric來定義接口，通過setMethod來定義實現(xiàn)函數(shù)。

普通函數(shù)的定義和調用：

work <- function(x) cat(x, "is working") work("Huang") #Huang is working

S4的泛型函數(shù)：

#定義一個Person類 setClass("Person", slots = list(name = "character", age = "numeric")) #定義泛型函數(shù)work,即接口 setGeneric("work", function(object) standardGeneric("work")) #定義work的實現(xiàn)函數(shù),并指定參數(shù)類型為Person類的對象 setMethod("work", signature(object = "Person"), function(object) cat(object@name, "is working"))p <- new("Person", name = "p1", age = 18) work(p) #p1 is working

通過S4對象系統(tǒng)，把原來的函數(shù)定義及調用過程從2步變成4步：

• 定義S4類；
• 定義接口函數(shù)；
• 定義實現(xiàn)函數(shù)；
• 把對象以參數(shù)傳入接口函數(shù)，執(zhí)行實現(xiàn)函數(shù)。

查看S4對象的函數(shù)

當我們使用S4對象進行面向對象封裝后，我們還需要能查看S4對象的定義和函數(shù)定義.

R>#檢查work的類型 R>ftype(work) [1] "s4" "generic" R>#直接查看work函數(shù) R>work standardGeneric for "work" defined from package ".GlobalEnv"function (object) standardGeneric("work") <environment: 0x0000000012708a68> Methods may be defined for arguments: object Use showMethods("work") for currently available ones. R>#查看work函數(shù)的現(xiàn)實定義 R>showMethods(work) Function: work (package .GlobalEnv) object="Person"R>#查看Person對象的work函數(shù)現(xiàn)實 R>getMethod("work", "Person") Method Definition:function (object) cat(object@name, "is working")Signatures:object target "Person" defined "Person" R>#檢查Person對象有沒有work函數(shù) R>existsMethod("work", "Person") [1] TRUE

總結

以上是生活随笔為你收集整理的R开发(part11)--基于S4的面向对象编程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。