library(dplyr) library(tidyverse) d<-read_csv("https://petition.parliament.uk/petitions.csv") names(d)<-c("Petition","URL","State","Count") d %>% filter (Count >10000) %>% filter(State=="open") %>% arrange(-Count)->d DT::datatable(d)