R Notebook

require(data.table)

DT = fread("picodash_instagram_nra_blog_2016-12-14.csv")

splits <- max(lengths(strsplit(DT$Hashtags, ",")))
DT = DT[, paste0("hashtag", 1:splits) := tstrsplit(Hashtags, ",", fixed=T)][]

DTLong = melt(DT, id="URL", measure.vars = patterns("hashtag"))
DTLong = DTLong[!is.na(DTLong$value), c("URL", "value")]
names(DTLong)= c("URL", "hashtag")
write.csv(DTLong, "picodash_instagram_nra_blog_2016-12-14.long.csv")

require(wordcloud)
require(RColorBrewer)
pal <- brewer.pal(8,"Dark2")
wordcloud(words = DTLong$hashtag, scale=c(2, .5), colors=pal)