Предполагая, что это информационный кадр, и "mers" всегда будет присутствовать во 2-м столбце, мы можем получить индексы, в которых V2
имеет "mers", и затем объединить оставшиеся индексы
inds <- which(df$V2 == "mers")
df[c(inds, setdiff(1:nrow(df), inds)), ]
# V1 V2
#3 car mers
#4 vehicle mers
#1 car bmw
#2 car audi
данные
df <- read.table(text = "car bmw
car audi
car mers
vehicle mers")