Show Images in R

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()