Вот некоторые данные, которые, как я полагаю, похожи на те, которые у вас есть.
houses<-data.frame(Sale_Price=rnorm(100,50,5))
Код, который остается только с ценами между верхним и нижним 5% значений Sale_Price
#Calculate 0.05 and 0.95 percentiles
quants<-quantile(houses$Sale_Price, probs = c(0.05, 0.95))
#Subset according to the two percentiles
df1 <- houses$Sale_Price[houses$Sale_Price > quants[1] & houses$Sale_Price < quants[2]]