R_Language 板


LINE

※ 引述《kindarex (花香满庭园)》之铭言: : 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 新手(没写过程式,R 是我的第一次) : [问题叙述]: : 各位高手大家好,谢谢上次高手说先了解时间序列分析 : 也开始在自学练习画图,但遇到同一个问题卡很久 : 我的资料是新竹2010-2014年1-12月的平均温度, : 从Excel表整理好後汇入到Rstudio,开始按照youtube的影片教学 : 练习跟跟影片教学中https://www.youtube.com/watch?v=0gf5iLTbiQM
: 2小时07分开始进行练习 : 以下是我的资料 : > d<-read.csv("C:\\Users\\1503063\\Desktop\\平均温度.csv") : > d : Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec : 2010 15.9 16.7 19 20.3 25 26.5 29.9 29.6 28.1 24.3 20.9 16.4 : 2011 13.3 15.2 15.5 21 24.3 28.5 28.8 29.2 27.7 24.5 22.7 16.6 : 2012 15.3 14.9 17.4 23.3 25.8 27.8 29.7 28.6 26.8 23.9 21 17.3 : 2013 5.8 17.3 19.2 20.9 26 28.9 28.9 28.9 27.7 24.2 21 16.1 : 2014 15.6 15.4 18 22.3 25.3 28.3 30.4 29.9 29.6 24.7 22 16 : > myts <- ts(d, start=c(2010,1), end=c(2014,12), frequency=12) : > class(myts) (以下吃掉) 大概看了一下影片 你跟讲者不同的地方在於你的原始资料设定 虽然你的资料结构跟讲者一样(看起来 但是class却不同 我猜你是在excel就先把matrix的行列名称设好 但是如果你注意看影片 会发现讲者是读进numeric的资料 print出来的matrix是经过ts()转换之後(cola2) 你如果用str(cola2)去看 会发现他的结构长这样 Time-Series [1:100] from XXXX to XXXX: ... class(cola2) # [1] "ts" 但你的class(d)应该是"matrix" 所以我建议可以这样做 d <- matrix(runif(36), nrow = 3, ncol = 12) dd <- seq(as.Date("2000/1/1"), by = "month", length.out = 12) dd <- format(dd, "%b") colnames(d) <- dd rownames(d) <- c("2000", "2001", "2002") # your imported data d Jan Feb Mar Apr May Jun Jul Aug Sep 2000 0.06464222 0.4859936 0.19107794 0.06705835 0.9428377 0.1095469 0.5137503 0.50677142 0.64370554 2001 0.27664552 0.1420115 0.08748821 0.23434808 0.6796937 0.8334102 0.3728003 0.30359776 0.18653139 2002 0.75141165 0.3336006 0.88925778 0.08978937 0.8929249 0.2680072 0.9846332 0.03387092 0.09410578 Oct Nov Dec 2000 0.4206437 0.05388721 0.5835108 2001 0.7170996 0.37223711 0.1542709 2002 0.2134047 0.52395925 0.5123901 # transform the matrix to be numeric vector md <- as.numeric(t(d)) class(md) # [1] "numeric" myts <- ts(md, start = c(2000, 1), end = c(2002, 12), frequency = 12) myts Jan Feb Mar Apr May Jun Jul Aug Sep 2000 0.06464222 0.4859936 0.19107794 0.06705835 0.9428377 0.1095469 0.5137503 0.50677142 0.64370554 2001 0.27664552 0.1420115 0.08748821 0.23434808 0.6796937 0.8334102 0.3728003 0.30359776 0.18653139 2002 0.75141165 0.3336006 0.88925778 0.08978937 0.8929249 0.2680072 0.9846332 0.03387092 0.09410578 Oct Nov Dec 2000 0.4206437 0.05388721 0.5835108 2001 0.7170996 0.37223711 0.1542709 2002 0.2134047 0.52395925 0.5123901 class(myts) # [1] "ts" plot(myts) --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.113.136.217
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1470661341.A.738.html ※ 编辑: naturalsmen (140.113.136.217), 08/08/2016 21:02:43
1F:→ naturalsmen: 补充:因为你的原始资料是matrix 所以ts() 08/08 21:17
2F:→ naturalsmen: 出来的资料是用来画multivariate的class 08/08 21:18
3F:推 kindarex: 真的真的非常谢谢你!!!超级受用的,新手学到一招了!!版 08/11 00:10
4F:→ kindarex: 上好温暖^^ 08/11 00:10







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:e-shopping站内搜寻

TOP