Split keywords into different columns

General
1

Hello,
I need to split keywords from academic texts that are together in a single column (DS_PALAVRA_CHAVE). However, they are not formatted consistently and for this reason, there is no easy pattern. There are different separators ("," "." ";"), in some cases, spaces have not been used, and also the quantity varies (there are works with 1 keyword and others with more).

Could you please help me with this issue?
Below I am sending a reproducible example:

data.frame(
  stringsAsFactors = FALSE,
  DS_PALAVRA_CHAVE = c("PCI;SUCATA ELETRÔNICA;OURO;PRATA;ICP OES;WDSXRF",
                       "ONDANSETRONA;MÉTODO INDICATIVO DE ESTABILIDADE;CROMATOGRAFIA LÍQUIDA DE ULTRAEFICIÊNCIA;ESPECTROMETRIA DE MASSAS;PLANEJAMENTO EXPERIMENTAL;QUALIDADE ANALÍTICA POR PLANEJAMENTO",
                       "RESINA;POLIÉSTER;TINTA EM PÓ;TGIC;CURA EM ESTUFA;FOSQUEAMENTO;ANÁLISE TÉRMICA",
                       "1-H-2-AMINOINDOL;CARBODIIMIDAS;ARILAMIDAS;LIGAÇÃO AMÍDICA;TUBERCULOSE","ULTRASSOM;PULSO-ECO;FORÇA;PARAFUSO;PORCA",
                       "GASOLINA;EMULSÃO;ICP-OES;CHUMBO;FÓSFORO;SILÍCIO",
                       "SAÚDE BUCAL;TRANSTORNO AUTÍSTICO;QUALIDADE DE VIDA",
                       "QUALIDADE DE VIDA;SAÚDE BUCAL;DEFICIÊNCIA INTELECTUAL",
                       "GENOTOXICIDADE;MUCOSA BUCAL;TOMOGRAFIA COMPUTADORIZADA DE FEIXE CÔNICO","ESTÉTICA;SORRISO;PERCEPÇÃO",
                       "COCONUT OIL;OZONE;STOMATITIS, DENTURE",
                       "HORMÔNIO DO CRESCIMENTO;VOZ;MANDÍBULA;FARINGE",
                       "RESISTÊNCIA AO CISALHAMENTO;ORTODONTIA;EROSÃO DENTÁRIA",
                       "DISPLASIA;CARCINOMA DE CÉLULAS ESCAMOSAS;MASTÓCITOS;COLÁGENO",
                       "ADESIVOS ORTODÔNTICOS;BRÁQUETES ORTODÔNTICOS;ORTODONTIA CORRETIVA",
                       "RÉPTEIS;SQUAMATA, BRASIL, MINAS GERAIS, ESPÍRITO SANTO, COROLOGIA, BIOGEOGRAFIA",
                       "MATA ATLÂNTICA;UNIDADE DE CONSERVAÇÃO, ICTIOFAUNA, ECOLOGIA TRÓFICA, RIACHOS.",
                       "UNIDADE DE CONSERVAÇÃO;RIACHOS, ICTIOFAUNA, QUALIDADE AMBIENTAL, CONSERVAÇÃO",
                       "FLORESTA DE TABULEIRO;MATA ATLÂNTICA, PALINOLOGIA, TAXONOMIA",
                       "CULTURA DE TECIDOS VEGETAIS;FLUORESCÊNCIA DA CLOROFILA A. CITOCININAS. BROMÉLIA. FISIOLOGIA VEGETAL. ANATOMIA VEGETAL",
                       "ESTAQUIA;GERMINAÇÃO, PLÂNTULAS, PLASTICIDADE FENOTÍPICA",
                       "TAYASSUIDAE;MATA ATLÂNTICA;OCUPAÇÃO;EXTINÇÕES REGIONAIS",
                       "PLECÓPTEROS;RIACHOS, NEOTROPICAL, MATA ATLÂNTICA, INSETOS AQUÁTICOS",
                       "BROMÉLIAS;DISSIMILARIDADE GENÉTICA, ESTRUTURAÇÃO GENÉTICA, MARCADORES ISSR, UNIDADES DE CONSERVAÇÃO.",
                       "MANGUEZAL;CRESCIMENTO INICIAL, SOLUÇÃO DE HOGLAND, REFLORESTAMENTO",
                       "GÔNADAS;TARTARUGAS MARINHAS, TEMPO DE INCUBAÇÃO, SUCESSO DE ECLOSÃO","INSELBERGS",
                       "PADRÕES ESPACIAIS;DIVERSIDADE BETA;AUTOCORRELAÇÃO ESPACIAL",
                       "CITOCROMO B;DIVERSIDADE GENÉTICA, D-LOOP, DELPHININAE, GOLFINHO-LISTRADO.",
                       "OVÓCITOS;PIABAS, ULTRAESTRUTUTURA, MICROSCOPIA DE LUZ, REGIÃO NEOTROPICAL",
                       "MATA ATLÂNTICA;HILEIA BAIANA, PORTO SEGURO, SANTA CRUZ CABRÁLIA, INVENTÁRIO HERPETOFAUNÍSTICO, RÉPTEIS.",
                       "AFLORAMENTO ROCHOSO;ANGIOSPERMAS, LICÓFITAS, MATA ATLÂNTICA, SAMAMBAIAS",
                       "ERICALES;MATA ATLÂNTICA, PALINOLOGIA, SUDESTE BRASILEIRO, TAXONOMIA",
                       "GRUPO PIMENTA;MICROSSATÉLITES, MORFOLOGIA, TAXONOMIA",
                       "ICTIOFAUNA;QUALIDADE AMBIENTAL;ECOLOGIA DE RIACHOS",
                       "ICTIOFAUNA;UNIDADES DE CONSERVAÇÃO, ECOLOGIA, MATA ATLÂNTICA, ESTRATÉGIAS REPRODUTIVAS",
                       "ECOLOGIA DE ESTRADAS;SAZONALIDADE;FELINOS;CONECTIVIDADE",
                       "ASFALTENOS;FRACIONAMENTO;AGREGAÇÃO;INIBIDOR;PROCESSO DE DISSOCIAÇÃO",
                       "FORMAÇÃO DE GEADA;PLACA PLANA HORIZONTAL;MOLHABILIDADE SUPERFICIAL;ANÁLISE EXPERIMENTAL;CORRELAÇÃO SEMI-EMPÍRICA",
                       "MICROALGAS;CULTIVO CONTINUO;SENSOR DE DENSIDADE ÓTICA;AUTOMAÇÃO","CIMENTO PORTLAND;ECAT;RUÍDO ELETROQUÍMICO",
                       "CORROSÃO;AÇO CARBONO;DIÓXIDO DE CARBONO;PH ÁCIDO;SUPERSATURAÇÃO",
                       "BIFENILAS POLICLORADAS;RESÍDUOS DA REAÇÃO;KPEG, DESCONTAMINAÇÃO;ÓLEO MINERAL ISOLANTE",
                       "DESSALINIZAÇÃO;OSMOSE REVERSA;TERMODINÂMICA;EXPERIMENTAÇÃO;SIMULAÇÃO",
                       "AREIA DE FUNDIÇÃO;REAPROVEITAMENTO;PAVIMENTO;CLASSIFICAÇÃO DE RESÍDUO SÓLIDO.",
                       "PIRÓLISE RÁPIDA;BIO-ÓLEO;LIGNINA KRAFT;ÁLCOOL FURFURÍLICO;TRATAMENTO TÉRMICO",
                       "COMPOSTOS LAMELARES;INTERCALAÇÃO;BIODIESEL;MOLIBDATO;TUNGSTATO;TRANSESTERIFICAÇÃO",
                       "ALGINATO;NANOFIBRILAS DE CELULOSE;SÍLICA BIOGÊNICA;NITROGÊNIO;AGRICULTURA",
                       "FASE SIGMA;FASE CHI;ENSAIO NÃO DESTRUTIVO;AÇO INOXIDÁVEL DUPLEX;VOLTAMETRIA LINEAR",
                       "SENSORES MICROFLUÍDICOS;POLIMETILMETACRILATO;FILMES ADESIVOS",
                       "FILME DE NANOCELULOSE;CURATIVO;QUEIMADURA;ÓLEO DE CALÊNDULA;NANOPARTÍCULAS DE PRATA",
                       "DIÓXIDO DE VANÁDIO;FILME FINO;ELETRODEPOSIÇÃO",
                       "HIDRÓXIDOS DUPLOS LAMELARES;BENZOTRIAZOL;MATRIZ EPOXÍDICA;ESPECTROSCOPIA DE IMPEDÂNCIA ELETROQUÍMICA",
                       "REAÇÃO ÁLCALI-AGREGADO;MANIFESTAÇÃO PATOLÓGICA;MÉTODOS DE INVESTIGAÇÃO;NANO-MAGNETITA;VARIAÇÃO MÁSSICA",
                       "ÓXIDO DE CÉRIO;ELECTROSPINNING;NANOFIO",
                       "ANÁLISES DINÂMICO-MECÂNICOS;SUPERPAVE;REÔMETRO DE CISALHAMENTO DINÂMICO (DSR);INDICADORES DE DESEMPENHO.",
                       "SUPERCONDUTORES;SUPERCONDUTORES BASEADOS EM FERRO;SISTEMAS F´ERMION- B´OSON;TRANSFORMA¸C\230AO DE SIMILARIDADE;SEGUNDA QUANTIZA¸C\230AO.",
                       "MODELO MATEMÁTICO;BIO-HIDROGÊNIO;ENERGIA SUSTENTÁVEL",
                       "GRAFENO;MODELO NUMÉRICO;NANODISPOSITIVOS",
                       "ÓLEO VEGETAL;NANOFLUIDO;H-BN;CONDUTIVIDADE TÉRMICA;NANOPARTÍCULAS 2D;TRANSFORMADORES DE POTÊNCIA",
                       "FILMES FINOS;LIGAS MANGANÊS-NÍQUEL-GÁLIO;MN-NI-GA",
                       "POLÍMEROS CONJUGADOS;METALO-POLÍMEROS;COMPLEXO DE TÉRBIO",
                       "MICROENCAPSULAÇÃO;COACERVAÇÃO COMPLEXA;ÁCIDOS GRAXOS;MICROALGAS;CALÊNDULA;AVEIA;ALOE VERA;GOMA ARÁBICA;GELATINA",
                       "NANOMATERIAIS;NANOPARTÍCULAS DE OURO;NANOTUBOS DE CARBONO;SENSORES;ABSORÇÃO PLASMÔNICA",
                       "BRUXISMO;LASER. ACUPUNTURA. CRIANÇA. CORTISOL SALIVAR",
                       "LED;FOTOTERAPIA, ÚLCERA, TEMPERATURA, PH, FUGULIN, PUSH",
                       "REPARO ÓSSEO;FOTOBIOMODULAÇÃO, CARVÃO ATIVADO, PROPRIEDADES MECÂNICAS",
                       "REPARO ÓSSEO;FOTOBIOMODULAÇÃO, CARVÃO ATIVADO, PROPRIEDADES MECÂNICAS, BIOMATERIAIS",
                       "TENDINITE;FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, ALODINIA, NOCICEPÇÃO, NEUROCINIA 1, NK1",
                       "ASMA BRÔNQUICA;FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, INFLAMAÇÃO PULMONAR, CITOCINAS, BALB/C, RESPOSTA CLÍNICA",
                       "DOXORRUBICINA;CÉLULAS-TRONCO MESENQUIMAIS, LASER DE BAIXA INTENSIDADE, INSUFICIÊNCIA CARDÍACA",
                       "FOTOBIOMODULAÇÃO;TERAPIA A LASER DE BAIXA POTÊNCIA, MÚSCULO ESQUELÉTICO, CADEIAS PESADAS DE MIOSINA, CALCINEURINA, MIOSTATINA, REGENERAÇÃO, FOTOTERAPIA",
                       "CAMADA DE ESFREGAÇO;LASER;ÁCIDO EDÉTICO;PERMEABILIDADE DA DENTINA;PREPARO DE CANAL RADICULAR;OBTURAÇÃO DO CANAL RADICULAR",
                       "TERAPIA DE FOTOBIOMODULAÇÃO;CURA DE FERIDAS;QUEIMADURA DE TERCEIRO GRAU",
                       "FOTOBIOMODULAÇÃO;DISFONIA, MARCADORES INFLAMATÓRIOS, OCT, PREGAS VOCAIS, INDUÇÃO DO FORMALDEÍDO",
                       "HIPERGLICEMIA;PÉ DIABÉTICO. LASERTERAPIA. FERIDA. GRANULAÇÃO",
                       "LASER;DOR, ACUPUNTURA, FOTOBIOMODULAÇÃO",
                       "REMODELAMENTO CARDÍACO;INSUFICIÊNCIA CARDÍACA, FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, CARVEDILOL, DESEMPENHO FÍSICO",
                       "DISTROFIA MUSCULAR DE DUCHENNE;CAMUNDONGO DMDMDX, TERAPIA DE FOTOBIOMODULAÇÃO, LASER, LED",
                       "TERAPIA DE FOTOBIOMODULAÇÃO;TENDINOPATIA, INFLAMAÇÃO, FOTOTERAPIA, TENDÃO",
                       "TRATAMENTO ENDODÔNTICO;DENTES DECÍDUOS, TERAPIA FOTODINÂMICA ANTIMICROBIANA, INFECÇÃO DO CANAL RADICULAR, NECROSE DA POLPA DENTÁRIA",
                       "BIODIVERSIDADE;ENSINO SUPERIOR;MEIO AMBIENTE;NATUREZA;BIOLOGIA",
                       "POPULARIZAÇÃO CIÊNCIA;CIÊNCIA E TECNOLOGIA AMBIENTAL;FEIRAS CIENCIA",
                       "BTEX, CONTAMINAÇÃO DE SOLO, PLUMA DE CONTAMINAÇÃO;ÁREAS CONTAMINADAS, AVALIAÇÃO PRELIMINAR.",
                       "EDUCAÇÃO AMBIENTAL;JOGO LÚDICO;QUESTIONÁRIO",
                       "SUBSTÂNCIAS PSICOATIVAS;CRACK;CONSUMO DE DROGAS;AMBIENTE SOCIAL",
                       "SUSTENTABILIDADE;RECEITA;ANÁLISE ECONÔMICA;AGARICUS BLAZEI.",
                       "EDUCAÇÃO;MEIO AMBIENTE;ANOS INICIAIS;ESPÉCIES AMEAÇADAS",
                       "PRÉ-ADIPÓCITOS 3T3-L1;DIFERENCIAÇÃO ADIPOGÊNICA;TCDD;METILMERCÚRIO;CO-EXPOSIÇÃO",
                       "COMPOSTOS ORGÂNICOS VOLÁTEIS;DIÓXIDO DE TITÂNIO;REVESTIMENTO CERÂMICO;QUALIDADE DO AR INTERIOR;CONTROLE DE POLUIÇÃO ATMOSFÉRICA",
                       "DOENÇAS GÁSTRICAS;HELICOBACTER PYLORI;INTERLEUCINA2;MICRORNAS;TNF-ALPHA",
                       "COMUNICAÇÃO;SUSTENTABILIDADE",
                       "BIODIVERSIDADE DE PARASITOS;PROCHILODUS LINEATUS;RELAÇÃO PARASITO- HOSPEDEIRO;BIOACUMULAÇÃO;METAIS PESADOS",
                       "DAMITHRAX HISPIDUS;DAMITHRAX TORTUGAE;HISTOLOGIA;MITHRACULUS FÓRCEPS;OMALACANTHA BICORNUTA;MICROSCOPIA ELETRÔNICA DE TRANSMISSÃO",
                       "FEDERALISMO;PODER JUDICIÁRIO;CONFLITOS FEDERATIVOS.",
                       "CGU;QUALIDADE DA DEMOCRACIA;CORRUPÇÃO;ESTADO DE DIREITO;ACCOUNTABILITY HORIZONTAL",
                       "ANALISTA SIMBÓLICO;BRASIL;PRODUÇÃO DE ALTO VALOR E LARGA ESCALA.",
                       "SISTEMAS ELEITORAIS;DINÂMICA ELEITORAL;REPRESENTAÇÃO PROPORCIONAL;MAGNITUDE DISTRITAL.",
                       "REDUÇÃO DA POBREZA;AMÉRICA LATINA;PROGRAMAS DE TRANSFERÊNCIA CONDICIONADA DE RENDA.",
                       "PRONATEC;PROCESSO LEGISLATIVO;PRESIDENCIALISMO;EDUCAÇÃO PROFISSIONAL."),
           AN_BASE = c(2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
                       2017,2017,2017,2017,2017,2017,2017,2017,2017)
)

