объединение переменных столбцов с одинаковыми значениями в новую переменную

Question

набора данных, используемый в этом Google Таблицах ссылке https://docs.google.com/spreadsheets/d/1eV33Sgx_UVtk2vDtNBc4Yqs_kQoeffY0oj5gSCq9rCs/edit?usp=sharing

AMC.dataset$ExamMC.A<-surveySP15$Exams_A 
AMC.dataset$ExamMC.A<-factor(NA, levels=c("TRUE", "FALSE")) 
AMC.dataset$ExamMC.A[AMC.dataset$Exams_A=="1 time"|AMC.dataset$Exams_A=="2-4 times"|AMC.dataset$Exams_A==">4 times"]<-"TRUE" 
AMC.dataset$ExamMC.A[AMC.dataset$Exams_A=="0 times"]<-"FALSE" 
AMC.dataset$ExamMC.A=as.logical(AMC.dataset$ExamMC.A) 

Я использую эти 5 строк кода, чтобы перекодировать все 9 из Exams_A через переменные Exams_I в логические двоичные исходы «Истины» для тех, кто ответил 1 или более раз для любой из этих 9 переменных. Я хотел бы объединить все эти переменные в новый столбец в наборе данных, в котором для каждой строки наблюдения, если есть хоть один случай, который является «истинным» для любого из 9 экзаменов_А через I во всей этой строке, новая переменная результат будет считаться «истинным», что означает, что они хотя бы однажды совершили какой-либо из 9 типов академических проступков экзамена, записанных в наборе данных. если в строке наблюдения нет истинных результатов, я хотел бы, чтобы результат новой переменной считался «ложным», что означало, что они (строка наблюдения) никогда не совершали экзамен академического проступка

что у меня для этого кода новой переменной

AMC.dataset$ExamMC = any(AMC.dataset$ExamMC.A, AMC.dataset$ExamMC.B, AMC.dataset$ExamMC.C, AMC.dataset$ExamMC.D, AMC.dataset$ExamMC.E, AMC.dataset$ExamMC.F, AMC.dataset$ExamMC.G, AMC.dataset$ExamMC.H, AMC.dataset$ExamMC.I) 

однако этот код был изменен в последнем переменном выводе в строке (AMC.dataset $ ExamMC.I), который имеет 215 ложных случаев и 0 истинные, отменит остальную часть строки, чтобы дать новые переменные выводятся из 215 «ложных» случаев, хотя другие переменные могут содержать «True» в качестве выходных данных.

EDIT

я теперь создал фрейм данных для набора экзаменационных переменных неправомерные

AMC.dataset$ExamMCdf<-data.frame(AMC.dataset$ExamMC.A, AMC.dataset$ExamMC.B, AMC.dataset$ExamMC.C, AMC.dataset$ExamMC.D, AMC.dataset$ExamMC.E, AMC.dataset$ExamMC.F, AMC.dataset$ExamMC.G, AMC.dataset$ExamMC.H, AMC.dataset$ExamMC.I) 

теперь мой вопрос заключается в том, как идти о создании составной переменной в новом столбце, правильно читает каждая строка наблюдений, обозначая любую строку, которая имеет хотя бы один «истинный» результат в кадре данных как «истинный» для составной переменной. Любая строка наблюдения без «истинных» результатов должна быть помечена как «ложная» составной переменной.

Спасибо за вашу помощь.

Answer 1

Для того, чтобы композиционный ряд, который проверяет для истинного значения в других столбцах кадра данных, используйте функцию any() завернутой в apply() идти ряд за рядом. Я думаю, вы можете применить его к ситуации:

#Makes a dataframe with TRUE/FALSE values and a low chance for TRUE 
set.seed(123) 
data <- data.frame(
    Exams_A = sample(c(TRUE,FALSE), 10, TRUE, c(.1, .9)), 
    Exams_B = sample(c(TRUE,FALSE), 10, TRUE, c(.1, .9)), 
    Exams_C = sample(c(TRUE,FALSE), 10, TRUE, c(.1, .9)), 
    Exams_D = sample(c(TRUE,FALSE), 10, TRUE, c(.1, .9)), 
    Exams_E = rep(TRUE,10) # Inserts row of all TRUE's to show that you can limit scope 
) 

data$ExamMC <- apply(data[, 1:4], 1, function(x) any(x)) 
data$ExamMC <- apply(data[, 1:4], 1, any) # This is the updated version 
          #^This part sets what columns you want to search 

Answer 2

Я не 100% уверен, что вы после этого, но вот как бы я делать то, что я думаю, что у вас есть в виду:

library(data.table) 
setDT(surveySP15) 

exams <- paste0("Exams_", LETTERS[1:9]) 
surveySP15[ , paste0(exams, "_binary") := 
      lapply(.SD, function(x) x %in% c("1 time", "2-4 times", ">4 times")), 
      .SDcols = exams] 

Это создаст переменную для каждого экзамена (например, , Exams_A_binary), который является (logical) TRUE, если он закодирован в данных как 1 или более раз и FALSE в противном случае. Вот соответствующий выход:

> surveySP15[ , paste0(exams, "_binary"), with = FALSE] 
    Exams_A_binary Exams_B_binary Exams_C_binary Exams_D_binary Exams_E_binary Exams_F_binary Exams_G_binary 
    1:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
    2:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
    3:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
    4:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
    5:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
---                           
223:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
224:   TRUE   TRUE   TRUE   FALSE   TRUE   FALSE   FALSE 
225:   FALSE   TRUE   FALSE   FALSE   FALSE   FALSE   FALSE 
226:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
227:   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 
    Exams_H_binary Exams_I_binary 
    1:   FALSE   FALSE 
    2:   FALSE   FALSE 
    3:   FALSE   FALSE 
    4:   FALSE   FALSE 
    5:   FALSE   FALSE 
---        
223:   FALSE   FALSE 
224:   FALSE   FALSE 
225:   FALSE   FALSE 
226:   FALSE   FALSE 
227:   FALSE   FALSE