使用 GDP (PPP) From World Bank

• 從 Wikipedia 找到的
• 做到一半……才發現沒有臺灣資料 @@
  • 只好自己偷偷加 XD
  • 數據有很大的誤差，僅供畫圖 Demo 用
• World Bank 網站做得蠻好看的
• 把提供的 CSV 檔下載下來

各國 GDP 長條圖

這邊只取了 5 國來畫，並且依照 GDP 高低來排序

            library(ggplot2) 
            g <- ggplot(df, aes(x=Country.Code, y=Y2012)) + 
              geom_bar(stat='identity', alpha=.9) + 
              xlim(df$Country.Code)
        

初步結果

感覺還不錯 但我們不能只要求這樣（不然就沒什麼好講了） Y 軸的標籤感覺很……科學（宅 / 老闆看不懂） 如果要顯示成標準指數表達方式的話？

簡單 Google 後

可以用 expression() 來表達

            breaks <- c(0, seq(from=5e11, to=1.5e12, by=5e11)) 
            labels <- c('0', expression(5%*%10^11), 
                        expression(1.0%*%10^12),
                        expression(1.5%*%10^12))
            g + scale_y_continuous(breaks=breaks, labels=labels)
        

手動定 label

感覺還不錯 但這樣要自定 breaks 和 labels，有點累 能不能自動化這件事？ 可以傳入一個函式 labels=formatter_fun 稱為 formatter

如何寫 formatter

吃進一個vector，回傳一個vector。使用時直接 pass 這個函數

my_formatter <- function(l) {
    paste('parsed', l)
}
g + scale_y_continuous(labels=my_formatter)

只要記住自己是一次處理全部的 labels，最後也要回傳全部的 labels

在這之前，先介紹套件 scales

定義好很多 formatter，用法相同

library(scales)
g + scale_y_continuous(labels=comma) # 12,345,678
g + scale_y_continuous(labels=dollar) # $12,345,678
        

心法 - 自製回傳 exp. 的 formatter

• 將輸入的 numeric vector (0.02) 轉成科學記號的 character vector (5e+9)
  => format(num_vec, scientific=TRUE)
• 用 regex 把字串 5e+9 取代成 5%*%10^9 的形式
  => gsub('pattern', 'replacing', char_vec)
• 使用 parse(text=char_vec) 來把字串轉回 expression vector
• 把以上動作包成函數 my_formatter()，傳到 scale_y_continuous(labels=my_formatter)

很多 regex 所以猛醜。分兩個函式寫可以增加更多控制

fancy_scientific_format <- function(l) { 
	# turn in to character string in scientific notation 
	l <- format(l, scientific=TRUE) 
	l <- gsub("0.0+e[+-]0+$", "0", l)  # use '0' instead '0 x 10^0'
	# quote the part before the exponential to keep all the digits 
	l <- gsub("^(.*)e", "'\\1'e", l) 
	l <- gsub("e[+]", "e", l)  # remove the extra '+'
    l <- gsub("e", "%*%10^", l)   # turn the 'e+' into plotmath format 
    l
}
fancy_scientific <- function(l){
    # return as an expression vector
	parse(text=fancy_scientific_format(l)) 
}

如果要多加個「$」號，只要再用 gsub() 繼續接 fancy_scientific_format() 即可

        super_fancy_dollar <- function(l){
          parse(text=gsub(
            "^'", "'$", fancy_scientific_format(l)
          ))
        }