Метод Tidy для разделения нескольких столбцов с помощью tidyr :: separator - PullRequest
Новая
       11

Метод Tidy для разделения нескольких столбцов с помощью tidyr :: separator

2 голосов
/ 21 марта 2019

У меня есть фрейм данных: 

df <- structure(list(A = c("3 of 5", "1 of 2", "1 of 3", "1 of 3", 
"3 of 4", "2 of 7"), B = c("2 of 2", "2 of 4", "0 of 1", "0 of 0", 
"0 of 0", "0 of 0"), C = c("10 of 21", "3 of 14", "11 of 34", 
"10 of 35", "16 of 53", "17 of 62"), D = c("0 of 0", "0 of 0", 
"0 of 0", "0 of 0", "0 of 0", "0 of 0"), E = c("8 of 16", "3 of 15", 
"10 of 32", "6 of 28", "13 of 49", "9 of 48")), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -6L))

df

|A      |B      |C        |D      |E        |
|:------|:------|:--------|:------|:--------|
|3 of 5 |2 of 2 |10 of 21 |0 of 0 |8 of 16  |
|1 of 2 |2 of 4 |3 of 14  |0 of 0 |3 of 15  |
|1 of 3 |0 of 1 |11 of 34 |0 of 0 |10 of 32 |
|1 of 3 |0 of 0 |10 of 35 |0 of 0 |6 of 28  |
|3 of 4 |0 of 0 |16 of 53 |0 of 0 |13 of 49 |
|2 of 7 |0 of 0 |17 of 62 |0 of 0 |9 of 48  |

Я хочу разделить каждый столбец на 2, оставив мне что-то вроде этого: 

|A_attempted |A_landed |B_attempted |B_landed |C_attempted |C_landed |D_attempted |D_landed |E_attempted |E_landed |
|:-----------|:--------|:-----------|:--------|:-----------|:--------|:-----------|:--------|:-----------|:--------|
|3           |5        |2           |2        |10          |21       |0           |0        |8           |16       |
|1           |2        |2           |4        |3           |14       |0           |0        |3           |15       |
|1           |3        |0           |1        |11          |34       |0           |0        |10          |32       |
|1           |3        |0           |0        |10          |35       |0           |0        |6           |28       |
|3           |4        |0           |0        |16          |53       |0           |0        |13          |49       |
|2           |7        |0           |0        |17          |62       |0           |0        |9           |48       |

Метод, который я использую до сих пор, таков: 

df %>% 
  separate(A, sep = " of ", remove = T, into = c("A_attempted", "A_landed")) %>% 
  separate(B, sep = " of ", remove = T, into = c("B_attempted", "B_landed")) %>% 
  separate(C, sep = " of ", remove = T, into = c("C_attempted", "C_landed")) %>%  
  separate(D, sep = " of ", remove = T, into = c("D_attempted", "D_landed")) %>%  
  separate(E, sep = " of ", remove = T, into = c("E_attempted", "E_landed"))

Что не очень хорошо, учитывая, что у меня 15 переменных. Я бы предпочел решение с использованием map

Здесь есть ответ: Применить тидир :: разделить на несколько столбцов , но с использованием устаревших функций

Ответы [ 5 ]

3 голосов
/ 21 марта 2019

Можно попробовать: 

library(tidyverse)

names(df) %>%
  map(
    function(x) 
      df %>% 
      select(x) %>% 
      separate(x, 
               into = paste0(x, c("_attempted", "_landed")), 
               sep = " of ")
    ) %>%
  bind_cols()

Выход: 

# A tibble: 6 x 10
  A_attempted A_landed B_attempted B_landed C_attempted C_landed D_attempted D_landed E_attempted E_landed
  <chr>       <chr>    <chr>       <chr>    <chr>       <chr>    <chr>       <chr>    <chr>       <chr>   
1 3           5        2           2        10          21       0           0        8           16      
2 1           2        2           4        3           14       0           0        3           15      
3 1           3        0           1        11          34       0           0        10          32      
4 1           3        0           0        10          35       0           0        6           28      
5 3           4        0           0        16          53       0           0        13          49      
6 2           7        0           0        17          62       0           0        9           48

