Chapter 3 Grammar of Graphics: Layers

引入可使用%>%及%<>%串接語法的相關套件

library(dplyr)
library(magrittr)

Package: ggplot2
Lecture notes: 迷你課程：ggplot2

3.1 引入資料

library(readr)
subsetDataTWbank <- read_csv("data/subsetDataTWbank.csv")

3.2 定義畫布ggplot()

library(ggplot2)
subsetDataTWbank %>% ggplot(aes(x=西元年月,y=`定存利率-一個月-固定`))

3.3 加上幾何圖層+geom_…

subsetDataTWbank %>% ggplot(aes(x=西元年月,y=`定存利率-一個月-固定`))+
  geom_line()

若x=西元年月換成x=年月會有什麼狀況？

3.4 設定中文字體

Package: showtext

參考資料

• showtext: https://github.com/yixuan/showtext

• extrafont: https://github.com/wch/extrafont

查查有什麼字體

library(showtext)
font_files()

設定字體

font_add("QYuan","cwTeXQYuan-Medium.ttf") # 新增字體
showtext_auto(enable=TRUE) #啟用字體

subsetDataTWbank %>% ggplot(aes(x=西元年月,y=`定存利率-一個月-固定`))+
  geom_line()+
  theme(text=element_text(size=10,  family="QYuan"))+
  theme_classic()+
  labs(x="西元年月",y="利率：%")

3.5 圖形存檔

subsetDataTWbank %>% ggplot(aes(x=西元年月,y=`定存利率-一個月-固定`))+
  geom_line()+
  theme(text=element_text(size=10,  family="QYuan")) -> figureOut

ggsave(filename="Interest Rate.png",figureOut)

3.6 檔案上傳

測試樣版

上傳網址

3.7 課堂練習

由國際收支表選擇一變數繪製時間趨勢圖。