入力データフレーム列をベクトルに変換する方法

Question

いくつかの関数を記述し、入力CSVファイルの最後の2つの列にのみ適用したいとします。問題は、最後の2つの列をベクトルに変換し、それらに関数を適用する方法です。

myAvg <- function(anyVector){  
    average <- sum(anyVector)/length(anyVector) 
    return(average) 
} 

mySD <- function(anyVector){   
    std_Dev <- sqrt(sum((anyVector - mean(anyVector))^2/(length(anyVector) - 1))) 
    return(std_Dev) 
    } 


myRange <- function(anyVector){   
    myRange <- max(anyVector) - min(anyVector) 
    return(myRange) 
    } 

data <- read.csv("CardioGoodnessFit.csv") 
print(data) 

Answer 1

Mako212これはRでapply関数を使用することによって達成単純なものとすることができる示唆@とおり

avg = apply(data[,c('Income','Miles')],MARGIN=2,FUN=myAvg) 
sdev = apply(data[,c('Income','Miles')],MARGIN=2,FUN=mySD) 

機能myAvgは、データのサブセットの各列にapplyをIEDします。関心のある列は、ベクトルの列または列番号の名前を指定することによって指定できます。 Applyは、一般に、matrixまたはdata.frameタイプのオブジェクトに使用されます。 MARGINはFUN列方向（MARGIN = 2）を適用するためのオプションを提供し、行方向（MARGIN=1）または両方つつ（データMARGIN=c(1,2)の各要素に）

Answer 2

あなたが例えばを使用している場合（でも関数を記述するために、またはこの場合）のベクトルに変換する必要はありませんdplyr：

library(dplyr) 
# means 
data %>% summarise(avg = mean(Income)) 
data %>% summarise(avg = mean(Miles)) 

# standard deviations 
data %>% summarise(sdev = sd(Income)) 
data %>% summarise(sdev = sd(Miles)) 

# range 
data %>% summarise(range = max(Income) - min(Income)) 
data %>% summarise(range = max(Miles) - min(Miles))