※ 引述《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="气温")