Сохранение имени при удалении строки во фрейме данных

Question

data1=c(1,8,7,3,2)
data1=data.frame(data1)
rownames(data1)=c("Johnny","May","Jenna","Aisha","Sharon")

Я хотел бы удалить строки, значения которых превышают 5.

Вывод:

       data1
Johnny     1
Aisha      3
Sharon     2

Я пробовал способ, указанный в другом стеке потока, но это не такработа.

* реальные данные намного больше,> 130 строк

Answer 1

data1[data1 <= 5,,drop = FALSE]

или

data1[!data1 > 5,,drop = FALSE]