Как предполагает ОП, мы действительно можем избежать последнего шага с помощью map_dfc: 

names(df) %>% 
  map_dfc(~ df %>% 
             select(.x) %>% 
             separate(.x, 
                      into = paste0(.x, c("_attempted", "_landed")), 
                      sep = " of ")
           )
2 голосов
/ 21 марта 2019

Еще одна tidyverse возможность 

imap_dfc(df, ~ separate(tibble(.x), col = 1, 
                        paste0(.y, c("_attempted", "_landed")), 
                        sep = " of ", convert = TRUE))

# # A tibble: 6 x 10
#   A_attempted A_landed B_attempted B_landed C_attempted C_landed D_attempted D_landed E_attempted E_landed
#         <int>    <int>       <int>    <int>       <int>    <int>       <int>    <int>       <int>    <int>
# 1           3        5           2        2          10       21           0        0           8       16
# 2           1        2           2        4           3       14           0        0           3       15
# 3           1        3           0        1          11       34           0        0          10       32
# 4           1        3           0        0          10       35           0        0           6       28
# 5           3        4           0        0          16       53           0        0          13       49
# 6           2        7           0        0          17       62           0        0           9       48
2 голосов
/ 21 марта 2019

Один подход: 

library(tidyverse)

df %>%
  rownames_to_column("id") %>%
  gather(group, value, -id) %>% 
  separate(value, into = c("attempted", "landed"), sep = " of ") %>%
  gather(key, value, -id, -group) %>%
  unite(new, group, key, sep = "_" ) %>%
  spread(new, value)

# A tibble: 6 x 11
  id    A_attempted A_landed B_attempted B_landed C_attempted C_landed D_attempted D_landed E_attempted E_landed
  <chr> <chr>       <chr>    <chr>       <chr>    <chr>       <chr>    <chr>       <chr>    <chr>       <chr>   
1 1     3           5        2           2        10          21       0           0        8           16      
2 2     1           2        2           4        3           14       0           0        3           15      
3 3     1           3        0           1        11          34       0           0        10          32      
4 4     1           3        0           0        10          35       0           0        6           28      
5 5     3           4        0           0        16          53       0           0        13          49      
6 6     2           7        0           0        17          62       0           0        9           48
1 голос
/ 21 марта 2019

Просто еще один путь: 

purrr::map_dfc(names(df), function(i) {

 df %>% separate(i,
              sep = "of",
              remove = T,
              into = c(paste0(i, "_attempted"), paste0(i, "_landed")))

 }) %>% dplyr::select(., contains("_"))
1 голос
/ 21 марта 2019

Мы можем использовать cSplit

library(splitstackshape)

df1 <- cSplit(df, names(df), sep = "of", stripWhite = FALSE)
df1

#   A_1 A_2 B_1 B_2 C_1 C_2 D_1 D_2 E_1 E_2
#1:   3   5   2   2  10  21   0   0   8  16
#2:   1   2   2   4   3  14   0   0   3  15
#3:   1   3   0   1  11  34   0   0  10  32
#4:   1   3   0   0  10  35   0   0   6  28
#5:   3   4   0   0  16  53   0   0  13  49
#6:   2   7   0   0  17  62   0   0   9  48

Мы можем переименовать его по 

names(df1) <- c(outer(names(df), c("attempted", "landed"), paste, sep = "_"))

И мы всегда можем сделать что-то в базе R 

do.call(cbind.data.frame, 
     lapply(df, function(x) do.call(rbind, strsplit(x, " of "))))


#  A.1 A.2 B.1 B.2 C.1 C.2 D.1 D.2 E.1 E.2
#1   3   5   2   2  10  21   0   0   8  16
#2   1   2   2   4   3  14   0   0   3  15
#3   1   3   0   1  11  34   0   0  10  32
#4   1   3   0   0  10  35   0   0   6  28
#5   3   4   0   0  16  53   0   0  13  49
#6   2   7   0   0  17  62   0   0   9  48

Мы можем переименовать столбцы аналогично тому, как показано выше.

...