tính trung bình cho nhiều cột trong data.frame

Question

Chỉ cần tự hỏi liệu có thể tính phương tiện cho nhiều cột hay không bằng cách chỉ sử dụng hàm trung bình

ví dụ:

mean(iris[,1]) 

là có thể nhưng không

mean(iris[,1:4]) 

thử:

mean(iris[,c(1:4)]) 

nhận tin nhắn này lỗi:

nhắn Cảnh báo: Trong mean.default (iris [, 1 : 4]): đối số không phải là số hoặc hợp lý: trả về ing NA

Tôi biết tôi chỉ có thể sử dụng lapply (iris [, 1: 4], có nghĩa là) hoặc sapply (iris [, 1: 4], có nghĩa là)

Answer 1

Hãy thử colMeans:

Nhưng cột phải là số. Bạn có thể thêm một thử nghiệm cho nó cho các tập dữ liệu lớn hơn.

colMeans(iris[sapply(iris, is.numeric)]) 
Sepal.Length Sepal.Width Petal.Length Petal.Width 
    5.843333  3.057333  3.758000  1.199333 

Benchmark

vẻ dài cho dplyr và data.table. Có lẽ ai đó có thể tái tạo các kết quả cho tính xác thực.

microbenchmark(
    plafort = colMeans(big.df[sapply(big.df, is.numeric)]), 
    Carlos = colMeans(Filter(is.numeric, big.df)), 
    Cdtable = big.dt[, lapply(.SD, mean)], 
    Cdplyr = big.df %>% summarise_each(funs(mean)) 
) 
#Unit: milliseconds 
# expr  min  lq  mean median  uq  max 
# plafort 9.862934 10.506778 12.07027 10.699616 11.16404 31.23927 
# Carlos 9.215143 9.557987 11.30063 9.843197 10.21821 65.21379 
# Cdtable 57.157250 64.866996 78.72452 67.633433 87.52451 264.60453 
# Cdplyr 62.933293 67.853312 81.77382 71.296555 91.44994 182.36578 

liệu

m <- matrix(1:1e6, 1000) 
m2 <- matrix(rep('a', 1000), ncol=1) 
big.df <- as.data.frame(cbind(m2, m), stringsAsFactors=F) 
big.df[,-1] <- lapply(big.df[,-1], as.numeric) 
big.dt <- as.data.table(big.df) 

Answer 2

Với sapply + Filter:

sapply(Filter(is.numeric, iris), mean) 
Sepal.Length Sepal.Width Petal.Length Petal.Width 
    5.843333  3.057333  3.758000  1.199333 

Với dplyr:

library(dplyr) 
iris %>% summarise_each(funs(mean)) 
    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1:  5.843333 3.057333  3.758 1.199333  NA 

W ith data.table:

library(data.table) 
iris <- data.table(iris) 
iris[,lapply(.SD, mean)] 
    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1:  5.843333 3.057333  3.758 1.199333  NA 

Answer 3

Giải pháp trên đây của bạn hoạt động với các cột đúng định dạng .numeric. Xem ví dụ bên dưới:

a <- c(1,2,3) 
mean(a) 

b <- c(2,4,6) 
mean(b) 

d <- c(3,6,9) 

mydata <- cbind(b,a,d) 


mean(mydata[,1:3])