reordering5.r

sample <- read.table("~/Dropbox/sample.txt", header=T, sep="\t")
sample$Type <- factor(sample$Type, levels = c("NSR", "stock-related", "NTR", "ticker-related", "NEG", "NEU", "POS"))

p <- ggplot(sample)
p <- p + geom_boxplot(aes(x=factor(Type), y=Word, fill=factor(Type)), notch=T, outlier.shape = NA) + 
  theme(axis.text.x=element_text(angle=15, hjust=0.8, vjust=1, size=12),
        axis.text.y=element_text(size=12)) + 
  guides(fill=F) + 
  scale_fill_manual(values=c("skyblue1", "skyblue1", "grey60", "grey60", "grey60", "grey60", "grey60" ), guide=FALSE) +
  scale_y_continuous(limits = c(0, 30))
print(p)