R語言S3類的理解與構建

来源:https://www.cnblogs.com/ywliao/archive/2018/07/10/9285778.html
-Advertisement-
Play Games

R語言類 R語言的類有S3類和S4類，S3類用的比較廣，創建簡單粗糙但是靈活，而S4類比較精細，具有跟C++一樣嚴格的結構。這裡我們主要講S3類。 S3類的結構 S3類內部是一個list，append某個list類名稱，就能成為該類。list裡面的內容就是我們所說的屬性. 首先創建一個list 獲得 ...


R語言類

R語言的類有S3類和S4類，S3類用的比較廣，創建簡單粗糙但是靈活，而S4類比較精細，具有跟C++一樣嚴格的結構。這裡我們主要講S3類。

S3類的結構

S3類內部是一個list，append某個list類名稱，就能成為該類。list裡面的內容就是我們所說的屬性.
首先創建一個list

me <- list(seq = "ATGC", length = nchar("ATGC"))
me
$seq
[1] "ATGC"

$length
[1] 4

現在me這個list只屬於list類

me
$seq
[1] "ATGC"

$length
[1] 4

attr(,"class")
[1] "list"   "DNAseq"

然後我們append 一個類名"DNAseq"，就這樣我們創建了一個DNAseq類，類的屬性有seq和length，值為ATGC和4

class(me) <- append(class(me), "DNAseq")
class(me)
[1] "list"   "DNAseq"

我們可以通過普通的list的方法來獲得類的屬性，比如

me$seq
[1] "ATGC"
me$length
[1] 4

S3類的創建

簡單直接的構建方法

依據剛纔的類的結構，我們用函數進行類的構建，函數的輸入是要傳入進行類的初始化的值，而函數的返回就是新生成的類。這樣我們就可以根據不同的初始化值進行類的實例化。
首先構造一個類

# Straight forward approach
DNAseq <- function(seq = "ATGCATGCATGCATGCATGC"){
  me <- list(
    seq = seq,
    length = nchar(seq)
  )
  # Set the name for the class
  class(me) <- append(class(me), "DNAseq")
  return(me)
}

類的實例

seq1 <- DNAseq()
seq1

$seq
[1] "ATGCATGCATGCATGCATGC"

$length
[1] 20

attr(,"class")
[1] "list"   "DNAseq"

局部環境構建類的方法

當然本質還是list，但是巧妙的利用了函數運行時的局部環境。函數運行時，內部的環境是和外界隔離的，在函數內創建的變數不會影響函數外。而這種方法巧妙的取出了這個內部環境的指針，並且將它放到了list裡面。最後append類名。在環境裡面存放了list的指針，而在list裡面又存放了環境的指針。之所以內部環境沒有消失，我猜想是因為返回的類裡面具有環境的指針的引用，所以記憶體沒有釋放，是一個智能指針，當然，我沒有對這深究。這次屬性並不是直接存放在list裡面，而是存放在函數裡面的環境中。而list裡面放著：方法和當前環境的指針。assign是對環境中某個變數賦值，可以用get函數中獲得環境中變數的值。

# Local enviroment approach
DNASeq <- function(seq = "ATGCATGCATGCATGCATGC"){
  ## Get the enviroment for this
  thisEnv <- environment()
  
  seq <- seq
  length <- nchar(seq)
  
  ## Create the list used to represent the
  ## object for this class
  me <- list(
    ## Define the enviroment where this list is defined so
    ## that I can refer to it
    thisEnv = thisEnv,
    
    ## Method to refer to the current enviroment
    getEnv = function(){
      return(get("thisEnv", thisEnv))
    }
  )
    
    ## Define the value of list within the 
    ## current enviroment
    assign("this", me, envir = thisEnv)
    
    ##Set the name for the class
    class(me) <- append(class(me), "DNASeq")
    return(me)
}

實例化

seq2 <- DNASeq()
seq2
$thisEnv
<environment: 0x8e86a20>

$getEnv
function () 
{
    return(get("thisEnv", thisEnv))
}
<environment: 0x8e86a20>

$getseq
function () 
{
    return(get("seq", thisEnv))
}
<environment: 0x8e86a20>

