Поднабор данных, основанный на количестве наблюдений в каждом столбце - PullRequest
Новая
       8

Поднабор данных, основанный на количестве наблюдений в каждом столбце

0 голосов
/ 06 декабря 2018

У меня есть одна проблема, вы не могли бы помочь мне?Я пытался найти решение, но я не знаю, как его решить.

Пожалуйста, используйте это, чтобы воссоздать мой фрейм данных. 

structure(list(A1 = c(87L, 67L, 80L, 36L, 71L, 6L, 26L, 15L, 
14L, 46L, 19L, 93L, 5L, 94L), A2 = c(50L, NA, 73L, 58L, 47L, 
74L, 39L, NA, NA, NA, NA, NA, NA, NA), A3 = c(NA, 38L, 10L, 41L, 
NA, 66L, NA, 7L, 29L, NA, 70L, 23L, 46L, 55L)), .Names = c("A1", 
"A2", "A3"), class = "data.frame", row.names = c(NA, -14L))

У меня есть этофрейм данных: 

A1  A2  A3
87  50  NA
67  NA  38
80  73  10
36  58  41
71  47  NA
6   74  66
26  39  NA
15  NA  7
14  NA  29
46  NA  NA
19  NA  70
93  NA  23
5   NA  46
94  NA  55

Как можно срезать фрейм данных, когда у нас больше или равно 7 наблюдений (кол-во) на столбцы? Итак, желаемый результат выглядит следующим образом (у нас есть обервация> = 7 на столбец): 

A1  A3
87  NA
67  38
80  10
36  41
71  NA
6   66
26  NA
15  7
14  29
46  NA
19  70
93  23
5   46
94  55

Я приветствую любое решение, которое можно обобщить на большее количество столбцов.

1 Ответ

0 голосов
/ 06 декабря 2018

Попробуйте 

df1[, colSums(!is.na(df1)) >= 7]
#   A1 A3
#1  87 NA
#2  67 38
#3  80 10
#4  36 41
#5  71 NA
#6   6 66
#7  26 NA
#8  15  7
#9  14 29
#10 46 NA
#11 19 70
#12 93 23
#13  5 46
#14 94 55

шаг за шагом

Сначала вам нужно выяснить, какие значения ваших данных не пропущены.

!is.na(df1)

Возвращает логическую матрицу 

#        A1    A2    A3
# [1,] TRUE  TRUE FALSE
# [2,] TRUE FALSE  TRUE
# [3,] TRUE  TRUE  TRUE
# [4,] TRUE  TRUE  TRUE
# [5,] TRUE  TRUE FALSE
# [6,] TRUE  TRUE  TRUE
# [7,] TRUE  TRUE FALSE
# [8,] TRUE FALSE  TRUE
# [9,] TRUE FALSE  TRUE
#[10,] TRUE FALSE FALSE
#[11,] TRUE FALSE  TRUE
#[12,] TRUE FALSE  TRUE
#[13,] TRUE FALSE  TRUE
#[14,] TRUE FALSE  TRUE

Используйте colSums, чтобы узнать, сколько пропущенных наблюдений в столбце 

colSums(!is.na(df1))
#A1 A2 A3 
#14  6 10

Применить условие«больше или равно 7 наблюдениям (количеству) на столбцы» 

colSums(!is.na(df1)) >= 7
#   A1    A2    A3 
# TRUE FALSE  TRUE

Наконец, вам нужно использовать этот вектор для подмножества ваших данных 

df1[, colSums(!is.na(df1)) >= 7]

Превратить это вфункция, если вам это нужно регулярно 

almost_complete_cols <- function(data, min_obs) {
  data[, colSums(!is.na(data)) >= min_obs, drop = FALSE]
}

almost_complete_cols(df1, 7)
...