Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (15 sloc) 779 Bytes
library(tidyverse)
csv_url = "https://raw.githubusercontent.com/rtanglao/2016-r-rtgram/master/JANUARY2016/january2016-ig-van-avgcolour-id-mf-month-day-daynum-unixtime-hour-colourname.csv"
average_colour_ig_van_jan2016_colourname = read_csv(csv_url)
plot =
ggplot(data=average_colour_ig_van_jan2016_colourname)+
geom_point(colour=average_colour_ig_van_jan2016_colourname$colourname, mapping = aes(x = hour, y=colourname))
filename = "part4-colourname-aesthetic-january2016-ig-van-avgcolour-id-mf-month-day-daynum-unixtime-hour-colourname.png"
ggsave(filename,
plot,
width = 53.333333333,
height = 29.069444444,
dpi = 72,
limitsize = FALSE,
bg = "transparent"
) #multiply height and width by dpi to get px