Получить строки до запятой с R

Question

Я новичок с R. Теперь у меня есть вектор в data.frame как этот

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, 

Я хочу, чтобы очистить его. Я хочу, чтобы все названия городов были запятыми. Как я могу получить результат в R? Благодаря!

Answer 1

Вы можете использовать gsub с небольшим количеством регулярных выражений:

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

Это один работает, тоже:

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

Answer 2

Вы можете использовать regexpr, чтобы найти положение первой запятой в каждом элементе и используйте substr, чтобы отрезать их следующим образом:

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

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

Answer 3

Просто для удовольствия, вы можете использовать strsplit

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

Answer 4

Это работает так:.

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

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

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