作者celestialgod (天)
看板R_Language
标题Re: [问题] 画图
时间Mon May 2 20:23:30 2016
※ 引述《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="气温")
--
R资料整理套件系列文:
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.152.118
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1462191813.A.FDF.html
※ 编辑: celestialgod (180.218.152.118), 05/02/2016 20:27:52
1F:推 corel: 感谢 05/03 08:44