做完才看到這份，我寫寫我的作法好了
S1 <- regexpr("\\?", XXX$text)
S1[S1 < 0] = NA
End <- 1000
XXX$text <- substr(XXX$text, S1+1, End)