Изменить порядок и извлечь значения из фрейма данных, чтобы указать c столбцов в R - PullRequest
Новая
       130

Изменить порядок и извлечь значения из фрейма данных, чтобы указать c столбцов в R

0 голосов
/ 14 июля 2020

У меня есть df фрейма данных вроде этого 

> df <- data.frame(type=c("Id","v1","v2","Id","v1","v1","v2","Id","v1","v2","v3"),num=c(1000,200,500,1001,727,50,800,1002,400,365,865))
> df
   type  num
1    Id 1000
2    v1  200
3    v2  500
4    Id 1001
5    v1  727
6    v1   50
7    v2  800
8    Id 1002
9    v1  400
10   v2  365
11   v3  865

Мне нужно создать еще один фрейм данных с Id, v1, v2, v3 в качестве имен столбцов и соответствующих значений из df таким образом, чтобы переменная под каждым идентификатором принадлежала этому идентификатору, и когда одна и та же переменная повторяется, она должна отображаться с тем же идентификатором, и если переменная отсутствует, необходимо указать NA. Это желаемый результат. 

    Id  v1  v2  v3
1 1000 200 500  NA
2 1001 727  NA  NA
3 1001  50 800  NA
4 1002 400 365 865

Я подумал о методе, использующем для l oop. Но структурировать это кажется сложным и трудным. Есть ли способ без использования циклов for.

1 Ответ

0 голосов
/ 14 июля 2020

попробуйте сделать так 

   library(tidyverse) 
   df %>% 
      mutate(id = ifelse(type == "Id", num, NA)) %>% 
      fill(id) %>% 
      filter(type != "Id") %>% 
      group_by(id, type) %>% 
      mutate(n = row_number()) %>% 
      pivot_wider(c(id, n), names_from = type, values_from = num) %>% 
      select(-n) %>% 
      ungroup()

# A tibble: 4 x 4
     id    v1    v2    v3
  <dbl> <dbl> <dbl> <dbl>
1  1000   200   500    NA
2  1001   727   800    NA
3  1001    50    NA    NA
4  1002   400   365   865
...