extracting data before a sign in R [duplicate]





.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}







1
















This question already has an answer here:




  • extract a substring in R according to a pattern

    6 answers




I need to extract all the text before a sign, in this case a dash.
I have data like these:



  text1 <- "Médicos-Otros"

  text2 <- "Disturbio-Escándalo"

  text3 <- "Accidente-Choque"


The problem is that the words that i am trying to extract don't have the same lenght so i can't try some of these



extract <- substring(text1, 1, n)


desired results are:



extract1 <- "Médicos"

extract2 <- "Disturbio"

extract3 <- "Accidente"





r regex







share|improve this question















marked as duplicate by Community♦ Jan 4 at 1:08


This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.



















  • Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

    – Henrik
    Jan 3 at 20:33


















1
















This question already has an answer here:




  • extract a substring in R according to a pattern

    6 answers




I need to extract all the text before a sign, in this case a dash.
I have data like these:



  text1 <- "Médicos-Otros"

  text2 <- "Disturbio-Escándalo"

  text3 <- "Accidente-Choque"


The problem is that the words that i am trying to extract don't have the same lenght so i can't try some of these



extract <- substring(text1, 1, n)


desired results are:



extract1 <- "Médicos"

extract2 <- "Disturbio"

extract3 <- "Accidente"





r regex







share|improve this question















marked as duplicate by Community♦ Jan 4 at 1:08


This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.



















  • Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

    – Henrik
    Jan 3 at 20:33














1












1








1









This question already has an answer here:




  • extract a substring in R according to a pattern

    6 answers




I need to extract all the text before a sign, in this case a dash.
I have data like these:



  text1 <- "Médicos-Otros"

  text2 <- "Disturbio-Escándalo"

  text3 <- "Accidente-Choque"


The problem is that the words that i am trying to extract don't have the same lenght so i can't try some of these



extract <- substring(text1, 1, n)


desired results are:



extract1 <- "Médicos"

extract2 <- "Disturbio"

extract3 <- "Accidente"





r regex







share|improve this question

















This question already has an answer here:




  • extract a substring in R according to a pattern

    6 answers




I need to extract all the text before a sign, in this case a dash.
I have data like these:



  text1 <- "Médicos-Otros"

  text2 <- "Disturbio-Escándalo"

  text3 <- "Accidente-Choque"


The problem is that the words that i am trying to extract don't have the same lenght so i can't try some of these



extract <- substring(text1, 1, n)


desired results are:



extract1 <- "Médicos"

extract2 <- "Disturbio"

extract3 <- "Accidente"




This question already has an answer here:




  • extract a substring in R according to a pattern

    6 answers







r regex




r regex






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Jan 10 at 13:20









Julius Vainora

38.4k76786




38.4k76786










asked Jan 3 at 20:21









Armando González DíazArmando González Díaz

6510




6510




marked as duplicate by Community♦ Jan 4 at 1:08


This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.









marked as duplicate by Community♦ Jan 4 at 1:08


This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.















  • Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

    – Henrik
    Jan 3 at 20:33



















  • Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

    – Henrik
    Jan 3 at 20:33

















Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

– Henrik
Jan 3 at 20:33





Remove part of string after “.”, Get the strings before the comma with R, Extract part of string (till the first semicolon) in R, How to extract everything until first occurrence of pattern

– Henrik
Jan 3 at 20:33












4 Answers
4






active

oldest

votes


















1














Using sub does the job:



sub("(.*)-.*", "\1", c(text1, text2, text3))

# [1] "Médicos"   "Disturbio" "Accidente"


Here we split each character into: what goes before the dash ((.*)), the dash itself, and what goes after the dash (.*). Each character then is replaced by the first part (\1).



Analogously you may extract the second half:



sub(".*-(.*)", "\1", c(text1, text2, text3))

# [1] "Otros"     "Escándalo" "Choque"





share|improve this answer


























  • Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

    – Armando González Díaz
    Jan 3 at 21:00








  • 1





    @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

    – Julius Vainora
    Jan 3 at 21:10





















1














You can use regular expressions:



text1 <-  "Médicos-Otros"

text2 <-  "Disturbio-Escándalo"

text3 <-  "Accidente-Choque"



extract1 <- gsub("\-.*", "", text1)

extract2 <- gsub("\-.*", "", text2)

extract3 <- gsub("\-.*", "", text3)


This translates to match everything (and including) after dash ("-") and replace with nothing "".






share|improve this answer
























  • Thank you. Now i need to extract the second part of text ¿How i can do it?

    – Armando González Díaz
    Jan 3 at 20:43






  • 1





    @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

    – AkselA
    Jan 3 at 20:50





















