2012年に読んだ本のバーチャートをggplot2で書く。

num_books_in_2012.R

library("ggplot2")

entries <- data.frame(label=factor(c("小説", "読書", "漫画", "新書"),
                                   levels=c("小説", "読書", "漫画", "新書")),
                      num=c(69, 34, 17, 3))

g <- ggplot(entries, aes(x=label, y=num, fill=label))
p <- g + geom_bar()
p <- p + xlab("ラベル") + ylab("投稿数") + ggtitle("2012年に読んだ本") + theme(legend.position = "none")

plot(p)