R語言初心者的GGplot2懶人包──長條圖範本

本次所繪製的圖

所用資料集

# 一個data frame，age為x軸，Freq為y軸，place_YesNo0為分組變數
#（不同顏色的長條）
# 這個資料集的名稱為ageDiff，主要用這個資料集來作圖
   place_YesNo0   age    Freq
1             0                   1        5.07
2             1                   1        6.39
3             0                   2        8.22
4             1                   2        12.15
5             0                   3        7.79
6             1                   3        9.94
7             0                   4        7.44
8             1                   4        9.01
9             0                   5        7.74
10          1                   5        10.86
11          0                   6        8.16
12          1                   6        11.17
13          0                   7        8.32
14          1                   7        9.27
15          0                   8        9.58
16          1                   8        8.55
17          0                   9        9.74
18          1                   9        6.97
19          0                  10      10.46
20          1                  10      6.84
21          0                  11      17.48
22          1                  11      8.86
# 另有一個資料集叫做ageDiff_n，這是各組的人數（N），也會用到
      0             1 
28323    22325 

作圖程式碼與解釋

ggplot(ageDiff, 
　　　　aes(x = as.factor(age), y = Freq, fill = place_YesNo0)) +

geom_col(position = "dodge") +

  geom_text(aes(label = Freq, col = place_YesNo0), 
            position = position_dodge(width = 1), 
            vjust = -0.2, size = 10) +

scale_x_discrete(name = "年齡",
                 labels = c("15-19", "20-24", "25-29", 
                            "30-34", "35-39", "40-44",
                            "45-49", "50-54", "55-59",
                            "60-64", "65 up")
　　　　　　　　　) +

  scale_y_continuous(name = "人數比例 (%)", 
　　　　　　　　　　　 limits = c(0, 19),
                     expand = c(0, 0)
　　　　　　　　　　　 ) +

  scale_fill_manual(values = RColorBrewer::brewer.pal(12, "Paired")[3:4],
                    name = "一年內去過博物館",
                    labels = c(paste("否, N = ", ageDiff_n[1]), 
                               paste("是, N = ", ageDiff_n[2])
　　　　　　　　　　　　　　　　　)  
　　　　　　　　　　  ) +
# 補充：
# paste()是連接字串的函數
# 色碼寫法範例如下，記得加引號、井字號，英文用小寫：
c("#ababab", "#8b7355")
# RGB寫法範例如下：
c(rgb(0, 0, 1), rgb(255, 0, 0) )

  scale_color_manual(values = RColorBrewer::brewer.pal(12, "Paired")[3:4],
                     guide = NULL) +

  labs(title = "一年內有／無前往過博物館者的年齡分布",
       caption = paste("N = ", sum(ageDiff_n))) +

theme(panel.grid = element_blank(),
        panel.background = element_rect(fill = "White"),
        axis.title = element_text(size = 24),
        axis.text.x = element_text(size = 20),
        axis.line.x = element_line(linetype = 1),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank(),
        legend.title = element_text(size = 20),
        legend.text = element_text(size = 16),
        plot.title = element_text(size = 42, face = "bold", hjust = 0.5,
                                  margin = margin(1, 0, 0, 0, "cm")),
        plot.caption.position = "plot",
        plot.caption = element_text(size = 16, hjust = 1)
　　　　)

可以參考的資源

1. R語言邁向Big Data之路──王者歸來（第二版），偏向從程式語言的角度切入，從0開始介紹R語言的操作與邏輯，相當完整。
   一般來說，從統計的角度切入的R語言教科書結構都有點零散，時常讓人有知其然而不知其所以然的問題。這本書可以解決這個困擾。
   
   
2. 統計就是這麼輕鬆Ｒ：AI幫你寫好資料分析，著重於R語言在行為科學上的應用，範圍涵蓋常見的行為科學資料分析方法（如t test、ANOVA等）。
   對於R語言的基本操作著墨不多，但附有許多實用的程式碼工具，對於統計觀念的介紹完善並附有參考文獻。其中一章節專門講述ggplot2作圖套件，可以參考該章節的程式碼範例。