Update plot1.R

Using dplyr to summarise