# Balloon Plot
ggplot(data = RhythmData, aes(x=Time,y=Participant,size=Intensity,fill=Intensity)) +
geom_point(shape=21, colour="skyblue3") + scale_size(guide="none") +
scale_fill_gradientn(colours = c("lightblue", "steelblue", "midnightblue")) +
theme_grey(base_size=8, base_family="Verdana") +
theme(panel.grid.minor=element_blank(), panel.grid.major.x=element_line(colour="white",size=0.1), panel.grid.major.y=element_line(colour="white",size=0.1))