xóa các chuỗi sau một ký tự nhất định trong một văn bản nhất định

Tôi có một bộ dữ liệu như dưới đây. Tôi muốn xóa tất cả các ký tự sau © ký tự. Làm thế nào tôi có thể làm điều đó trong 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)

Ví dụ:

 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 "

Hoặc, nếu bạn muốn giữ ký tự @:

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

EDIT: Nếu điều bạn muốn là xóa mọi thứ khỏi @ cuối cùng, bạn chỉ cần làm theo ví dụ trước với regex thích hợp. Thí dụ:

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 "

Với sự phù hợp mà chúng tôi đang tìm kiếm, cả phụ và gsub sẽ cho bạn câu trả lời giống nhau.