Верните все NA с строкой и столбцом

Question

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

Первый столбец набора данных - это имя учащегося, остальная часть набора данных представляет разделы завершенной программы. Последний столбец каждой строки, содержащий данные, представляет собой заключительный раздел, завершенный учеником.

Таким образом, выход должен быть вектором следующее:

name, sections that are blank and contain NA (i.e. 1_1 or 1_3 etc.) 
name, sections that are blank and contain NA 
name, sections that are blank and contain NA etc. 

Вот кадр данных:

df<-data.frame(list(names = c("John", "Peter", "Steve"), 
        '1_1' = c("yes", "yes","yes"), 
        '1_2' = c("yes", "yes", ""), 
        '1_3' = c("", "yes", "yes"), 
        '1_4' = c("", "","yes"), 
        '1_5' = c(NA, NA, NA)), 
       row.names = NULL) 
df 
# names X1_1 X1_2 X1_3 X1_4 X1_5 
# 1 John yes yes    NA 
# 2 Peter yes yes yes  NA 
# 3 Steve yes  yes yes NA 

df<-apply(df, 2, function(x) gsub("^|^", NA, x)) 
# names X1_1 X1_2 X1_3 X1_4 X1_5 
# [1,] NA NA NA NA NA NA 
# [2,] NA NA NA NA NA NA 
# [3,] NA NA NA NA NA NA 

я получаю следующее после GSUB, который предназначен для Наливаем в НС balnk пространства:

names X1_1 X1_2 X1_3 X1_4 X1_5 
[1,] "John" "yes" "yes" NA NA NA 
[2,] "Peter" "yes" "yes" "yes" NA NA 
[3,] "Steve" "yes" NA "yes" "yes" NA 

Вот код, который я пытаюсь к нам:

sapply(df,function(x) 
which(x== if(df>2) 
{ 
list(df[,]) 
} 
)) 

Выход я хочу (как указано выше) вектора со следующим:

name, all fields that contain NA (i.e. 1_1, 1_2 etc.) 
name, all fields that contain NA (i.e. 1_1, 1_2 etc.) 
etc. 

Выход R я получаю это:

$John integer(0) 

$Peter integer(0) 

$Steve integer(0) 

$yes integer(0) 

$yes integer(0) 

$yes integer(0) 

$yes integer(0) 

$yes integer(0) 

$ integer(0) 

$ integer(0) 

$yes integer(0) 

$yes integer(0) 

$ integer(0) 

$ integer(0) 

$yes integer(0) 

$ integer(0) 

$ integer(0) 

$ integer(0) 

Таким образом, не работает вообще. Любые указатели?

Еще раз спасибо.

Леви

Answer 1

Это data.table решение:

require(data.table) 
df<-data.frame(list(names = c("John", "Peter", "Steve"), 
       '1_1' = c("yes", "yes","yes"), 
       '1_2' = c("yes", "yes", ""), 
       '1_3' = c("", "yes", "yes"), 
       '1_4' = c("", "","yes"), 
       '1_5' = c(NA, NA, NA)), 
      row.names = NULL) 
dt <- as.data.table(df) 
# Instead of using gsub, have a function that sets values True 
# if the cell value != 'yes' or is NA. 
dt.i <- dt[, lapply(.SD, function(x) x != 'yes' | is.na(x)), by=names] 
# See dt.i: 
# names X1_1 X1_2 X1_3 X1_4 X1_5 
# 1: John FALSE FALSE TRUE TRUE TRUE 
# 2: Peter FALSE FALSE FALSE TRUE TRUE 
# 3: Steve FALSE TRUE FALSE FALSE TRUE 
dt.i[, list(list(names(.SD)[which(.SD == T)])), by=names] 

Урожайность

names    V1 
1: John X1_3,X1_4,X1_5 
2: Peter  X1_4,X1_5 
3: Steve  X1_2,X1_5 

Если вы храните эту структуру как

dt.final <- dt.i[, list(list(names(.SD)[which(.SD == T)])), by=names]

Вы можете получить доступ к информации по , например.

dt.final[names == 'John'] 
# names    V1 
# 1: John X1_3,X1_4,X1_5 
dt.final[names == 'John']$V1 
# [[1]] 
# [1] "X1_3" "X1_4" "X1_5"