setwd("~/Desktop/Trend Reports/TrendAnalytics Reports/TrendPulse/10_16_2016/")
data=fread("keyword socialstream.csv",header = FALSE)
names(data) = c('seq','keywords', 'brands', 'categories')
# Outerwear
list = c(
10,
11,
27,
29,
30,
31,
32,
33,
34,
35
)
pdf("TopKeyword.pdf", width=15, height=8.5)
par(mfrow=c(2,3))
j=1
for(i in list){
img <- readPNG(paste(i, ".PNG", sep=""))
plot.new()
plot.window(xlim=c(0,1), ylim=c(0,1), asp=1)
rasterImage(img,0,0,1,1)
label=paste(j, data$categories[data$seq==i],"\n",
data$brands[data$seq==i], "\n",
data$keyword[data$seq==i])
title(main=label, font.main=2, line=0)
print(paste("img", j, ".jpg", sep=""))
j=j+1
}
dev.off()
