Сложите несколько столбцов в один на основе имени столбца

Моя база данных состоит из 53 наблюдений 269 переменных. Структура похожа на эту:

   id            w.0 v.0 a.0         w.1 v.1 a.1            
1   1           here   7   5         wor   1   7         
4   4            are   6   8          ds   5   4        
7   7           some   7   2         hey   3   8

Названия столбцов доходят до w.26, v.26, a.26.

Моя задача сделать три основных столбца: words, va, ac и, следовательно, фрейм данных длинного формата, подобный этому:

   id          words  va  ac                     
1   1           here   7   5                  
2   2            are   6   8                  
3   3           some   7   2           
4   4            wor   1   7
5   5             ds   5   4
6   6            hey   3   8

Я использовал этот код:

df_reshaped <- reshape(subset(df), 
              varying=Map(function(x) paste(c("w","v", "a"), x, sep="."), 
                          c("0","1","2","3","4","5","6","7","8","9","10","11","12","13","14",
                            "14","15","16","17","18","19","20","21","22","23","24","25","26")),
              v.names=c("words","va","ac"),
              idvar= "id",    
              direction="long")

Однако он неправильно уложил столбцы (структура похожа на эту):

     id time  words   va   ac
1.1   1    1   here  are  some
4.1   4    1    wor   ds   hey
7.1   7    2      7    6     7
8.1   8    2      1    5     3
10.1 10    3      5    8     2
11.1 11    3      7    4     8

Любая помощь будет оценена по достоинству. Спасибо.


r dataframe multiple-columns reshape2 columnsorting
person vbadvd    schedule 19.07.2020    source источник
comment
Вы можете использовать reshape следующим образом: reshape(dat, idvar = "id", varying = 2:ncol(dat), direction = "long", sep = ".")   -  person markus    schedule 19.07.2020

Ответы (1)


arrow_upward
1
arrow_downward

Мы можем использовать pivot_longer

library(dplyr)
library(tidyr)
df1 %>% 
  pivot_longer(cols = -id, names_to = c('.value', 'group'), names_sep="\\.")%>% 
  select(-group) %>% 
  rename_at(-1, ~ c('words', 'va', 'ac'))

данные

df1 <- structure(list(id = c(1L, 4L, 7L), w.0 = c("here", "are", "some"
), v.0 = c(7L, 6L, 7L), a.0 = c(5L, 8L, 2L), w.1 = c("wor", "ds", 
"hey"), v.1 = c(1L, 5L, 3L), a.1 = c(7L, 4L, 8L)), class = "data.frame",
row.names = c("1", 
"4", "7"))
person akrun    schedule 19.07.2020