Ошибки при вычислении медианы в R

У меня уже есть среднее значение каждого столбца. Теперь мне это нужно из всех значений в моем фрейме данных.

Предположительно, это означает среднее значение всех столбцов, кроме первого (факторного столбца).

Шаги для этого:

Подмножество data.frame для удаления первого столбца:

WDB1[,-1]
#   X1 X2 X3 X4 X5 X6 X7 X8 X9 X10
#1   2  4 27 37 38 35 12 12 30  18
#2   0  1  7  5  3 12  4 15  0   2
#3   7 41 39 32 33 33 44 24 39  33
#4  NA NA  5 NA  2 NA NA NA NA   1
#5  NA NA NA  7 NA NA NA NA NA  NA
#6  NA NA NA  2 NA NA NA NA NA  NA
#7  NA NA NA NA NA NA NA NA NA  NA
#8  NA NA NA  1 NA NA NA NA NA  NA
#9  NA NA NA NA NA NA NA NA NA   1
#10 NA NA NA NA NA NA NA NA NA  NA
#11 NA NA NA  1 NA NA NA NA NA  NA
#12  1  1 NA NA NA NA NA NA NA   1
#13 NA  1 NA NA NA NA NA NA NA   1
#14  2 NA NA NA NA NA NA NA NA  NA
#15  1 NA NA NA NA NA NA NA NA  NA
#16  1 NA NA NA NA NA NA NA NA   1
#17 NA  1 NA NA NA  1 NA NA NA  NA
#18 NA NA NA  3 NA NA NA NA NA   1

Преобразуйте результат в вектор, потому что mean не использует data.frames в качестве входных данных. Я использую unlist, потому что data.frame - это списки, но вы также можете использовать as.matrix:

unlist(WDB1[,-1])
# X11   X12   X13   X14   X15   X16   X17   X18   X19  X110  X111  X112  X113  X114  X115  X116  X117  X118   X21   X22   X23   X24   X25   X26 
#    2     0     7    NA    NA    NA    NA    NA    NA    NA    NA     1    NA     2     1     1    NA    NA     4     1    41    NA    NA    NA 
#  X27   X28   X29  X210  X211  X212  X213  X214  X215  X216  X217  X218   X31   X32   X33   X34   X35   X36   X37   X38   X39  X310  X311  X312 
#   NA    NA    NA    NA    NA     1     1    NA    NA    NA     1    NA    27     7    39     5    NA    NA    NA    NA    NA    NA    NA    NA 
# X313  X314  X315  X316  X317  X318   X41   X42   X43   X44   X45   X46   X47   X48   X49  X410  X411  X412  X413  X414  X415  X416  X417  X418 
#   NA    NA    NA    NA    NA    NA    37     5    32    NA     7     2    NA     1    NA    NA     1    NA    NA    NA    NA    NA    NA     3 
#  X51   X52   X53   X54   X55   X56   X57   X58   X59  X510  X511  X512  X513  X514  X515  X516  X517  X518   X61   X62   X63   X64   X65   X66 
#   38     3    33     2    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    35    12    33    NA    NA    NA 
#  X67   X68   X69  X610  X611  X612  X613  X614  X615  X616  X617  X618   X71   X72   X73   X74   X75   X76   X77   X78   X79  X710  X711  X712 
#   NA    NA    NA    NA    NA    NA    NA    NA    NA    NA     1    NA    12     4    44    NA    NA    NA    NA    NA    NA    NA    NA    NA 
# X713  X714  X715  X716  X717  X718   X81   X82   X83   X84   X85   X86   X87   X88   X89  X810  X811  X812  X813  X814  X815  X816  X817  X818 
#   NA    NA    NA    NA    NA    NA    12    15    24    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA 
#  X91   X92   X93   X94   X95   X96   X97   X98   X99  X910  X911  X912  X913  X914  X915  X916  X917  X918  X101  X102  X103  X104  X105  X106 
#   30     0    39    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    18     2    33     1    NA    NA 
# X107  X108  X109 X1010 X1011 X1012 X1013 X1014 X1015 X1016 X1017 X1018 
#   NA    NA     1    NA    NA     1     1    NA    NA     1    NA     1 

Передайте вектор в функцию mean (не забудьте обработать значения NA, установив na.rm = TRUE):

mean(unlist(WDB1[,-1]), na.rm = TRUE)
#[1] 12.2549

Используя предоставленные вами данные, вы можете использовать dplyr функции для фильтрации числовых столбцов, затем вы можете использовать tidyr, чтобы собрать все столбцы в одну строку, и, наконец, вы можете подвести итоги.

library(dplyr)
library(tidyr)

df %>
  select_if(is.numeric) %>% 
  gather() %>% 
  summarise(median_value = median(value, na.rm = TRUE), 
            mean_value = mean(value, na.rm = TRUE))

#  median_value mean_value
#1            4    12.2549

Произошла ошибка.

Вы вычисляете среднее / медианное значение по кадру данных.

Вы должны вычислить его по каждой переменной, используя символ $.

Что-то вроде этого.

mydf

Var1 Var2
1     1
1     2
2     3
4     20

Затем, если я хочу получить медианное значение Var1, я пишу median(mydf$Var1)

Чтобы сделать это сразу для всех переменных, используйте цикл for.

vector.median<-c()
vector.mean<-c()
for(i in ncol(mydf)){
vector.median[i]<-median(as.numeric(mydf[,i]),na.rm=TRUE)
vector.mean[i]<-mean(as.numeric(mydf[,i]),na.rm=TRUE)
}

Затем vector.median сохраняет медианы, а vector.mean сохраняет средние.