$reverseComplement
function () 
{
    print("Calling the reverseComplement function of DNASeq class")
    to_base <- c("A", "T", "G", "C")
    names(to_base) <- c("T", "A", "C", "G")
    trans_seq_vect <- to_base[unlist(strsplit(get("seq", thisEnv), 
        split = ""))]
    trans_rev_vect <- trans_seq_vect[length(trans_seq_vect):1]
    newseq <- paste0(trans_rev_vect, collapse = "")
    return(DNASeq(newseq))
}
<environment: 0x8e86a20>

attr(,"class")
[1] "list"   "DNASeq"

獲得裡面的seq屬性的值，這裡使用get獲得環境中的變數的值

get("seq", seq2$getEnv())
[1] "ATGCATGCATGCATGCATGC"

當然，如果使用這種方法生成的類，我們獲得屬性通常不再函數外用get，因為這樣並不像面向對象的用法，我們會在給類一個方法，某個類調用這個方法之後就可以獲得某個屬性的值，比如可以在list中再寫一個函數，getseq，就等於get("seq", thisEnv)，這樣就可以面向對象的使用seq2$getseq()來獲得seq屬性。當我們列表中添加方法時，註意應該用遵循列表的格式，用",”分開不同的方法或者不同的值。

創建方法

類中除了含有屬性外，肯定還得含有方法。上面我們講到用局部環境變數創建S3類時可以在list裡面存放方法。當然還有一種比較普遍的，在兩種方式創建的S3類中都能使用的創建方法的途徑。使用某方法.某類來創建某類的方法。比如print.gg就是對gg類的print的方法。但是在創建這種方法之前我們首先得用這個方法的名字創建一個函數，這樣運行函數時首先進入這個函數，然後在函數裡面使用useMethod函數，在環境中尋找該類的該方法。雖然下麵的代碼比較複雜，但是重點時看UseMethod。

# Creating methods
reverseComplement <- function(object){
  UseMethod("reverseComplement", object)
}
reverseComplement.default <- function(object){
  print("The class of this object can not be found")
}

# Straight forward approach
#
# For S3 classes created by Straight forward approach
reverseComplement.DNAseq <- function(object){
  print("Calling the reverseComplement function of DNAseq class")
  ## Compelement according to the vector below
  to_base <- c("A", "T", "G", "C")
  names(to_base) <- c("T", "A", "C", "G")
  ## Transform long charactor to vector and complement
  trans_seq_vect <- to_base[unlist(strsplit(object$seq, split = ""))]
  ## Reverse
  trans_rev_vect <- trans_seq_vect[length(trans_seq_vect):1]
  ## Collape to long character
  newseq <- paste0(trans_rev_vect, collapse = "")
  # Return a new DNAseq class
  return(DNAseq(newseq))
}

# For S3 classed created by local enviroment approach
reverseComplement.DNASeq <- function(object){
  print("Calling the reverseComplement function of DNASeq class")
  ## Compelement according to the vector below
  to_base <- c("A", "T", "G", "C")
  names(to_base) <- c("T", "A", "C", "G")
  ## Transform long charactor to vector and complement
  trans_seq_vect <- to_base[unlist(strsplit(get("seq", seq2$getEnv()), split = ""))]
  ## Reverse
  trans_rev_vect <- trans_seq_vect[length(trans_seq_vect):1]
  ## Collape to long character
  newseq <- paste0(trans_rev_vect, collapse = "")
  # Return a new DNASeq class
  return(DNASeq(newseq))
}

上面還有一個default函數，表示預設的方法，如果該類找不到該類匹配的方法，就會使用預設方法。

類繼承

S3類可以使用繼承，在原來類的基礎上再append一個新的類名即為新的類，用NextMethod可以調用下一層類的方法。
創建一個primer類繼承DNAseq類

#inheritance 
Primer <- function(seq = "ATGCATGCATGCATGCATGCGGCC"){
  pr <- strtrim(seq, 20)
  me <- DNAseq(pr)
  class(me) <- append(class(me), "Primer")
  return(me)
}
Primer1 <- Primer()
Primer1
$seq
[1] "ATGCATGCATGCATGCATGC"

$length
[1] 20

attr(,"class")
[1] "list"   "DNAseq" "Primer"

調用方法的時候會按照從左到右的順序，再這個例子中，預設先調用DNAseq的方法，如果想要調用Primer類的方法，首先寫一個Primer的reverseComplement方法

