Укладка нескольких столбцов в R

Question

Я пытаюсь преобразовать фрейм данных в длинную форму в R. Это пример данных для опросов, проведенных в сетках 'id' за 9 дней, и если интересующая переменная была обнаружена '1' или не обнаружена '0' , Я хочу преобразовать этот фрейм данных так, чтобы количество опросов было уменьшено с 9 до 3, но каждый период опроса теперь содержит 3 посещения. Я пытаюсь сделать это, сложив по три столбца за раз, так что посещения с опроса 'v1' до 'v9' (на рисунке ниже) преобразуются в v1, v2, v3 путем добавления столбца с именем 'visit_no', который описывает номер посещения за период исследования.
Следующая ссылка - это изображение кадра данных в текущей форме и ниже, если код для генерации данных

Код для генерации данных:

id<- c(240,220,160)
v1<- c(rep(0,9))
v2<-c(rep(0,3),1,rep(0,5))
v3<- c(1,rep(0,8))

v<-as.data.frame(rbind(v1,v2,v3))

survey<- cbind(id,v)
survey

Это ссылка на изображение необходимого мне фрейма данных

Ссылочный фрейм данных

Answer 1

Одним из способов является использование reshape в базе R"

reshape(survey, direction="long", idvar="id",
        varying=list(c("V1","V4","V7"), c("V2","V5","V8"), c("V3","V6","V9")),
        v.names=c("Visit1", "Visit2", "Visit3"), timevar="visit_no") 

       id visit_no Visit1 Visit2 Visit3
240.1 240        1      0      0      0
220.1 220        1      0      0      0
160.1 160        1      1      0      0
240.2 240        2      0      0      0
220.2 220        2      1      0      0
160.2 160        2      0      0      0
240.3 240        3      0      0      0
220.3 220        3      0      0      0
160.3 160        3      0      0      0

---

Если вы хотите отсортировать по идентификатору, то добавьте arrange из dplyr

 %>% dplyr::arrange(id)

   id visit_no Visit1 Visit2 Visit3
1 160        1      1      0      0
2 160        2      0      0      0
3 160        3      0      0      0
4 220        1      0      0      0
5 220        2      1      0      0
6 220        3      0      0      0
7 240        1      0      0      0
8 240        2      0      0      0
9 240        3      0      0      0

---

Если исходные имена переменных были в согласованном формате, то команда изменения формы еще проще, поскольку она будет правильно угадывать времена по именам. Например,

names(survey)[2:10] <- paste0(names(survey)[2:10], ".", rep(1:3, 3))
head(survey)
        id V1.1 V2.2 V3.3 V4.1 V5.2 V6.3 V7.1 V8.2 V9.3
v1 240    0    0    0    0    0    0    0    0    0
v2 220    0    0    0    1    0    0    0    0    0
v3 160    1    0    0    0    0    0    0    0    0

reshape(survey, direction="long", idvar="id",
        varying=2:10, # Can just give the indices now.
        v.names=c("Visit1", "Visit2", "Visit3"), timevar="visit_no") %>%
  arrange(id)

---

Хотя времена указаны в согласованном формате, исходные имена переменных не совпадают, поэтому R не может угадать имена для длинного формата (Visit1, Visit2, Visit3), и их необходимо указывать в аргумент v.names.

Если они были в согласованном формате, то изменение формы еще проще.

names(survey)[2:10] <- paste0("Visit", rep(1:3, each=3), ".", rep(1:3, 3))
head(survey)    
    id Visit1.1 Visit1.2 Visit1.3 Visit2.1 Visit2.2 Visit2.3 Visit3.1 Visit3.2 Visit3.3
v1 240        0        0        0        0        0        0        0        0        0
v2 220        0        0        0        1        0        0        0        0        0
v3 160        1        0        0        0        0        0        0        0        0

reshape(survey, direction="long", varying=2:10, timevar="visit_no") %>%
  arrange(id)

---

Тидир Версия , вероятно, будет включать две формы: одну, чтобы получить все в очень длинной форме, и снова, чтобы вернуть ее в более широкую форму (то, что я называю методом «1 шаг назад, 2 шага вперед»).

Answer 2

Вы можете изменить имя столбца в зависимости от желаемой последовательности.

names(survey)[-1] <- paste(rep(paste0("visit", 1:3), each =3), 1:3, sep = "_")

names(survey)
#[1] "id"  "visit1_1" "visit1_2" "visit1_3" "visit2_1" "visit2_2" "visit2_3" 
#    "visit3_1" "visit3_2" "visit3_3"

А затем используйте pivot_longer из tidyr, чтобы получить данные в разных столбцах.

tidyr::pivot_longer(survey, cols = -id, names_to = c(".value", "visit_no"),
                    names_sep = "_") %>%
       type.convert(as.is = TRUE)


# A tibble: 9 x 5
#     id visit_no visit1 visit2 visit3
#  <int>    <int>  <int>  <int>  <int>
#1   240        1      0      0      0
#2   240        2      0      0      0
#3   240        3      0      0      0
#4   220        1      0      1      0
#5   220        2      0      0      0
#6   220        3      0      0      0
#7   160        1      1      0      0
#8   160        2      0      0      0
#9   160        3      0      0      0