top25000 <- read_csv("index_sales_export.csv")
blue_chip_index <- top25000 %>%
  select(graded_title,date,price,vcp_card_grade_id) %>%
  filter(date >= as.Date("2018-07-08")) %>%
  group_by(graded_title) %>%
   summarise(Market_Cap = sum(price),Average_Price = mean(price),VCP_Card_Grade_ID = mean(vcp_card_grade_id),count=n())%>%
  filter(Market_Cap >= 10000 & count >= 25)%>%
  rename(Total_Number_of_Sales = count)%>%
blue_chip_index