squash data with plot.ly

p <- ggplot(squash, aes(x=day, y=pointdifference, color=winner_name)) +
 geom_point(aes(frame = day)) +
 theme_bw()

p <- ggplotly(p)

chart_link = api_create(p, filename=”squash2")
chart_link

p <- ggplot(squash, aes(x=gamesplayed, y=pointdifference)) +
 geom_point(aes(frame = gamesplayed)) +
 facet_grid(. ~winner_name) +
 theme_bw()

p <- ggplotly(p)

chart_link = api_create(p, filename=”squash3")
chart_link

One clap, two clap, three clap, forty?

By clapping more or less, you can signal to us which stories really stand out.