I appreciate your help.

2

Come back if you need help implementing the two examples

d <- data.frame(
  DS_PALAVRA_CHAVE = c("PCI;SUCATA ELETRÔNICA;OURO;PRATA;ICP OES;WDSXRF",
                       "ONDANSETRONA;MÉTODO INDICATIVO DE ESTABILIDADE;CROMATOGRAFIA LÍQUIDA DE ULTRAEFICIÊNCIA;ESPECTROMETRIA DE MASSAS;PLANEJAMENTO EXPERIMENTAL;QUALIDADE ANALÍTICA POR PLANEJAMENTO",
                       "RESINA;POLIÉSTER;TINTA EM PÓ;TGIC;CURA EM ESTUFA;FOSQUEAMENTO;ANÁLISE TÉRMICA",
                       "1-H-2-AMINOINDOL;CARBODIIMIDAS;ARILAMIDAS;LIGAÇÃO AMÍDICA;TUBERCULOSE","ULTRASSOM;PULSO-ECO;FORÇA;PARAFUSO;PORCA",
                       "GASOLINA;EMULSÃO;ICP-OES;CHUMBO;FÓSFORO;SILÍCIO",
                       "SAÚDE BUCAL;TRANSTORNO AUTÍSTICO;QUALIDADE DE VIDA",
                       "QUALIDADE DE VIDA;SAÚDE BUCAL;DEFICIÊNCIA INTELECTUAL",
                       "GENOTOXICIDADE;MUCOSA BUCAL;TOMOGRAFIA COMPUTADORIZADA DE FEIXE CÔNICO","ESTÉTICA;SORRISO;PERCEPÇÃO",
                       "COCONUT OIL;OZONE;STOMATITIS, DENTURE",
                       "HORMÔNIO DO CRESCIMENTO;VOZ;MANDÍBULA;FARINGE",
                       "RESISTÊNCIA AO CISALHAMENTO;ORTODONTIA;EROSÃO DENTÁRIA",
                       "DISPLASIA;CARCINOMA DE CÉLULAS ESCAMOSAS;MASTÓCITOS;COLÁGENO",
                       "ADESIVOS ORTODÔNTICOS;BRÁQUETES ORTODÔNTICOS;ORTODONTIA CORRETIVA",
                       "RÉPTEIS;SQUAMATA, BRASIL, MINAS GERAIS, ESPÍRITO SANTO, COROLOGIA, BIOGEOGRAFIA",
                       "MATA ATLÂNTICA;UNIDADE DE CONSERVAÇÃO, ICTIOFAUNA, ECOLOGIA TRÓFICA, RIACHOS.",
                       "UNIDADE DE CONSERVAÇÃO;RIACHOS, ICTIOFAUNA, QUALIDADE AMBIENTAL, CONSERVAÇÃO",
                       "FLORESTA DE TABULEIRO;MATA ATLÂNTICA, PALINOLOGIA, TAXONOMIA",
                       "CULTURA DE TECIDOS VEGETAIS;FLUORESCÊNCIA DA CLOROFILA A. CITOCININAS. BROMÉLIA. FISIOLOGIA VEGETAL. ANATOMIA VEGETAL",
                       "ESTAQUIA;GERMINAÇÃO, PLÂNTULAS, PLASTICIDADE FENOTÍPICA",
                       "TAYASSUIDAE;MATA ATLÂNTICA;OCUPAÇÃO;EXTINÇÕES REGIONAIS",
                       "PLECÓPTEROS;RIACHOS, NEOTROPICAL, MATA ATLÂNTICA, INSETOS AQUÁTICOS",
                       "BROMÉLIAS;DISSIMILARIDADE GENÉTICA, ESTRUTURAÇÃO GENÉTICA, MARCADORES ISSR, UNIDADES DE CONSERVAÇÃO.",
                       "MANGUEZAL;CRESCIMENTO INICIAL, SOLUÇÃO DE HOGLAND, REFLORESTAMENTO",
                       "GÔNADAS;TARTARUGAS MARINHAS, TEMPO DE INCUBAÇÃO, SUCESSO DE ECLOSÃO","INSELBERGS",
                       "PADRÕES ESPACIAIS;DIVERSIDADE BETA;AUTOCORRELAÇÃO ESPACIAL",
                       "CITOCROMO B;DIVERSIDADE GENÉTICA, D-LOOP, DELPHININAE, GOLFINHO-LISTRADO.",
                       "OVÓCITOS;PIABAS, ULTRAESTRUTUTURA, MICROSCOPIA DE LUZ, REGIÃO NEOTROPICAL",
                       "MATA ATLÂNTICA;HILEIA BAIANA, PORTO SEGURO, SANTA CRUZ CABRÁLIA, INVENTÁRIO HERPETOFAUNÍSTICO, RÉPTEIS.",
                       "AFLORAMENTO ROCHOSO;ANGIOSPERMAS, LICÓFITAS, MATA ATLÂNTICA, SAMAMBAIAS",
                       "ERICALES;MATA ATLÂNTICA, PALINOLOGIA, SUDESTE BRASILEIRO, TAXONOMIA",
                       "GRUPO PIMENTA;MICROSSATÉLITES, MORFOLOGIA, TAXONOMIA",
                       "ICTIOFAUNA;QUALIDADE AMBIENTAL;ECOLOGIA DE RIACHOS",
                       "ICTIOFAUNA;UNIDADES DE CONSERVAÇÃO, ECOLOGIA, MATA ATLÂNTICA, ESTRATÉGIAS REPRODUTIVAS",
                       "ECOLOGIA DE ESTRADAS;SAZONALIDADE;FELINOS;CONECTIVIDADE",
                       "ASFALTENOS;FRACIONAMENTO;AGREGAÇÃO;INIBIDOR;PROCESSO DE DISSOCIAÇÃO",
                       "FORMAÇÃO DE GEADA;PLACA PLANA HORIZONTAL;MOLHABILIDADE SUPERFICIAL;ANÁLISE EXPERIMENTAL;CORRELAÇÃO SEMI-EMPÍRICA",
                       "MICROALGAS;CULTIVO CONTINUO;SENSOR DE DENSIDADE ÓTICA;AUTOMAÇÃO","CIMENTO PORTLAND;ECAT;RUÍDO ELETROQUÍMICO",
                       "CORROSÃO;AÇO CARBONO;DIÓXIDO DE CARBONO;PH ÁCIDO;SUPERSATURAÇÃO",
                       "BIFENILAS POLICLORADAS;RESÍDUOS DA REAÇÃO;KPEG, DESCONTAMINAÇÃO;ÓLEO MINERAL ISOLANTE",
                       "DESSALINIZAÇÃO;OSMOSE REVERSA;TERMODINÂMICA;EXPERIMENTAÇÃO;SIMULAÇÃO",
                       "AREIA DE FUNDIÇÃO;REAPROVEITAMENTO;PAVIMENTO;CLASSIFICAÇÃO DE RESÍDUO SÓLIDO.",
                       "PIRÓLISE RÁPIDA;BIO-ÓLEO;LIGNINA KRAFT;ÁLCOOL FURFURÍLICO;TRATAMENTO TÉRMICO",
                       "COMPOSTOS LAMELARES;INTERCALAÇÃO;BIODIESEL;MOLIBDATO;TUNGSTATO;TRANSESTERIFICAÇÃO",
                       "ALGINATO;NANOFIBRILAS DE CELULOSE;SÍLICA BIOGÊNICA;NITROGÊNIO;AGRICULTURA",
                       "FASE SIGMA;FASE CHI;ENSAIO NÃO DESTRUTIVO;AÇO INOXIDÁVEL DUPLEX;VOLTAMETRIA LINEAR",
                       "SENSORES MICROFLUÍDICOS;POLIMETILMETACRILATO;FILMES ADESIVOS",
                       "FILME DE NANOCELULOSE;CURATIVO;QUEIMADURA;ÓLEO DE CALÊNDULA;NANOPARTÍCULAS DE PRATA",
                       "DIÓXIDO DE VANÁDIO;FILME FINO;ELETRODEPOSIÇÃO",
                       "HIDRÓXIDOS DUPLOS LAMELARES;BENZOTRIAZOL;MATRIZ EPOXÍDICA;ESPECTROSCOPIA DE IMPEDÂNCIA ELETROQUÍMICA",
                       "REAÇÃO ÁLCALI-AGREGADO;MANIFESTAÇÃO PATOLÓGICA;MÉTODOS DE INVESTIGAÇÃO;NANO-MAGNETITA;VARIAÇÃO MÁSSICA",
                       "ÓXIDO DE CÉRIO;ELECTROSPINNING;NANOFIO",
                       "ANÁLISES DINÂMICO-MECÂNICOS;SUPERPAVE;REÔMETRO DE CISALHAMENTO DINÂMICO (DSR);INDICADORES DE DESEMPENHO.",
                       "SUPERCONDUTORES;SUPERCONDUTORES BASEADOS EM FERRO;SISTEMAS F´ERMION- B´OSON;TRANSFORMA¸C\230AO DE SIMILARIDADE;SEGUNDA QUANTIZA¸C\230AO.",
                       "MODELO MATEMÁTICO;BIO-HIDROGÊNIO;ENERGIA SUSTENTÁVEL",
                       "GRAFENO;MODELO NUMÉRICO;NANODISPOSITIVOS",
                       "ÓLEO VEGETAL;NANOFLUIDO;H-BN;CONDUTIVIDADE TÉRMICA;NANOPARTÍCULAS 2D;TRANSFORMADORES DE POTÊNCIA",
                       "FILMES FINOS;LIGAS MANGANÊS-NÍQUEL-GÁLIO;MN-NI-GA",
                       "POLÍMEROS CONJUGADOS;METALO-POLÍMEROS;COMPLEXO DE TÉRBIO",
                       "MICROENCAPSULAÇÃO;COACERVAÇÃO COMPLEXA;ÁCIDOS GRAXOS;MICROALGAS;CALÊNDULA;AVEIA;ALOE VERA;GOMA ARÁBICA;GELATINA",
                       "NANOMATERIAIS;NANOPARTÍCULAS DE OURO;NANOTUBOS DE CARBONO;SENSORES;ABSORÇÃO PLASMÔNICA",
                       "BRUXISMO;LASER. ACUPUNTURA. CRIANÇA. CORTISOL SALIVAR",
                       "LED;FOTOTERAPIA, ÚLCERA, TEMPERATURA, PH, FUGULIN, PUSH",
                       "REPARO ÓSSEO;FOTOBIOMODULAÇÃO, CARVÃO ATIVADO, PROPRIEDADES MECÂNICAS",
                       "REPARO ÓSSEO;FOTOBIOMODULAÇÃO, CARVÃO ATIVADO, PROPRIEDADES MECÂNICAS, BIOMATERIAIS",
                       "TENDINITE;FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, ALODINIA, NOCICEPÇÃO, NEUROCINIA 1, NK1",
                       "ASMA BRÔNQUICA;FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, INFLAMAÇÃO PULMONAR, CITOCINAS, BALB/C, RESPOSTA CLÍNICA",
                       "DOXORRUBICINA;CÉLULAS-TRONCO MESENQUIMAIS, LASER DE BAIXA INTENSIDADE, INSUFICIÊNCIA CARDÍACA",
                       "FOTOBIOMODULAÇÃO;TERAPIA A LASER DE BAIXA POTÊNCIA, MÚSCULO ESQUELÉTICO, CADEIAS PESADAS DE MIOSINA, CALCINEURINA, MIOSTATINA, REGENERAÇÃO, FOTOTERAPIA",
                       "CAMADA DE ESFREGAÇO;LASER;ÁCIDO EDÉTICO;PERMEABILIDADE DA DENTINA;PREPARO DE CANAL RADICULAR;OBTURAÇÃO DO CANAL RADICULAR",
                       "TERAPIA DE FOTOBIOMODULAÇÃO;CURA DE FERIDAS;QUEIMADURA DE TERCEIRO GRAU",
                       "FOTOBIOMODULAÇÃO;DISFONIA, MARCADORES INFLAMATÓRIOS, OCT, PREGAS VOCAIS, INDUÇÃO DO FORMALDEÍDO",
                       "HIPERGLICEMIA;PÉ DIABÉTICO. LASERTERAPIA. FERIDA. GRANULAÇÃO",
                       "LASER;DOR, ACUPUNTURA, FOTOBIOMODULAÇÃO",
                       "REMODELAMENTO CARDÍACO;INSUFICIÊNCIA CARDÍACA, FOTOBIOMODULAÇÃO, LASER DE BAIXA INTENSIDADE, CARVEDILOL, DESEMPENHO FÍSICO",
                       "DISTROFIA MUSCULAR DE DUCHENNE;CAMUNDONGO DMDMDX, TERAPIA DE FOTOBIOMODULAÇÃO, LASER, LED",
                       "TERAPIA DE FOTOBIOMODULAÇÃO;TENDINOPATIA, INFLAMAÇÃO, FOTOTERAPIA, TENDÃO",
                       "TRATAMENTO ENDODÔNTICO;DENTES DECÍDUOS, TERAPIA FOTODINÂMICA ANTIMICROBIANA, INFECÇÃO DO CANAL RADICULAR, NECROSE DA POLPA DENTÁRIA",
                       "BIODIVERSIDADE;ENSINO SUPERIOR;MEIO AMBIENTE;NATUREZA;BIOLOGIA",
                       "POPULARIZAÇÃO CIÊNCIA;CIÊNCIA E TECNOLOGIA AMBIENTAL;FEIRAS CIENCIA",
                       "BTEX, CONTAMINAÇÃO DE SOLO, PLUMA DE CONTAMINAÇÃO;ÁREAS CONTAMINADAS, AVALIAÇÃO PRELIMINAR.",
                       "EDUCAÇÃO AMBIENTAL;JOGO LÚDICO;QUESTIONÁRIO",
                       "SUBSTÂNCIAS PSICOATIVAS;CRACK;CONSUMO DE DROGAS;AMBIENTE SOCIAL",
                       "SUSTENTABILIDADE;RECEITA;ANÁLISE ECONÔMICA;AGARICUS BLAZEI.",
                       "EDUCAÇÃO;MEIO AMBIENTE;ANOS INICIAIS;ESPÉCIES AMEAÇADAS",
                       "PRÉ-ADIPÓCITOS 3T3-L1;DIFERENCIAÇÃO ADIPOGÊNICA;TCDD;METILMERCÚRIO;CO-EXPOSIÇÃO",
                       "COMPOSTOS ORGÂNICOS VOLÁTEIS;DIÓXIDO DE TITÂNIO;REVESTIMENTO CERÂMICO;QUALIDADE DO AR INTERIOR;CONTROLE DE POLUIÇÃO ATMOSFÉRICA",
                       "DOENÇAS GÁSTRICAS;HELICOBACTER PYLORI;INTERLEUCINA2;MICRORNAS;TNF-ALPHA",
                       "COMUNICAÇÃO;SUSTENTABILIDADE",
                       "BIODIVERSIDADE DE PARASITOS;PROCHILODUS LINEATUS;RELAÇÃO PARASITO- HOSPEDEIRO;BIOACUMULAÇÃO;METAIS PESADOS",
                       "DAMITHRAX HISPIDUS;DAMITHRAX TORTUGAE;HISTOLOGIA;MITHRACULUS FÓRCEPS;OMALACANTHA BICORNUTA;MICROSCOPIA ELETRÔNICA DE TRANSMISSÃO",
                       "FEDERALISMO;PODER JUDICIÁRIO;CONFLITOS FEDERATIVOS.",
                       "CGU;QUALIDADE DA DEMOCRACIA;CORRUPÇÃO;ESTADO DE DIREITO;ACCOUNTABILITY HORIZONTAL",
                       "ANALISTA SIMBÓLICO;BRASIL;PRODUÇÃO DE ALTO VALOR E LARGA ESCALA.",
                       "SISTEMAS ELEITORAIS;DINÂMICA ELEITORAL;REPRESENTAÇÃO PROPORCIONAL;MAGNITUDE DISTRITAL.",
                       "REDUÇÃO DA POBREZA;AMÉRICA LATINA;PROGRAMAS DE TRANSFERÊNCIA CONDICIONADA DE RENDA.",
                       "PRONATEC;PROCESSO LEGISLATIVO;PRESIDENCIALISMO;EDUCAÇÃO PROFISSIONAL."),
  AN_BASE = c(2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
              2017,2017,2017,2017,2017,2017,2017,2017,2017)
)

