Como calcular a média de múltiplas colunas em r


Freqüentemente, você pode querer calcular a média de várias colunas em R. Felizmente, você pode fazer isso facilmente usando a função colMeans() .

 colMeans(df)

Os exemplos a seguir mostram como usar esta função na prática.

Usando colMeans() para encontrar a média de múltiplas colunas

O código a seguir mostra como usar a função colMeans() para encontrar a média de cada coluna em um quadro de dados:

 #create data frame
df <- data.frame(var1=c(1, 3, 3, 4, 5),
                 var2=c(7, 7, 8, 3, 2),
                 var3=c(3, 3, 6, 6, 8),
                 var4=c(1, 1, 2, 8, 9))

#find mean of each column
colMeans(df)

var1 var2 var3 var4 
 3.2 5.4 5.2 4.2 

Também podemos especificar para quais colunas encontrar a média:

 #find the mean of columns 2 and 3
colMeans(df[, c(2, 3)])

var2 var3 
 5.4 5.2 

#find the mean of the first three columns
colMeans(df[, 1:3])

var1 var2 var3 
 3.2 5.4 5.2

Se houver colunas que não sejam numéricas, você pode usar sapply() para especificar que deseja encontrar apenas a média das colunas numéricas:

 #create data frame
df <- data.frame(var1=c(1, 3, 3, 4, 5),
                 var2=c(7, 7, 8, 3, 2),
                 var3=c(3, 3, 6, 6, 8),
                 var4=c(1, 1, 2, 8, 9),
                 var5=c('a', 'a', 'b', 'b', 'c'))

#find mean of only numeric columns
colMeans(df[ sapply (df, is.numeric)])

var1 var2 var3 var4 
 3.2 5.4 5.2 4.2

E se houver valores faltantes em alguma coluna, você pode usar o argumento na.rm=TRUE para ignorar os valores faltantes ao calcular médias:

 #create data frame with some missing values
df <- data.frame(var1=c(1, 3, NA, NA, 5),
                 var2=c(7, 7, 8, 3, 2),
                 var3=c(3, 3, 6, 6, 8),
                 var4=c(1, 1, 2, 8, NA))

#find mean of each column and ignore missing values
colMeans(df, na.rm= TRUE )

var1 var2 var3 var4 
 3.0 5.4 5.2 3.0

Recursos adicionais

Como iterar sobre nomes de colunas em R
Como somar colunas específicas em R

Add a Comment

O seu endereço de email não será publicado. Campos obrigatórios marcados com *