library(tidyverse) texto_exemplo<-c( "Laborclin#Laborclin Bioliquid - Oxidase/ Peroxidase", "Labtest#Labtest Liquiform - Hexoquinase/ Desidrogenase", "Siemens#Advia - Oxidase/ Peroxidase") DF <- data.frame(texto_exemplo) texto_fim <- DF %>% separate(texto_exemplo, into = c("antes", "depois"), sep=" -") %>% pull("antes") *Cid Edson Mendonça Póvoas* *AnovAgro <http://www.anovagro.com/>* *Engenheiro Agrônomo - **Data Scientist* *CREA : 051984991-4* *Técnico em Segurança do Trabalho * *Nº: **0012669/BA* *Tel: +55 73 99151-9565* *Lattes : *http://lattes.cnpq.br/2303498368142537 *LinkedIn :* http://br.linkedin.com/in/cidedson/ *Whatsapp :* https://wa.me/5573991519565 Em qui., 30 de set. de 2021 às 09:59, Diogo Jerônimo por (R-br) < r-br@listas.c3sl.ufpr.br> escreveu:
Bom dia!!! Estou com um vetor de texto como nesse exemplo abaixo:
texto_exemplo<-c( "Laborclin#Laborclin Bioliquid - Oxidase/ Peroxidase", "Labtest#Labtest Liquiform - Hexoquinase/ Desidrogenase", "Siemens#Advia - Oxidase/ Peroxidase")
Eu gostaria de aplicar uma extração de texto, de tal forma que o que estivesse depois do traço (" - ") fosse apagado, ficando o vetor de texto resultante assim:
texto_fim<-c( "Laborclin#Laborclin Bioliquid", "Labtest#Labtest Liquiform", "Siemens#Advia")
Alguém saberia me ajudar? Eu tentei com o gsub, mas depois do traço, o tamanho dos textos para excluir depois do "-" seria variável, e então não extrairia exatamente o que eu quereria...
Obrigado a todos pela ajuda!!!
*Diogo Jerônimo* *Bacharel em Ciências Estatísticas - ENCE/IBGE* *Mestre em Metrologia - PUC-Rio/PósMQI* *http://lattes.cnpq.br/8996149312896520 <http://lattes.cnpq.br/8996149312896520>* _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.