r - 尝试提取州缩写

Question

我在数据框中有一个地址列表，我想将州缩写提取到一个新列中。

我尝试了一些我在另一个问题上看到的代码:

df$State <- str_extract(df$Address, "\\b[A-Z]{2}"))

它在大多数情况下都运行良好，但它也返回了诸如“NW”之类的地址，这是地址的一部分。我也试过:

ex_city_state(df$Address)

来自似乎有效的 qdapRegex 包，但我不确定如何将结果放入新列中。以下是地址示例:

"212 E Superior St, Alma, MI 48801, USA"
"121 Industrial Rd, Belmont, CA 94002, USA"
"24 Gouverneur Ln, New York, NY 10005, USA"
"1701 Wright St, Madison, WI 53704, USA"
"15898 TX-123, San Marcos, TX 78666, USA"

Answer 1

您可以通过查找两个字母缩写后紧接 5 位邮政编码来表达这一点，例如

addresses <- c("212 E Superior St, Alma, MI 48801, USA",
               "121 Industrial Rd, Belmont, CA 94002, USA",
               "24 Gouverneur Ln, New York, NY 10005, USA",
               "1701 Wright St, Madison, WI 53704, USA",
               "15898 TX-123, San Marcos, TX 78666, USA")
states <- sub(".*\\b([A-Z]{2}) \\d{5}.*", "\\1", addresses)
states

   1    2    3    4    5 
"MI" "CA" "NY" "WI" "TX"