Display data by condition

Hello,
I need to show the observations of a data set only if the earn more than
$5000 (fact is its name in the date set). I use this:

View(data[data$fact>5000])

The code above shows nothing. No error or message at all.
What am i doing wrong?
Thanks for your help and time.