Вычислить среднее значение для каждого столбца матрицы в R

Я работаю над R в студии 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]])

чтобы получить среднее значение для первого столбца.

Как получить средства для всех столбцов?

Любая помощь будет оценена по достоинству.

Ответы

Ответ 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

Ответ 2

Вы можете использовать 'apply' для запуска функции или строк или столбцов матрицы или числового кадра данных:

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

Ответ 3

Другим способом является использование пакета purrr

# example data like what is said above

@A Handcart And Mohair

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

Ответ 4

Если у вас есть NA:

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

Помните, что "mean" нуждается в числовых данных. Если у вас смешанные данные класса, используйте:

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