library(tidyverse)
Uma sugestão é utilizar a função str_split()
do ::stringr
.
Primeiro crio o dataset:
t1 <- tibble(DC_DESCRITORES = c("D001|D004|D005|D006|D007|D008|D009|D010|D012|D014"))
# A tibble: 1 × 1
DC_DESCRITORES
<chr>
1 D001|D004|D005|D006|D007|D008|D009|D010|D012|D014
Agora o split:
A função str_split()
pede:
- a string a ser decomposta;
- o padrão a ser utilizado para decompor a string
- o número de colunas desejado
A string a ser decomposta, é t1$DC_DESCRITORES
O padrão de separação é o "|"
. Nesse caso, precisamos usar o escape. Então a regex do padrão fica "\\|"
O número de colunas desejado é 10.
Você pode informar essa valor diretamente no parâmetro n =
, ou você pode automatizar a definição do número de colunas com a função str_count()
buscando pelo padrão letra "D". Assim, a função identifica 10 letras "D" na string e considera que devem ser construídas 10 colunas.
O resultado desse processo é uma lista. Se vc quiser que saia uma matriz, é só informar o argumento simplify = T
Por fim, converte-se a matriz em data frame com as função as.data.frame()
str_split(t1$DC_DESCRITORES,
pattern = "\\|",
n = str_count(t1$DC_DESCRITORES, pattern = "D"),
simplify = T) %>%
as.data.frame()
resultado:
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1 D001 D004 D005 D006 D007 D008 D009 D010 D012 D014