我是如何使用ggplot2和gcookbook製作數據圖的？

我是如何使用ggplot2和gcookbook製作數據圖的呢？

(以後也許會不斷更新~)

圖1:

#載入gcookbook安裝包library(gcookbook)

#載入ggplot2安裝包library(ggplot2)

#x軸為group，y軸為weight，geom_bar為identity，geom_bar這裡可以理解為「幾何圖形」，identity指「保持一致」。寫成一句代碼（以及生成的數據圖）如下：ggplot(pg_mean, aes(x=group, y=weight)) + geom_bar(stat="identity")

圖2:

#拓展，改變幾何顏色。fill是填色，colour是邊框色。ggplot(pg_mean, aes(x=group, y=weight)) +geom_bar(stat="identity", fill="lightblue", colour="black")

圖三：

#可以先查看BOD數據的結構str(BOD)

#拓展：x=factor(Time)中，factor是指因素，指只包含有數據的Time；而x=(Time)：指按Time順序來，不管有沒有數據，沒有數據的就空著。如上圖三。ggplot(BOD, aes(x=(Time), y=demand)) + geom_bar(stat="identity")ggplot(BOD, aes(x=factor(Time), y=demand)) + geom_bar(stat="identity")

圖四：

#顯示數據集的內容cabbage_exp

ggplot(cabbage_exp, aes(x=Date, y=Weight, fill=Cultivar)) +geom_bar(position="identity",stat="identity")

圖五：

#統計樣本數量ggplot(diamonds, aes(x=cut)) + geom_bar()

圖六：

str(uspopchange)

#定義矩形的數據upc = subset(uspopchange, rank(Change)>40)

ggplot(upc, aes(x=Abb, y=Change, fill=Region)) + geom_bar(stat="identity")

圖七：

#從低到高排序ggplot(upc, aes(x=reorder(Abb, Change), y=Change, fill=Region)) + geom_bar(stat="identity", colour="black")

推薦閱讀：