gistfile1.txt

library(verisr)
library(RColorBrewer)
library(ggplot2)

vcdb <- json2veris('~/Documents/development/python/vcdb/data/json')
origin <- getenum(vcdb, "actor")

colors <- brewer.pal(3, "Set2")

gg <- ggplot(origin, aes(x=enum, y=freq)) + geom_bar(stat="identity", fill=colors[1])
gg <- gg + coord_flip() + theme_bw()
gg <- gg + geom_text(aes(label = paste(sprintf("%.1f", freq*100), "%", sep=""), y=freq+0.05))
gg <- gg + labs(title="Origin of threat actors", x="", y=" ")

png(filename='~/Desktop/actor_origin.png', width=600, height=400)
print(gg)
dev.off()