# convert to UTF-8,\
d[,1] <- iconv(d[,1], from = "", to = "UTF-8")
# convert , delimiters to ;
d[,1] <- gsub(",",";",d[,1])
# extract list
l <- strsplit(d[,1],";")
# trim leading whitespace example
gsub("^ ","",l[[78]][3])
#> [1] "FOTOBIOMODULAÇÃO"
# find maximum length
sapply(l,length) |> max()
#> [1] 9
# find shortfall
(sapply(l,length) |> max()) - sapply(l,length)
#>   [1] 3 3 2 4 4 3 6 6 6 6 5 5 6 5 6 2 4 4 5 7 5 5 4 4 5 5 8 6 4 4 3 4 4 5 6 4 5
#>  [38] 4 4 5 6 4 4 4 5 4 3 4 4 6 4 6 5 4 6 5 8 6 6 3 6 6 0 4 7 2 5 4 2 2 5 1 3 6
#>  [75] 3 7 5 3 4 4 4 4 6 4 6 5 5 5 4 4 4 7 4 3 6 4 6 5 6 5
# example of padding out a short element
append(l[[1]],rep(NA,3))
#> [1] "PCI"               "SUCATA ELETRÔNICA" "OURO"             
#> [4] "PRATA"             "ICP OES"           "WDSXRF"           
#> [7] NA                  NA                  NA

Created on 2023-07-17 with reprex v2.0.2

1 Like
3

Thank you for the explanation.

4

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.