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

num_books_in_2013.R

library("ggplot2")

entries <- data.frame(label=factor(c("小説", "読書", "漫画", "新書"),
                                   levels=c("小説", "読書", "漫画", "新書")),
                      num=c(64, 48, 44, 2))

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

plot(p)

ggsave(file="books2013.png", plot=p, width=8.0, height=6.4)