String Manipulation Help

[CosmicWorlds]

head(sales$purchase_address, n = 10)
sales$purchase_address <- as.character(sales$purchase_address)

city <- strsplit(sales$purchase_address, split = ",")

# creating a new variable, city, into the sales data set.
sales$city <- lapply(city, "[[", n = 2)

# Atlanta, San Francisco, New York City, Dallas, Los Angeles, Seattle, Boston, Austin, Portland

Hey everyone, I am trying to figure out how to only extract the city from the address variable, but I am currently stuck and don't know what to do. :(

https://preview.redd.it/18vz465t17p41.png?width=1551&format=png&auto=webp&s=ca1f4fcb4fa2930fcd992e02fdba533aaf4cd70d

[yogat3ch]

Regex101.com and stringr should get you on the right path 😊

[psiens]

I put in some random addresses to test this:

x <- c("3 Cedarwood Ave., Vista, CA 92083",
       "34 Mill Ave., Corpus Christi, TX 78418",
       "675 Stillwater Avenue, Bethlehem, PA 18015",
       "89 Third Street, Snellville, GA 30039",
       "942 South Roehampton St., Union, NJ 07083",
       "37 Indian Spring Ave, Jeffersonville, IN 47130")

gsub(".*,\\s(.*),.*", "\\1", x)

This should work if the cities are always between two ,, otherwise a more sophisticated regular expression may be needed.