Конвертировать столбцы данных в строки в R - PullRequest
Новая
       12

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

0 голосов
/ 01 марта 2020

У меня есть следующий фрейм данных, доступный для анализа. 

Sname   sid    st.sn.s1 st.sn.s2    st.sn.s3    st.sn.s1    st.sn.s2    st.sn.s3

    a       12     22       23          24          31          32          33

Я хочу преобразовать его во что-то похожее на приведенное ниже. 

Sname   sid st.sn.s1    st.sn.s2    st.sn.s3            

a       12  22          23          24          
a       12  31          32          33

Может кто-нибудь направить меня к соответствующим ресурсам или помочь в этом?

Ответы [ 3 ]

2 голосов
/ 01 марта 2020

Вы можете использовать базовую функцию R rbind: 

df <- structure(list(Sname = "a", sid = 12L, st.sn.s1 = 22L, st.sn.s2 = 23L, 
               st.sn.s3 = 24L, st.sn.s1 = 31L, st.sn.s2 = 32L, st.sn.s3 = 33L), row.names = c(NA, 
                                                                                              -1L), class = "data.frame")

rbind(df[, 1:5], df[, c(1:2, 6:8)])

#   Sname sid st.sn.s1 st.sn.s2 st.sn.s3
# 1     a  12       22       23       24
# 2     a  12       31       32       33
0 голосов
/ 01 марта 2020

Обобщенное решение Base R, которое учитывает несколько строк с разными "Sname" с. 

res <- do.call(rbind, lapply(1:nrow(dat), function(x) {
  x <- dat[x, ];cbind(x[1:2], rbind(x[3:5], x[6:8]), row.names=NULL)
  }))
res
#   Sname sid st.sn.s1 st.sn.s2 st.sn.s3
# 1     a  12       22       23       24
# 2     a  12       31       32       33
# 3     b  12       22       23       24
# 4     b  12       31       32       33
# 5     c  12       22       23       24
# 6     c  12       31       32       33

Данные: 

dat <- structure(list(Sname = c("a", "b", "c"), sid = c(12L, 12L, 12L
), st.sn.s1 = c(22L, 22L, 22L), st.sn.s2 = c(23L, 23L, 23L), 
    st.sn.s3 = c(24L, 24L, 24L), st.sn.s1 = c(31L, 31L, 31L), 
    st.sn.s2 = c(32L, 32L, 32L), st.sn.s3 = c(33L, 33L, 33L)), row.names = c(NA, 
-3L), class = "data.frame")
0 голосов
/ 01 марта 2020

Используя функции pivot_longer и pivot_wider (https://tidyr.tidyverse.org/reference/pivot_longer.html), вы можете сделать: 

library(tidyr)
library(dplyr)
df %>% pivot_longer(-c(Sname,sid), names_to = "var",values_to = "val") %>%
  pivot_wider(names_from = var, values_from = val) %>%
  dplyr::select(-.copy)

# A tibble: 2 x 5
  Sname   sid st.sn.s1 st.sn.s2 st.sn.s3
  <chr> <int>    <int>    <int>    <int>
1 a        12       22       23       24
2 a        12       31       32       33

Воспроизводимый пример 

structure(list(Sname = "a", sid = 12L, st.sn.s1 = 22L, st.sn.s2 = 23L, 
    st.sn.s3 = 24L, st.sn.s1 = 31L, st.sn.s2 = 32L, st.sn.s3 = 33L), row.names = c(NA, 
-1L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x5635c38695c0>)
...