クラスベクトルのS3メソッドR

Question

すべてのベクトルタイプに対して同時にS3メソッドを作成できますか？私。数値、整数、文字などのベクトルのために呼び出されるもの。このような何か：タイプ別

first_element <- function(x, ...){ 
    UseMethod("first_element", x) 
} 

first_element.vector <- function(x){ 
    x[1] 
} 

first_element(1:3) 

Answer 1

は、私はあなたがclassを意味すると仮定します。 structure関数を使用すると、ベクトルの複数のクラスを定義できます。

まず、いくつかのデータを作成し、そのクラスを見ます。

set.seed(1) 
vector <- rnorm(100, mean = 1, sd = 3) 

class(vector) 
>[1] "numeric" 

head(vector)  
>[1] -0.8793614 1.5509300 -1.5068858 5.7858424 1.9885233 -1.4614052 

ベクターでstructure関数を使用して、追加のクラスを定義します。次にclassを確認し、str関数を呼び出してnew_vectorオブジェクトのクラスとデータを確認します。

new_vector <- structure(vector, class = c("character", "integer", "numeric", "double")) 

class(new_vector) 
>[1] "character" "integer" "numeric" "double" 

str(new_vector) 
>Classes 'character', 'integer', 'numeric', 'double' num [1:100] -0.879 1.551 -1.507 5.786 1.989 ...