string_1 <- "NC_045512.2 Severe acute respiratory syndrome coronavirus 2"
#Use gsub remove all string before first white space in R
string_2 <- sub(".*? ","", string_1)
string_2
## [1] "Severe acute respiratory syndrome coronavirus 2"
string_1 <- "NC_045512.2 Severe acute respiratory syndrome coronavirus 2"
for (i in 1:6) {
  #print(string_1)
  string_1 <- sub(".*? ","", string_1)
  print(string_1)
}
## [1] "Severe acute respiratory syndrome coronavirus 2"
## [1] "acute respiratory syndrome coronavirus 2"
## [1] "respiratory syndrome coronavirus 2"
## [1] "syndrome coronavirus 2"
## [1] "coronavirus 2"
## [1] "2"