删除给定文本中某个字符后的字符串

我有一个像下面这样的数据集。我想删除字符©之后的所有字符。如何在R中做到这一点？

data_clean_phrase <- c("Copyright © The Society of Geomagnetism and Earth", 
"© 2013 Chinese National Committee ")

data_clean_df <- as.data.frame(data_clean_phrase)

例如：

 rs<-c("copyright @ The Society of mo","I want you to meet me @ the coffeshop")
 s<-gsub("@.*","",rs)
 s
 [1] "copyright "             "I want you to meet me "

或者，如果要保留@字符：

 s<-gsub("(@).*","\\1",rs)
 s
 [1] "copyright @"             "I want you to meet me @"

编辑：如果您要删除最后一个@上的所有内容，则只需遵循前面的示例使用适当的正则表达式即可。例：

rs<-c("copyright @ The Society of mo located @ my house","I want you to meet me @ the coffeshop")
s<-gsub("(.*)@.*","\\1",rs)
s
[1] "copyright @ The Society of mo located " "I want you to meet me "

给定我们要寻找的匹配项，sub和gsub都会给您相同的答案。