不專業學術閒聊: R | ggplot: Faceting

這篇要介紹的是 faceting，就是把檔案資料畫成一組圖，而不是只有一張圖。要看懂這篇需要先看前面三篇哦。

第一篇：Ggplot2 | Point plot & Box plot

第三篇：Ggplot2 | Regression Line & Grouping

上課講義請參考：R Graphics with Ggplot2 - Day 2

這邊同樣要用到下面這些：

library(ggplot2)

分圖要用的指令是：facet_grid(row ~ col)

或是：facet_wrap( ~ variable)

裡面放的是要依照哪個 variable 來分隔圖，前面是指用 row (列)來分圖，後面是指用 column (行)來分圖，可以只放其中一個。

我們先看下面的例子，一樣是用檔案資料 mpg。

ggplot(mpg, aes(displ, hwy, shape = drv)) +
geom_point(aes(colour = factor(cyl)))

我們可以用 cyl = 5 的那個點來做 marker，5 只有兩個，是綠色三角形(drv, f)，所以當你用 drv 來分圖的時候，只有 f 那個圖會有綠色的那兩點。

現在來用用看 facet_grid()，我們用 drv 並以 column 來分圖，所以會是這樣：

ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(colour = factor(cyl))) +
facet_grid(. ~ drv)

前面沒放 variable 的話，就用點點 "." 。

也可以把 colour = factor(cyl) 這個放在前面的 ggplot() 裡面，變成這樣：

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_grid(. ~ drv)

注意到了嗎？綠色那兩點指出現在中間 f 那個圖裡。

如果是依 row 來分圖，就是這樣：

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_grid(drv ~ .)

接下來，我們可以依兩種 variables 分圖，行用 year，列用 drv。同樣用 cyl = 5 那兩點的做 marker，那兩點的年是 2008，所以它會出現在 f 和 2008 那一格圖中。

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_grid(year ~ drv)

上面用的 variable 中的元素都不會太多，頂多分個三、四個圖，但如果像是 manufacturer，就會變得很擠，像下圖那樣。

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_grid(manufacturer ~ .)

這時候可以用 facet_wrap()，會把圖由左往右，由上往下排出來。

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_wrap(~ manufacturer)

你也可以指定要有幾個 columns，可以用 ncol = 。

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
geom_point() +
facet_wrap(~ manufacturer, ncol = 5)

接下來，來點複雜的。我們可以不用整個 dataset，如果只想要其中幾種資料，或是要過濾掉幾個元素的話，可以用 filter() 的功能挑出你要用的。

先設一個 dataframe, d0。用 filter() 功能從 mpg 裡面挑出 cyl 不是 5，且 drv 裡面符合 "4" 和 "f" 的。

var %in% c(" ", " ") 是用來從你想要的 variables 那個 column 裡面找出符合條件的。%in% 意指 match。如果還記得的話， != 是指不等於，可以參考基本指令這篇。

d0 <- filter(mpg, cyl != 5, drv %in% c("4", "f"))