От длинного до широкого на основе разных столбцов в R - PullRequest
0 голосов
/ 02 августа 2020

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

id_1<-c(1,2,3,4,4,4,4,5,5,5,5,5,6)
h06b<-c(1,1,1,1,2,3,4,1,2,3,4,5,1)
h07<-c(1,2,3,4,5,6,7,8,9,10,11,12,13)
df1<-data.frame(id_1,h06b,h07)

Я хочу преобразовать в широкие на основе h06b, заменив окончательное значение из h07, мой вывод должен быть

id_1<-c(1,2,3,4,5,6)
h06b_0<-c(1,2,3,5,8,13)
h06b_1<-c(NA,NA,NA,6,9,NA)
h06b_2<-c(NA,NA,NA,7,10,NA)
h06b_3<-c(NA,NA,NA,NA,11,NA)
h06b_4<-c(NA,NA,NA,NA,12,NA)
df2<-data.frame(id_1,h06b_0,h06b_1,h06b_2,h06b_3,h06b_4)

1 Ответ

2 голосов
/ 02 августа 2020

Это должно быть то, что вы пытаетесь сделать

library(tidyverse)

id_1<-c(1,2,3,4,4,4,4,5,5,5,5,5,6)
h06b<-c(1,1,1,1,2,3,4,1,2,3,4,5,1)
h07<-c(1,2,3,4,5,6,7,8,9,10,11,12,13)
df1<-data.frame(id_1,h06b,h07)


id_1<-c(1,2,3,4,5,6)
h06b_0<-c(1,2,3,5,8,13)
h06b_1<-c(NA,NA,NA,6,9,NA)
h06b_2<-c(NA,NA,NA,7,10,NA)
h06b_3<-c(NA,NA,NA,NA,11,NA)
h06b_4<-c(NA,NA,NA,NA,12,NA)
df2<-data.frame(id_1,h06b_0,h06b_1,h06b_2,h06b_3,h06b_4)

df1 %>%
  mutate(h06b = h06b - 1) %>% 
  pivot_wider(names_from = h06b,values_from = h07,names_prefix = "h06b_")
#> # A tibble: 6 x 6
#>    id_1 h06b_0 h06b_1 h06b_2 h06b_3 h06b_4
#>   <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
#> 1     1      1     NA     NA     NA     NA
#> 2     2      2     NA     NA     NA     NA
#> 3     3      3     NA     NA     NA     NA
#> 4     4      4      5      6      7     NA
#> 5     5      8      9     10     11     12
#> 6     6     13     NA     NA     NA     NA

Создано 02.08.2020 с помощью пакета реплекс (v0.3.0)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...