大麥克指數（Big Mac Index）是由經濟學人（The Economist）創立，可作為購買力平價（PPP, Purchasing Power Parity）指標。該指數以大麥克為標準商品，透過比較不同國家相同商品的價格，評估各國貨幣的實際購買力。大麥克指數的概念是假設兩國之間相同商品的運輸不需要成本，意即在美國的大麥克可以沒有成本地搬來臺灣賣，因此在不存在套利條件之下，兩國的匯率應該與本國計價的大麥克價格比值一致。計算方式如下：

1. 蒐集各國以當地貨幣計價的大麥克價格。
2. 計算隱含匯率：該國大麥克價格/美國大麥克價格。
3. 比較隱含匯率與實際匯率，計算貨幣估值偏離：(隱含匯率-實際匯率)/實際匯率

例如在美國的大麥克售價若為 6 美元，臺灣的大麥克售價為 75 台幣，則隱含美元兌換台幣的匯率為 75/6 = 12.5 美元。實際的匯率為 30 美元，則我們會認為台幣匯率被低估了 100* (12.5-30)/30 = -58.33%，有升值的空間。

經濟學人每年無償公布兩次大麥克指數的相關資料，在網路上相當容易可以獲得獲得資料。以下畫出過去 20 年，臺灣跟韓國的估值偏離。可看出台幣相較於韓圜，貨幣是相對低估的。而大麥克指數也有缺點，因為其價格只考慮到漢堡的食材成本、房租、水電與人事成本，其中人事與房租成本可能佔大多數，因此對於人工低廉的國家的大麥克偏離通常顯示為高度低估。

程式碼如下:
require(scales) # 標記時間軸
require(reshape2) # 融合資料
require(ggplot2) # 畫圖

data <- read.csv("~/big-mac-source-data-v2.csv")
data <- data.frame(data)
data <- na.omit(data)
tw_data <- data[data[,1]=="Taiwan",]
kr_data <- data[data[,1]=="South Korea",]
us_data <- data[data[,1]=="United States",]
tw_data$bigmac_ex <- tw_data$local_price/us_data$local_price
kr_data$bigmac_ex <- kr_data$local_price/us_data$local_price
tw_data$bigmac_dev <- 100*(tw_data$bigmac_ex-tw_data$dollar_ex)/tw_data$dollar_ex
kr_data$bigmac_dev <- 100*(kr_data$bigmac_ex-kr_data$dollar_ex)/kr_data$dollar_ex

dev_data <- data.frame(
time = as.Date(tw_data$date),
tw_dev = tw_data$bigmac_dev,
kr_dev = kr_data$bigmac_dev
)

start_date <- as.Date("2000-04-01")
end_date <- as.Date("2025-01-01")

data.m <- melt(dev_data, measure.vars = c("tw_dev","kr_dev"), id.vars = "time")

ggplot() +
geom_line(data = data.m, aes(x = time, y = value, linetype = variable), size = 1) +
# scale_y_continuous(sec.axis = sec_axis(~./6, name = "US"))+
labs(y = "TW",x="")+
scale_x_date(limits=c(start_date,end_date),
breaks=date_breaks("2 years"),
labels=date_format("%Y"))+
theme(legend.title = element_blank(),
legend.text = element_text(size = 15, face = "bold"),
legend.position=c(0.2,0.2),
legend.key = element_rect(size = 10),
legend.key.size = unit(4, ’lines’)
)