※ 引述《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