※ 引述《corel (可羅)》之銘言：
:
: ctrl + y 可以刪除一整行，請將不需要的內容刪除
: 文章分類提示:
: - 問題: 當你想要問問題時，請使用這個類別
: - 分享: 當你看到別人的心得時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性
: )
: - 情報: 當你看到消息時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性)
: - 心得: 當你自己想要分享經驗時，請使用這個類別。
: - 討論: 當你自己已經有答案，但是也想聽聽版友意見時
:
: [問題類型]:
:
: 意見調查(我對R 有個很棒的想法，想問問大家的意見)
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
: 效能諮詢(我想讓R 跑更快)
: 經驗諮詢(我想用R 連接某些資料庫，請問大家的經驗)
:
: [軟體熟悉度]:
: 請把以下不需要的部份刪除
: 新手(沒寫過程式，R 是我的第一次)
: 入門(寫過其他程式，只是對語法不熟悉)
: 使用者(已經有用R 做過不少作品)
: 開發者(有撰寫R 的套件經驗)
: [問題敘述]:
: 請簡略描述你所要做的事情，或是這個程式的目的
: 想要畫圖
: [程式範例]:
: http://ideone.com/fuQFUL
: [結果圖]:
: 不是我想要的
: http://imgur.com/0NQW53E
: 原本設想其實應該比較接近
: http://imgur.com/0u5N2k9
: 或是折線圖
: 謝謝
你輸入的x被當成了整數，所以畫出來會不如你所想是正常的
請轉成時間之後再使用
x<-c(201401,201402, 201403, 201404, 201405, 201406, 201407, 201408, 201409,
201410, 201411,201412, 201501, 201502, 201503, 201504, 201505, 201506,
201507, 201508, 201509, 201510, 201511, 201512, 201601, 201602, 201603,
201604)
library(fasttime)
x_time <- fastPOSIXct(paste0(paste0(substring(x, 1, 4), "/",
substring(x, 5, 6)), "/01 00:00:00")) - as.difftime(8, units = "hours")
# ct是格林威治標準時間，轉過去的時間點，在台灣時區(GMT+8)剛好會多8小時
# 所以做一個簡單的修正減去八小時(其實不做也沒差，圖看不出來八小時的差異)
y<-c(16.8, 16.5 ,18.9, 22.5, 25.2 ,28.0 ,30.5 ,30.2, 29.7 ,24.7 ,22.3, 16.5,
16.7, 17.3, 18.9, 22.7, 26.1 ,30.0 ,30.0 ,28.6 ,27.4, 25.2 ,23.5 ,18.9,
16.2, 15.5, 17.5 ,24.0)
plot(x_time,y,type="o",
lwd=2,
col=2,
xlab="年月",
ylab="氣溫")