Сложите 6 столбцов в 2 столбца с функцией плавления или сбора в R

Question

Вот небольшой пример того, что я пытаюсь сделать. Я хотел бы go от

A   B   C   D   E   F   G   H
x1  x2  x3  x4  x5  x6  x7  x8
y1  y2  y3  y4  y5  y6  y7  y8
z1  z2  z3  z4  z5  z6  z7  z8

до

A   B   CDE FGH  
x1  x2  x3  x6  
x1  x2  x4  x7  
x1  x2  x5  x8  
y1  y2  y3  y7  
y1  y2  y4  y6  
y1  y2  y5  y8  

Я могу сделать только stak 3 столбцы в один с этим кодом

NewData= melt(setDT(Data),measure = list(c(6,7,8)), value.name = "FGH ")

Заранее спасибо

Answer 1

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

library(data.table)
melt(setDT(Data), measure = patterns("^[CDE]", "^[FGH]"), 
        value.name = c("CDE", "FGH"))[, variable := NULL][]

---

Или другой вариант с unite

library(dplyr)
library(tidyr)
Data %>% 
    unite(CDE, C, D, E) %>%
    unite(FGH, F, G, H) %>% 
    separate_rows(CDE, FGH)

data

Data <- structure(list(A = c("x1", "y1", "z1"), B = c("x2", "y2", "z2"
), C = c("x3", "y3", "z3"), D = c("x4", "y4", "z4"), E = c("x5", 
"y5", "z5"), F = c("x6", "y6", "z6"), G = c("x7", "y7", "z7"), 
    H = c("x8", "y8", "z8")), class = "data.frame", row.names = c(NA, 
-3L))

Answer 2

Мы можем получить данные в длинном формате, создать отдельные значения для c('C', 'D', 'E') и других значений и получить данные в широком формате.

library(dplyr)
library(tidyr)

df %>%
  pivot_longer(cols = -(A:B)) %>%
  mutate(name = ifelse(name %in% c('C', 'D', 'E'), 'CDE', 'FGH')) %>%
  group_by(name) %>%
  mutate(row = row_number()) %>%
  pivot_wider() %>%
  select(-row)


# A tibble: 9 x 4
#  A     B     CDE   FGH  
#  <chr> <chr> <chr> <chr>
#1 x1    x2    x3    x6   
#2 x1    x2    x4    x7   
#3 x1    x2    x5    x8   
#4 y1    y2    y3    y6   
#5 y1    y2    y4    y7   
#6 y1    y2    y5    y8   
#7 z1    z2    z3    z6   
#8 z1    z2    z4    z7   
#9 z1    z2    z5    z8   

данные

df <- structure(list(A = c("x1", "y1", "z1"), B = c("x2", "y2", "z2"
), C = c("x3", "y3", "z3"), D = c("x4", "y4", "z4"), E = c("x5", 
"y5", "z5"), F = c("x6", "y6", "z6"), G = c("x7", "y7", "z7"), 
H = c("x8", "y8", "z8")), class = "data.frame", row.names = c(NA, -3L))