1














You can also use strsplit



> sapply(strsplit(c(text1, text2, text3), "-"), "[[", 1)

[1] "Médicos"   "Disturbio" "Accidente"


Consider str_extract from stringr package as another alternative



> library(stringr)

> str_extract(c(text1, text2, text3), "\w+")

[1] "Médicos"   "Disturbio" "Accidente"





share|improve this answer































    0














    Using regex with positive look-ahead



    sapply(c(text1, text2, text3), 
    
  function(x)
    
    regmatches(x, regexpr(".*(?=-)", x, perl=TRUE))
    
)
    
#      Médicos-Otros Disturbio-Escándalo    Accidente-Choque 
    
#          "Médicos"         "Disturbio"         "Accidente"





    share|improve this answer






























      4 Answers
      4






      active

      oldest

      votes








      4 Answers
      4






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes









      1














      Using sub does the job:



      sub("(.*)-.*", "\1", c(text1, text2, text3))
      
# [1] "Médicos"   "Disturbio" "Accidente"


      Here we split each character into: what goes before the dash ((.*)), the dash itself, and what goes after the dash (.*). Each character then is replaced by the first part (\1).



      Analogously you may extract the second half:



      sub(".*-(.*)", "\1", c(text1, text2, text3))
      
# [1] "Otros"     "Escándalo" "Choque"





      share|improve this answer


























      • Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

        – Armando González Díaz
        Jan 3 at 21:00








      • 1





        @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

        – Julius Vainora
        Jan 3 at 21:10


















      1














      Using sub does the job:



      sub("(.*)-.*", "\1", c(text1, text2, text3))
      
# [1] "Médicos"   "Disturbio" "Accidente"


      Here we split each character into: what goes before the dash ((.*)), the dash itself, and what goes after the dash (.*). Each character then is replaced by the first part (\1).



      Analogously you may extract the second half:



      sub(".*-(.*)", "\1", c(text1, text2, text3))
      
# [1] "Otros"     "Escándalo" "Choque"





      share|improve this answer


























      • Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

        – Armando González Díaz
        Jan 3 at 21:00








      • 1





        @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

        – Julius Vainora
        Jan 3 at 21:10
















      1












      1








      1







      Using sub does the job:



      sub("(.*)-.*", "\1", c(text1, text2, text3))
      
# [1] "Médicos"   "Disturbio" "Accidente"


      Here we split each character into: what goes before the dash ((.*)), the dash itself, and what goes after the dash (.*). Each character then is replaced by the first part (\1).



      Analogously you may extract the second half:



      sub(".*-(.*)", "\1", c(text1, text2, text3))
      
# [1] "Otros"     "Escándalo" "Choque"





      share|improve this answer















      Using sub does the job:



      sub("(.*)-.*", "\1", c(text1, text2, text3))
      
# [1] "Médicos"   "Disturbio" "Accidente"


      Here we split each character into: what goes before the dash ((.*)), the dash itself, and what goes after the dash (.*). Each character then is replaced by the first part (\1).



      Analogously you may extract the second half:



      sub(".*-(.*)", "\1", c(text1, text2, text3))
      
# [1] "Otros"     "Escándalo" "Choque"






      share|improve this answer














      share|improve this answer



      share|improve this answer








      edited Jan 3 at 20:45

























      answered Jan 3 at 20:27









      Julius VainoraJulius Vainora

      38.4k76786




      38.4k76786













      • Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

        – Armando González Díaz
        Jan 3 at 21:00








      • 1





        @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

        – Julius Vainora
        Jan 3 at 21:10





















      • Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

        – Armando González Díaz
        Jan 3 at 21:00








      • 1





        @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

        – Julius Vainora
        Jan 3 at 21:10



















      Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

      – Armando González Díaz
      Jan 3 at 21:00







      Thank you. One more thing, just in order to understand how this work: if there were a lot of dashes and i need one in particular ¿How can i get the desired part of text?

      – Armando González Díaz
      Jan 3 at 21:00






      1




      1





      @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

      – Julius Vainora
      Jan 3 at 21:10







      @ArmandoGonzálezDíaz, to extract, say, the 5th part (after the 4th dash), use sub("(.*?-){4}(.*?)($|-.*)", "\2", txt), and so on (need to change only {4} to something else). The pattern now is quite different because the total number of dashes is unknown. If you knew that there are four dashes in total, the fifth part would be sub(".*-.*-.*-.*-(.*)", "\1", txt) , if we keep going in the same fashion, but clearly there are more concise ways once the situation gets more complex. For the future keep in mind to make sure that your initial question includes everything.

      – Julius Vainora
      Jan 3 at 21:10















      1














      You can use regular expressions:



      text1 <-  "Médicos-Otros"
      
