## 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") ```
沒有留言:
張貼留言