Что является эквивалентом by () с аргументом index в tidyverse? - PullRequest
Новая
       49

Что является эквивалентом by () с аргументом index в tidyverse?

1 голос
/ 23 апреля 2020

У меня есть фрейм данных со столбцом имени и столбцом тикера, столбец тикера обрезается с помощью ";" если имя содержит более 1 тикера. Ниже приведен краткий обзор этого data.frame:

df.info - это имя dataframe 

Rows: 525
Columns: 2
$ name.company <chr> "521 PARTICIPAÇOES S.A. - EM LIQUIDAÇÃO EXTRAJUDICIAL", "524 PARTICIPAÇOES SA", "AAJR SECURITIZADORA DE CRÉDITO...
$ tickers      <chr> NA, "QVQP3B", NA, "ADHM3", "TIET11;TIET3;TIET4", "AFLT3", NA, "ALEF3B", "RPAD3;RPAD5;RPAD6", NA, "ALSO3", "ALPA...

И я хочу иметь dataframe, который имеет 2 столбца, тикер и name.company, но без шаблон обрезки ";". 

e.g.: 
name   ticker
tiete  tiet11
tiete  tiet3
tiete  tiet4

и так далее ... Я решил это с помощью функции by (), но я понятия не имею, как решить это с помощью пакетов tidyverse / purrr.

Решение без tidyverse 

get.ticker.df <- function(df.in)
{
   # Gets ticker string and organizes it in another data_frame
   temp.split <- str_split(df.in$tickers, ';')[[1]]
   temp.df <- tibble(name.company = df.in$name.company,
                         ticker = temp.split)
}

 my.l <- by(data = df.info,
               INDICES = df.info$name.company,
               FUN = get.ticker.df)

    df.tickers <- bind_rows(my.l)

Я не знаю эквивалента этой функции с помощью () в tidyverse.

Редактировать - Добавлены начальный кадр и идеальный результат, для ясности. 

tibble_start <- tibble( name.company = c("AES TIETE", "AMBEV"),
                        ticker = c("TIET11;TIET3;TIET4", "ABEV3;ABEV4"))

tibble_ideal <- tibble( name.company = c( rep("AES TIETE", 3), rep("AMBEV",2)),
                        ticker = c("TIET11","TIET3","TIET4","ABEV3","ABEV4"))

Заранее спасибо!

1 Ответ

0 голосов
/ 23 апреля 2020

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

library(dplyr)
library(tidyr)
df1 %>%
  separate_rows(tickers)
...