Как связать столбцы на основе символьной строки

Question

Я пытаюсь преобразовать мой фрейм данных из широкой в ​​длинную форму на основе строки символов столбца. В приведенном ниже примере я хочу O2_222.coefficients.x1 и O2_217.coefficients.x1 в одном столбце, O2_222.R-squared и O2_217.R-squared в одном столбце и RunTime как свой собственный. Попытка использовать melt в пакете reshape2, но, похоже, синтаксис неверен.

structure(list(O2_222.coefficients.x1 = c(0.494206524044508, 0.351865091962266,
0.348933739038027, 0.412232161883577, 0.702783684327072), `O2_222.R-squared` = 
c(0.922054236839182, 0.915753625911676, 0.91109476704698, 0.917998834313392, 
0.967759465780247), O2_217.coefficients.x1 = c(0.390012278483346, 0.0694948285748309, 
0.0323121611694059, 0.0372526286990146, 0.194291648564898), `O2_217.R-squared` = 
c(0.921256057864199, 0.537913087580067, 0.271398305115866, 0.274339042666519, 
0.908338928665188), RunTime = c(9.03, 14.08, 19.08, 24.08, 29.08)), row.names = c(116L, 
216L, 316L, 416L, 516L), class = "data.frame")

Answer 1

Мы можем использовать pivot_longer из tidyr и указать names_sep как .

library(tidyr)
library(dplyr)
df1 %>%
   pivot_longer(cols = -RunTime, names_to = c('group', '.value'), names_sep="\\.")
# A tibble: 10 x 4
#   RunTime group  coefficients `R-squared`
#     <dbl> <chr>         <dbl>       <dbl>
# 1    9.03 O2_222       0.494        0.922
# 2    9.03 O2_217       0.390        0.921
# 3   14.1  O2_222       0.352        0.916
# 4   14.1  O2_217       0.0695       0.538
# 5   19.1  O2_222       0.349        0.911
# 6   19.1  O2_217       0.0323       0.271
# 7   24.1  O2_222       0.412        0.918
# 8   24.1  O2_217       0.0373       0.274
# 9   29.1  O2_222       0.703        0.968
#10   29.1  O2_217       0.194        0.908