행렬의 각 열에 대한 평균을 계산합니다.

Question

R 스튜디오에서 작업 중입니다. 데이터 프레임의 각 열에 대한 평균을 계산해야합니다.

cluster1 // 5 by 4 data frame 
mean(cluster1) // 

내가 가지고 :

Warning message: 
    In mean.default(cluster1) : 
    argument is not numeric or logical: returning NA 

하지만 첫 번째 열의 평균을 얻기 위해

mean(cluster1[[1]]) 

를 사용할 수 있습니다.

모든 열에 대한 평균값을 얻는 방법은 무엇입니까?

도움을 주시면 감사하겠습니다.

Answer 1

당신은 colMeans 사용할 수 있습니다

### Sample data 
set.seed(1) 
m <- data.frame(matrix(sample(100, 20, replace = TRUE), ncol = 4)) 

### Your error 
mean(m) 
# [1] NA 
# Warning message: 
# In mean.default(m) : argument is not numeric or logical: returning NA 

### The result using `colMeans` 
colMeans(m) 
# X1 X2 X3 X4 
# 47.0 64.4 44.8 67.8 

Answer 2

당신은 함수 나 매트릭스 또는 수치 데이터 프레임의 행이나 열 실행 '적용'을 사용할 수 있습니다

:

cluster1 <- data.frame(a=1:5, b=11:15, c=21:25, d=31:35) 

apply(cluster1,2,mean) # applies function 'mean' to 2nd dimension (columns) 

apply(cluster1,1,mean) # applies function to 1st dimension (rows) 

sapply(cluster1, mean) # also takes mean of columns, treating data frame like list of vectors 

Answer 3

또 다른 방법은하는 것입니다 사용 purrr 패키지

# example data like what is said above 

sapply(data, mean, na.rm = T)  # Returns a vector (with names) 
lapply(data, mean, na.rm = T)  # Returns a list 

"의미"숫자 데이터를 필요로 기억 :@A 손수레 그리고 경우 모헤어

set.seed(1) 
m <- data.frame(matrix(sample(100, 20, replace = TRUE), ncol = 4)) 


library(purrr) 
means <- map_dbl(m, mean) 

> means 
# X1 X2 X3 X4 
#47.0 64.4 44.8 67.8 

Answer 4

당신은 NA의가 있습니다. 당신은 클래스 데이터를 혼합 한 경우, 사용

numdata<-data[sapply(data, is.numeric)] 
sapply(numdata, mean, na.rm = T) # Returns a vector 
lapply(numdata, mean, na.rm = T) # Returns a list 

Answer 5

다양성의 경우 :을 또 다른 방법입니다보십시오 plyr::colwise()

set.seed(1) 
m <- data.frame(matrix(sample(100, 20, replace = TRUE), ncol = 4)) 

plyr::colwise(mean)(m) 


# X1 X2 X3 X4 
# 1 47 64.4 44.8 67.8