У меня есть фрейм данных, который я пытаюсь сжать из множества строк в одну строку. Набор данных довольно большой, но я начинаю с небольшого подмножества.Итак, здесь я хочу превратить 2 ряда в 1;Я хочу, чтобы информация следовала за информацией в первом ряду.
Первоначальная проблема заключалась в том, что у меня был столбец данных, который мне нужно «сгладить», чтобы я мог использовать биты и кусочки.Столбец в формате JSON.
"[{\"task\":\"T0\",\"task_label\":\"Did any birds visit the feeding platform or bird feeders?\",\"value\":\"**Yes**—but there were no displacements. Next, enter all of the birds you see at the feeders. \"},{\"task\":\"T1\",\"value\":[{\"choice\":\"EUROPEANSTARLING\",\"answers\":{\"WHATISTHELARGESTNUMBEROFINDIVIDUALSTHATYOUSAWSIMULTANEOUSLY\":\"4\"},\"filters\":{}},{\"choice\":\"MOURNINGDOVE\",\"answers\":{\"WHATISTHELARGESTNUMBEROFINDIVIDUALSTHATYOUSAWSIMULTANEOUSLY\":\"2\"},\"filters\":{}}]},{\"task\":\"T6\",\"task_label\":\"Is it actively precipitating (rain or snow)?\",\"value\":[\"Yes.\"]}]"
Так что я использовал код, разработанный другим кодером, чтобы «сгладить» это с помощью задачи.Затем я хочу присоединиться к нему, чтобы у меня была одна строка информации для каждой классификации.
В настоящее время я объединил задачи T0 и T4, но мне нужно объединить это с другой задачей, T5.Чтобы сделать это, мне нужно свести данные при слиянии T0 и T4 к одной строке.Итак, сейчас я работаю с небольшим подмножеством данных и у меня есть таблица, которая по сути выглядит так:
x <- data.frame("subject_ids" = c(19232716, 19232716), "classification_id" = c(120545061,120545061), "task_index.x" = c(1,1),
"task.x" = c("TO","TO"), "value" = c("Displacement","Displacement"), "task_index.y"=c(2,5), "task.y"= c("T4, T4","T4"),
"total.species"=c("2,2","1"), "choice" = c("MOURNINGDOVE, COMMONGRACKLE","MOURNINGDOVE"), "S_T"=c("Target,Target","Target,Source"))
, но я хочу, чтобы она выглядела так:
y <- data.frame("subject_ids" = c(19232716), "classification_id" = c(120545061), "task_index.x" = c(1),
"task.x" = c("TO"), "value" = c("Displacement"), "task_index.y"=c(2), "task.y"= "T4, T4",
"total.species"=c("2,2"), "choice" = c("MOURNINGDOVE, COMMONGRACKLE"), "S_T"=c("Target,Target"),
"task_index.y"=c(5), "task.y"= "T4",
"total.species"=c("1"), "choice" = c("MOURNINGDOVE"), "S_T"=c("Target,Source"))