以 Shiny 呈現農產品交易行情

markdown
## shiny
是 R 語言中的一個套件，可以建立出互動式的資料。透過 R 語言建立簡單的互動式圖表，由於簡單方便，執行過於複雜的內容可能會產生一些問題。詳細介紹請按這裡: R 也能互動！用 Shiny 與 R 語言將你的數據變成互動圖表。

基本上內容大致上分為兩個部分:
* ui: 描述介面的呈現方式。
* server: 根據 ui 的內容分析資料並回傳結果。
shiny 語法速查表請按此。

## 近三年台灣批發市場小番茄交易情形
這裡我利用 shiny 做了近三年來台灣果菜市場小番茄的交易情形。

Plot 分頁為 x, y 散佈圖，讀者可自行挑選想要觀察的資料情形。Data 分頁為原始資料，方便讀者觀察更詳細的資料情況。實際運作情況請按此。

由於我的電腦系統上傳資料到 shinyapps.io 不支援中文，所以將資料中的市場改為英文，品種保留數字。
70: 其他
71: 一般
72: 聖女
73: 嬌女
74: 玉女

中文在本機執行則無問題，如上面的兩張圖所示。打包好的 ui 指令、server 指令及小番茄資料請按這裡。打包好的資料是中文，有安裝 RStudio 的話可以直接執行，想看其他農產品的批發資料可以進行資料的替換。資料整理的方式請看這篇: 以 R 語言來看農產品價格的起跌 --- 香蕉為例。

在 R 語言輸入下列指令並先存檔，將前處理好的 excel 資料內容全選並複製，接著執行下列 R 指令，新的資料便會存在先前存檔的資料夾內。

```
price <- read.table("clipboard", header = T, sep = "\t") colnames(price) <- c("date", "market", "product", "high", "medium", "low", "price_avg", "volume", "value") price$date <- as.Date(paste(as.numeric(substr(price$date, 1, 3)) + 1911, substr(price$date, 4, 9), sep = "")) price$volume <- as.numeric(price$volume) price$market <- as.character(price$market) price$product <- as.character(price$product) save(price, file = "tomato.RData") ```

以 R 語言計算債券價值

最近美國啟動升息，美國國債殖利率有上升的情形，代表債券價值下降，來看看債券價值(Bond value)如何計算。
文章同步發表在 RPubs: Bond Value，可以複製 R 語言。這裡我是放上截圖，還不會用 Blogger 寫程式碼。

債券價值計算

債券價值可視為每年現金流的總和。
假設有一債券面額 100 元，票面利率 5%，10 年到期，每年計息一次，持有此債券每年可獲得的金額如下:

獲得的金額總值為 150 元。獲利看起來好像不錯，但是要考慮折現的問題，十年後的 100 元不會等值十年前的 100 元，假設銀行定存的利率是 3%，要以 3% 做為折現率計算，因為定存是無風險利率。

經過折現計算後實際價值約為 117 元。可見影響債券價值的因素有票面利率、到期的期數、其他投資方式的利率。簡單寫一個指令來計算。

如果有市場上有一個投資利率為 7% 的工具，則債券的實際價值會變為多少呢?

債券價值大約剩下 86 元，所以價格要低於 86 元再購入此債券才會划算。

債券價值變化

接著來看看其他因素如何影響債券的價值。

1. 票面利率高的債券較好
2. 短期債券對市場利率變化的反應較小
3. 債券在降息市場的價值提升幅度大於升息市場的下降幅度

可見債券是蠻穩定的投資工具，難怪許多理財資料推薦退休族投資債券。

接著畫出債券價值與市場利率的變化圖來看看。

債券價值與市場利率的關係呈現一個曲線。

期數長的債券曲線彎曲較大，顯示市場升息時，債券價值下跌較慢；市場降息時，債券價值上升較快。期數短的債券會趨近直線，價格波動小，相對穩定，但市場若有變化獲利也會較少。所以債券的持有時間與曲線彎曲程度可用來評估債券在市場利率變動時的價值變化。有效久期 (effective duration)與有效凸性 (effective convexity)是來計算市場利率波動對價值的影響。

有效久期小比較好，代表資金很快可以回收。有效凸性大比較好，上一段有解釋原因。公式如下:

計算面額 100 元、票面利率 5% 的 10 年債券，在市場利率 5%、變化波動 2% 的價值變化情形。

有效久期對價值的影響:

有效凸性對價值的影響:

最後總和約為 108 元，表示此債券在此市場下的理論價格。不過市場利率未來會如何變化，誰又預測的準呢?

文章同步發表在 RPubs: Bond Value。