ggjoy() plot for instagram january 2016 average colour, average-colour-by-hour-ggjoy-from-csv.R,not working

library(ggplot2)
library(plotrix)
library(plyr)
library(ggjoy)

tc <- function(x) {
  return (head(color.id(x), n = 1))
}

printf <- function(...) {
  invisible(print(sprintf(...)))
}

args <- commandArgs(TRUE)

## Default setting when no arguments passed
if (length(args) < 1) {
  args <- c("--help")
}
if ("--help" %in% args) {
  cat(
    "
    Arguments:
    CSV file with a column with colour with hex values for colours
    --help              - print this text
    Example:
    Rscript average-colour-by-hour-ggjoy-from-csv.R JANUARY2016/january2016-ig-van-avgcolour-id-mf-month-day-daynum-unixtime-hour.csv\n\n"

  )
  q(save = "no")
}

main <- function() {
  data3 = read.csv(file = args[1], stringsAsFactors = F)
  data3$colourname <- sapply(data3$colour, tc)

  print(head(data3))

  p = ggplot(data3, aes(x = hour, y = colourname, stat= "identity")) +
      geom_joy()+
      ## geom_joy(scale = 3, rel_min_height = 0.01) +
      scale_y_discrete(expand = c(0.01, 0)) +   # will generally have to set the `expand` option
      ## scale_x_continuous(expand = c(0.01, 0)) +
      ## scale_y_discrete(expand = c(0.01, 0)) +
      labs(title = 'Average Colour',
           subtitle = 'Instagram 2016 Vancouver') +
      theme_joy(font_size = 13, grid = T) + theme(axis.title.y = element_blank())

  filename = sprintf("ggjoy-instagram-average-colour-%s", gsub("csv", "png", basename(args[1])))

  ggsave(filename,
         p,
         width = 14.222222222,
         height =10.666666667,
         dpi = 72,
         limitsize = FALSE) #multiply height and width by dpi to get px
  
}

sink("log.txt")

main()

sink()