# Creating methods 
reverseComplement.Primer <- function(object){
  print("Running reverseComplement of Primer class")
}

然後在DNAseq類中調用下一類的方法，使用NextMethod

reverseComplement.DNAseq <- function(object){
  print("Calling the reverseComplement function of DNAseq class")
  NextMethod("reverseComplement", object)
  ## Compelement according to the vector below
  to_base <- c("A", "T", "G", "C")
  names(to_base) <- c("T", "A", "C", "G")
  ## Transform long charactor to vector and complement
  trans_seq_vect <- to_base[unlist(strsplit(object$seq, split = ""))]
  ## Reverse
  trans_rev_vect <- trans_seq_vect[length(trans_seq_vect):1]
  ## Collape to long character
  newseq <- paste0(trans_rev_vect, collapse = "")
  # Return a new DNAseq class
  return(DNAseq(newseq))
}

reverseComplement(Primer1)
[1] "Calling the reverseComplement function of DNAseq class"
[1] "Running reverseComplement of Primer class"
$seq
[1] "GCATGCATGCATGCATGCAT"

$length
[1] 20

attr(,"class")
[1] "list"   "DNAseq"
reverseComplement(seq1)
[1] "Calling the reverseComplement function of DNAseq class"
[1] "The class of this object can not be found"
$seq
[1] "GCATGCATGCATGCATGCAT"

$length
[1] 20

attr(,"class")
[1] "list"   "DNAseq"

您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • java實現安全證書相關操作
    https://blog.csdn.net/zhushanzhi/article/details/77864516 版權聲明：本文為博主原創文章，未經博主允許不得轉載。 版權聲明：本文為博主原創文章，未經博主允許不得轉載。 [java] view plain copy package test; i ...
  • Java基礎——數據結構總結
    目的 : 加強類與對象的記憶體分配理解，加強操作能力、理解數據結構。 結構 : 數據元素之間的關係。 數據結構 : 帶有結構的數據對象。 線性結構: 各數據元素之間的邏輯以用一個線性序列簡單的表達出現。反之為非線性結構。 按邏輯結構分為 : 線性結構與非線性結構。 線性結構包括：線性表－數組（順序表） ...
  • Python學習之路—2018/7/10
    Python學習之路—2018/7/10 博客開發項目流程 ​ 一般來說，一個項目的開發流程分為：項目需求、設計表結構、功能開發、測試功能、產品上線，本次學習以博客園為藍本進行開發。 1.項目需求 博客的開發的需求主要有以下幾點： 基於auth模塊和Ajax實現登錄驗證 基於forms組件和Ajax ...
  • 廖老師的Python教程——安裝Python
    因為Python是跨平臺的，它可以運行在Windows、Mac和各種Linux/Unix系統上。在Windows上寫Python程式，放到Linux上也是能夠運行的。 要開始學習Python編程，首先要把Python安裝到電腦里。安裝後，可以得到Python解釋器（就是負責運行Python程式的）， ...
  • 廖老師的Python教程——Python簡介
    一直想瞭解下Python，今兒在外面辦事排隊的時候，打開了廖老師的官網，找到了Python教程。雖然只是一篇關於Python的簡介，但是通過將Python的特性與C進行對比，很生動地歸納了Python的一些特性。因為之前花過時間學習C，所以能夠很容易地體會到Python的特性。上學期通過廖老師的教程 ...
  • 【獨家】終生受用的Redis高可用技術解決方案大全
    最近很多朋友向我咨詢關於高可用的方案的優缺點以及如何選擇合適的方案線上使用，剛好最近在給宜人貸，光大銀行做企業內訓的時候也詳細講過，這裡我再整理髮出來，供大家參考，如有不妥之處，歡迎批評指正，也歡迎推薦更好的技術方案。不廢話了，來看看方案吧～ 總綱： Redis常見的幾種主要使用方式： Redis ...
  • java中boolean類型占幾個位元組
    java的基本數據類型中，boolean只有兩種狀態，預設值為false.取值範圍是{true,false}，理論上占1bit，實際上： 1.單個的boolean 類型變數在編譯的時候是使用的int 類型。 boolean a=true;//這個a在JVM中占4個位元組即：32位。 2.boolean ...
  • python日記-使用隊列寫出特殊字數串
    補充： 隊列的封裝： ...