text2 <-  "Disturbio-Escándalo"
      
text3 <-  "Accidente-Choque"
      

      
extract1 <- gsub("\-.*", "", text1)
      
extract2 <- gsub("\-.*", "", text2)
      
extract3 <- gsub("\-.*", "", text3)


      This translates to match everything (and including) after dash ("-") and replace with nothing "".






      share|improve this answer
























      • Thank you. Now i need to extract the second part of text ¿How i can do it?

        – Armando González Díaz
        Jan 3 at 20:43






      • 1





        @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

        – AkselA
        Jan 3 at 20:50


















      1














      You can use regular expressions:



      text1 <-  "Médicos-Otros"
      
text2 <-  "Disturbio-Escándalo"
      
text3 <-  "Accidente-Choque"
      

      
extract1 <- gsub("\-.*", "", text1)
      
extract2 <- gsub("\-.*", "", text2)
      
extract3 <- gsub("\-.*", "", text3)


      This translates to match everything (and including) after dash ("-") and replace with nothing "".






      share|improve this answer
























      • Thank you. Now i need to extract the second part of text ¿How i can do it?

        – Armando González Díaz
        Jan 3 at 20:43






      • 1





        @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

        – AkselA
        Jan 3 at 20:50
















      1












      1








      1







      You can use regular expressions:



      text1 <-  "Médicos-Otros"
      
text2 <-  "Disturbio-Escándalo"
      
text3 <-  "Accidente-Choque"
      

      
extract1 <- gsub("\-.*", "", text1)
      
extract2 <- gsub("\-.*", "", text2)
      
extract3 <- gsub("\-.*", "", text3)


      This translates to match everything (and including) after dash ("-") and replace with nothing "".






      share|improve this answer













      You can use regular expressions:



      text1 <-  "Médicos-Otros"
      
text2 <-  "Disturbio-Escándalo"
      
text3 <-  "Accidente-Choque"
      

      
extract1 <- gsub("\-.*", "", text1)
      
extract2 <- gsub("\-.*", "", text2)
      
extract3 <- gsub("\-.*", "", text3)


      This translates to match everything (and including) after dash ("-") and replace with nothing "".







      share|improve this answer












      share|improve this answer



      share|improve this answer










      answered Jan 3 at 20:26









      KhaynesKhaynes

      727721




      727721













      • Thank you. Now i need to extract the second part of text ¿How i can do it?

        – Armando González Díaz
        Jan 3 at 20:43






      • 1





        @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

        – AkselA
        Jan 3 at 20:50





















      • Thank you. Now i need to extract the second part of text ¿How i can do it?

        – Armando González Díaz
        Jan 3 at 20:43






      • 1





        @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

        – AkselA
        Jan 3 at 20:50



















      Thank you. Now i need to extract the second part of text ¿How i can do it?

      – Armando González Díaz
      Jan 3 at 20:43





      Thank you. Now i need to extract the second part of text ¿How i can do it?

      – Armando González Díaz
      Jan 3 at 20:43




      1




      1





      @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

      – AkselA
      Jan 3 at 20:50







      @ArmandoGonzálezDíaz: If you're interested in both parts of each string, but having them separate, you're better off with Jilbers strsplit() approach. Eg: do.call(rbind, strsplit(c(text1, text2, text3), "-"))

      – AkselA
      Jan 3 at 20:50













      1














      You can also use strsplit



      > sapply(strsplit(c(text1, text2, text3), "-"), "[[", 1)
      
[1] "Médicos"   "Disturbio" "Accidente"


      Consider str_extract from stringr package as another alternative



      > library(stringr)
      
> str_extract(c(text1, text2, text3), "\w+")
      
[1] "Médicos"   "Disturbio" "Accidente"





      share|improve this answer




























        1














        You can also use strsplit



        > sapply(strsplit(c(text1, text2, text3), "-"), "[[", 1)
        
[1] "Médicos"   "Disturbio" "Accidente"


        Consider str_extract from stringr package as another alternative



        > library(stringr)
        
> str_extract(c(text1, text2, text3), "\w+")
        
[1] "Médicos"   "Disturbio" "Accidente"





        share|improve this answer


























          1












          1








          1







          You can also use strsplit



          > sapply(strsplit(c(text1, text2, text3), "-"), "[[", 1)
          
[1] "Médicos"   "Disturbio" "Accidente"


          Consider str_extract from stringr package as another alternative



          > library(stringr)
          
> str_extract(c(text1, text2, text3), "\w+")
          
