Как преобразовать строку в столбец на основе одной строки в R?

Question

У меня есть набор данных, который выглядит примерно так

A    B    1960 1970 1980
x    a    1    2    3
x    b    1.1  2.1  NA
y    a    2    3    4
y    b    1    NA   1

Я хочу преобразовать столбцы на основе строки B, чтобы она выглядела примерно так

A    year       a    b
x    1960    1   1.1    
x    1970    2   2.1
x    1980    3   NA    
y    1960    2   1
y    1970    3   NA
y    1980    4   1

Я не знаю, как это сделать. Я знаю, что могу выполнить полное преобразование с помощью t() или row_to_columns() из tidyverse, но результат не тот, что я хочу. Исходные данные содержат около 60 столбцов и 165 различных значений в столбце B.

Answer 1

Ты можешь сделать pivot_long() а потом pivot_wide(), хотя может быть плохой идеей снова переименовать столбец "B":

library(dplyr)
library(tidyr)

df %>% pivot_longer(-c(A,B)) %>% 
pivot_wider(names_from=B) %>% rename(B=name)

    # A tibble: 6 x 4
  A     B         a     b
  <fct> <chr> <dbl> <dbl>
1 x     1960      1   1.1
2 x     1970      2   2.1
3 x     1980      3  NA  
4 y     1960      2   1  
5 y     1970      3  NA  
6 y     1980      4   1 

df = structure(list(A = structure(c(1L, 1L, 2L, 2L), .Label = c("x", 
"y"), class = "factor"), B = structure(c(1L, 2L, 1L, 2L), .Label = c("a", 
"b"), class = "factor"), `1960` = c(1, 1.1, 2, 1), `1970` = c(2, 
2.1, 3, NA), `1980` = c(3L, NA, 4L, 1L)), class = "data.frame", row.names = c(NA, 
-4L))

Answer 2

library(data.table)

dt <- fread('A    B    1960 1970 1980
x    a    1    2    3
x    b    1.1  2.1  NA
y    a    2    3    4
y    b    1    NA   1')

names(dt) <- as.character(dt[1,])
dt <- dt[-1,]
dt[,(3:5):=lapply(.SD,as.numeric),.SDcols=3:5]
dcast(melt(dt,measure.vars = 3:5),...~B,value.var = "value")
#>    A variable a   b
#> 1: x     1960 1 1.1
#> 2: x     1970 2 2.1
#> 3: x     1980 3  NA
#> 4: y     1960 2 1.0
#> 5: y     1970 3  NA
#> 6: y     1980 4 1.0

^{Создано 05.05.2020 с помощью пакета REPEX (v0.3.0)}

Answer 3

Базовый раствор R:

long_df <- reshape(df, direction = "long", 
        varying = which(!names(df) %in% c("A", "B")),
        v.names = "value",
        timevar = "year",
        times = names(df)[!(names(df) %in% c("A", "B"))],
        ids = NULL,
        new.row.names = 1:(length(which(!names(df) %in% c("A", "B"))) * nrow(df)))


wide_df <- setNames(reshape(long_df, direction = "wide", 
                   idvar = c("A", "year"),
                   timevar = "B"), c("A", "B", unique(df$B)))

Данные:

df <- structure(list(A = c("x", "x", "y", "y"), B = c("a", "b", "a", 
"b"), `1960` = c(1, 1.1, 2, 1), `1970` = c(2, 2.1, 3, NA), `1980` = c(3L, 
NA, 4L, 1L)), row.names = 2:5, class = "data.frame")