Obtenez les chaînes avant la virgule avec R

Je suis un débutant avec R. Maintenant, j'ai un vecteur de données.cette image

city
Kirkland,
Bethesda,
Wellington,
La Jolla,
Berkeley,
Costa, Evie KW172NJ
Miami,
Plano,
Sacramento,
Middletown,
Webster,
Houston,
Denver,
Kirkland,
Pinecrest,
Tarzana,
Boulder,
Westfield,
Fair Haven,
Royal Palm Beach, Fl
Westport,
Encino,
Oak Ridge,

Je veux le nettoyer. Ce que je veux, c'est tous les noms de ville avant la virgule. Comment puis-je obtenir le résultat dans R? Merci!

source d'informationauteur user2855907 | 2013-10-11

  1. 13

    Vous pouvez utiliser gsub avec un peu de regexp :

    cities <- gsub("^(.*?),.*", "\", df$city)

    Celui-ci fonctionne, trop :

    cities <- gsub(",.*$", "", df$city)
  2. 4

    Juste pour le fun, vous pouvez utiliser strsplit

    > x <- c("London, UK", "Paris, France", "New York, USA")
> sapply(strsplit(x, ","), "[", 1)
[1] "London"   "Paris"    "New York"
  3. 2

    Vous pouvez utiliser regexpr pour trouver la position de la première virgule dans chaque élément et utiliser substr de snip à ceci:

    x <- c("London, UK", "Paris, France", "New York, USA")

substr(x,1,regexpr(",",x)-1)
[1] "London"   "Paris"    "New York"
  4. 2

    Cela fonctionne ainsi:

    x <- c("London, UK", "Paris, France", "New York, USA")

library(qdap)
beg2char(x, ",")

## > beg2char(x, ",")
## [1] "London"   "Paris"    "New York"