[1] "Médicos"   "Disturbio" "Accidente"





          share|improve this answer













          You can also use strsplit



          > sapply(strsplit(c(text1, text2, text3), "-"), "[[", 1)
          
[1] "Médicos"   "Disturbio" "Accidente"


          Consider str_extract from stringr package as another alternative



          > library(stringr)
          
> str_extract(c(text1, text2, text3), "\w+")
          
[1] "Médicos"   "Disturbio" "Accidente"






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Jan 3 at 20:31









          Jilber UrbinaJilber Urbina

          43.5k483114




          43.5k483114























              0














              Using regex with positive look-ahead



              sapply(c(text1, text2, text3), 
              
  function(x)
              
    regmatches(x, regexpr(".*(?=-)", x, perl=TRUE))
              
)
              
#      Médicos-Otros Disturbio-Escándalo    Accidente-Choque 
              
#          "Médicos"         "Disturbio"         "Accidente"





              share|improve this answer




























                0














                Using regex with positive look-ahead



                sapply(c(text1, text2, text3), 
                
  function(x)
                
    regmatches(x, regexpr(".*(?=-)", x, perl=TRUE))
                
)
                
#      Médicos-Otros Disturbio-Escándalo    Accidente-Choque 
                
#          "Médicos"         "Disturbio"         "Accidente"





                share|improve this answer


























                  0












                  0








                  0







                  Using regex with positive look-ahead



                  sapply(c(text1, text2, text3), 
                  
  function(x)
                  
    regmatches(x, regexpr(".*(?=-)", x, perl=TRUE))
                  
)
                  
#      Médicos-Otros Disturbio-Escándalo    Accidente-Choque 
                  
#          "Médicos"         "Disturbio"         "Accidente"





                  share|improve this answer













                  Using regex with positive look-ahead



                  sapply(c(text1, text2, text3), 
                  
  function(x)
                  
    regmatches(x, regexpr(".*(?=-)", x, perl=TRUE))
                  
)
                  
#      Médicos-Otros Disturbio-Escándalo    Accidente-Choque 
                  
#          "Médicos"         "Disturbio"         "Accidente"






                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered Jan 3 at 20:49









                  AkselAAkselA

                  4,68421326




                  4,68421326















                      -

                      Popular posts from this blog

                      Mossoró

                      Image
                        Nota: Para outros significados, veja Mossoró (desambiguação). Município de Mossoró "Capital do Oeste Potiguar" [ 1 ] "Capital nacional do Semiárido" [ 2 ] [ 3 ] "Capital Cultural do Rio Grande do Norte" [ 1 ] "Terra de Santa Luzia" [ 4 ] "Terra do Sol, do Sal e do Petróleo" [ 5 ] "Terra da Liberdade [ 6 ] " Centro de Mossoró, com a Praça Vigário Antônio Joaquim e, ao fundo, a câmara municipal de vereadores (esquerda) e Catedral de Santa Luzia (direita) Bandeira Brasão Hino Fundação 15 de março de 1852 (166 anos) Gentílico mossoroense Padroeiro(a) Santa Luzia Prefeito(a) Rosalba Ciarlini Rosado (PP) (2017 – 2020 ) Localização Localização de Mossoró no Rio Grande do Norte Mossoró Localização de Mossoró no Brasil 05° 11' 16" S 37° 20' 38" O 05° 11' 16" S 37° 20' 38" O Unidade federativa Rio Grande do No...
                      Read more

                      Cannot access a disposed object : DataContext

                      Image
                      .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 I'm using TCPClient to connect to device and get some data as a strings, then I'm trying to save data to DB and getting "Cannot access a disposed object" error." Maybe problem is because I'm trying to save to DB from async callback function? Please take a look, here are two functions: first one gets network stream, already connected to the device and starts reading data, second one is callback: private void ReadDataAsync(NetworkStream nwStream) { byte buffer = new byte[1024]; messageStream mStream = new messageStream(nwStream, buffer); if (nwS...
                      Read more

                      Can't read property showImagePicker of undefined in react native iOS

                      Image
                      1 I have tired with this issue npm install react-native-image-picker@latest --save react-native link react-native-image-picker import ImagePicker from 'react-native-image-picker'; const options = { quality: 1.0, maxWidth: 500, maxHeight: 500, storageOptions: { skipBackup: true } }; ImagePicker.showImagePicker(options, (response) => { console.log('Response = ', response); if (response.didCancel) { console.log('User cancelled image picker'); } else if (response.error) { console.log('ImagePicker Error: ', response.error); } else if (response.customButton) { console.log('User tapped custom button: ', response.customButton); } else { ...
                      Read more