R-从列中删除@之后的所有内容

Question

我想删除@之后第一列中的所有内容。我尝试了各种gsub函数，但似乎没有任何效果。我已经能够将它用于1个字符串，但还有1.7k。

Answer 1

基于环顾四周的tidyverse解决方案可以按以下方式实现。

library(dplyr)
library(stringr)

data <- tibble(STATESC = c('Illinois@Cook County', 'New York@Kings County'),
               TOT_FEMALE = c(261508, 253696))

data %>%
  mutate(STATESC = str_remove(STATESC, '(?<=@).*'))

#   STATESC   TOT_FEMALE
#   <chr>          <dbl>
# 1 Illinois@     261508
# 2 New York@     253696