Спасибо за ответ, Ян, я понимаю, что сам вопрос был не очень хорошо сформулирован, но мне было трудно объяснить, что я хотел. С вашей помощью я смог собрать это:
top <- subset(data, data$column > quantile(data$column, 0.85))
bottom <- subset(data, data$column < quantile(data$column, 0.15))
listing <- rbind(top,bottom)
label <- 1:nrow(listing)
listing[sort.list(listing$Distance, decreasing=T),]