rimuovendo le stringhe dopo un certo carattere in un dato testo

Ho un set di dati come quello qui sotto. Voglio rimuovere tutti i caratteri dopo il carattere ©. Come posso farlo in 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)

r data-cleaning

— Hamideh
fonte

È dopo un carattere specifico o dopo un indice specifico?

— Dawny33

Dopo un personaggio specifico: ©

— Hamideh,

Quindi, sembra che la risposta esistente abbia risolto la tua domanda :)

— Dawny33

Per esempio:

 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 "

Oppure, se si desidera mantenere il carattere @:

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

EDIT: Se quello che vuoi è rimuovere tutto dall'ultimo @ in poi devi solo seguire questo esempio precedente con la regex appropriata. Esempio:

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 "

Data la corrispondenza che stiamo cercando, sia sub che gsub ti daranno la stessa risposta.

— MASL
fonte

— Hamideh,

@HamidehIraj Puoi usare regex per eseguirlo.

— Dawny33

Prego. Una volta che ti sarai abituato a regex, vedrai che è facile da rimuovere dall'ultimo @ char. Ho modificato la mia risposta per includere anche questo caso.

— MASL