一周排行
    -Advertisement-
    Play Games
  • 移動開發（一）：使用.NET MAUI開發第一個安卓APP
    移動開發（一）：使用.NET MAUI開發第一個安卓APP 對於工作多年的C#程式員來說，近來想嘗試開發一款安卓APP，考慮了很久最終選擇使用.NET MAUI這個微軟官方的框架來嘗試體驗開發安卓APP，畢竟是使用Visual Studio開發工具，使用起來也比較的順手，結合微軟官方的教程進行了安卓 ...
  • wpf ToggleButton選中效果和一個登錄界面
    前言 QuestPDF 是一個開源 .NET 庫，用於生成 PDF 文檔。使用了C# Fluent API方式可簡化開發、減少錯誤並提高工作效率。利用它可以輕鬆生成 PDF 報告、發票、導出文件等。 項目介紹 QuestPDF 是一個革命性的開源 .NET 庫，它徹底改變了我們生成 PDF 文檔的方 ...
  • 彈幕樹洞項目功能新增篇
    項目地址 項目後端地址： https://github.com/ZyPLJ/ZYTteeHole 項目前端頁面地址： ZyPLJ/TreeHoleVue (github.com) https://github.com/ZyPLJ/TreeHoleVue 目前項目測試訪問地址： http://tree ...
  • 第27篇 sqlserver2022詳細安裝步驟
    話不多說，直接開乾 一.下載 1.官方鏈接下載： https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads 2.在下載目錄中找到下麵這個小的安裝包 SQL2022-SSEI-Dev.exe，運行開始下載SQL server； 二. ...
  • .NET 開源高性能 MQTT 類庫
    前言 隨著物聯網（IoT）技術的迅猛發展，MQTT（消息隊列遙測傳輸）協議憑藉其輕量級和高效性，已成為眾多物聯網應用的首選通信標準。 MQTTnet 作為一個高性能的 .NET 開源庫，為 .NET 平臺上的 MQTT 客戶端與伺服器開發提供了強大的支持。 本文將全面介紹 MQTTnet 的核心功能 ...
  • Serilog文檔翻譯系列（六） - 可用的接收器、增強器、格式化輸出
    Serilog支持多種接收器用於日誌存儲，增強器用於添加屬性，LogContext管理動態屬性，支持多種輸出格式包括純文本、JSON及ExpressionTemplate。還提供了自定義格式化選項，適用於不同需求。 ...
  • 警惕 Visual Studio 屬性求值副作用導致邏輯不符合預期
    目錄簡介獲取 HTML 文檔解析 HTML 文檔測試參考文章 簡介 動態內容網站使用 JavaScript 腳本動態檢索和渲染數據，爬取信息時需要模擬瀏覽器行為，否則獲取到的源碼基本是空的。 本文使用的爬取步驟如下： 使用 Selenium 獲取渲染後的 HTML 文檔 使用 HtmlAgility ...
  • [使用目前最新版]HybridCLR6.9.0+YooAsset2.2.4實現純C# Unity熱更新方案 (一)
    1.前言 什麼是熱更新 游戲或者軟體更新時，無需重新下載客戶端進行安裝，而是在應用程式啟動的情況下，在內部進行資源或者代碼更新 Unity目前常用熱更新解決方案 HybridCLR，Xlua，ILRuntime等 Unity目前常用資源管理解決方案 AssetBundles，Addressable， ...
  • 在 ASP.NET Core Web API 中使用操作篩選器統一處理通用操作
    本文章主要是在C# ASP.NET Core Web API框架實現向手機發送驗證碼簡訊功能。這裡我選擇是一個互億無線簡訊驗證碼平臺，其實像阿裡雲，騰訊雲上面也可以。 首先我們先去 互億無線 https://www.ihuyi.com/api/sms.html 去註冊一個賬號 註冊完成賬號後，它會送 ...
  • 第28篇 如何.net中實現高效可靠數據同步api
    通過以下方式可以高效，並保證數據同步的可靠性 1.API設計 使用RESTful設計，確保API端點明確，並使用適當的HTTP方法（如POST用於創建，PUT用於更新）。 設計清晰的請求和響應模型，以確保客戶端能夠理解預期格式。 2.數據驗證 在伺服器端進行嚴格的數據驗證，確保接收到的數據符合預期格 ...
所有分類