从r- data.frame到ts类
从r- data.frame到ts类
提问于 2020-02-11 15:56:57
我有如下所示的容量数据框架，我想使用它来进行ts分析。
我的数据是导入后的LR_TS，如下所示
Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
1 2005 21,608 27,676 29,156 34,632 32,708 29,748 15,836 23,828 36,112 33,448 35,076 31,080
2 2006 36,112 30,488 36,704 28,564 41,884 36,852 20,720 35,076 43,216 42,032 44,696 36,112
3 2007 39,072 33,448 44,104 35,224 50,912 47,368 25,754 40,848 48,856 49,892 48,692 39,368
4 2008 42,180 43,216 40,700 46,340 47,417 45,748 26,656 38,972 46,748 49,248 44,610 37,449
5 2009 39,118 37,342 46,222 41,381 48,839 45,164 27,299 43,782 53,134 54,060 54,746 42,398月份值是因素，现在我尝试用零运气将其更改为ts类。
ts1 <- ts(LR_TS, start = 1, frequency = 1, class = "ts")相对于容量值，我每个月得到1到5。
Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
1 2005 1 1 1 2 1 1 1 1 1 1 1 1
2 2006 2 2 2 1 2 2 2 2 2 2 3 2
3 2007 3 3 4 3 5 5 3 4 4 4 4 4
4 2008 5 5 3 5 3 4 4 3 3 3 2 3
5 2009 4 4 5 4 4 3 5 5 5 5 5 5更新
在加载数据后，我使用
LR_TS[] <- lapply(LR_TS, gsub, pattern=',', replacement='')
setDT(LR_TS)[, names(LR_TS) := lapply(.SD, function(x) if(is.character(x)) as.integer(as.character(x)) else x)]所以我的str现在全是整数。
我使用此代码将类更改为ts：
ts1 <- ts(LR_TS, start = 1, frequency = 12, class = "ts")但结果并不正确。有什么想法吗？
回答 1
Stack Overflow用户
发布于 2020-02-11 16:00:21
由于列有,，我们需要使用sub删除它，并将其转换为numeric
ts(sapply(df1[-1], function(x) as.numeric(gsub(",", "",x))), start = 1, frequency = 1)
#Time Series:
#Start = 1
#End = 5
#Frequency = 1
# Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
#1 21608 27676 29156 34632 32708 29748 15836 23828 36112 33448 35076 31080
#2 36112 30488 36704 28564 41884 36852 20720 35076 43216 42032 44696 36112
#3 39072 33448 44104 35224 50912 47368 25754 40848 48856 49892 48692 39368
#4 42180 43216 40700 46340 47417 45748 26656 38972 46748 49248 44610 37449
#5 39118 37342 46222 41381 48839 45164 27299 43782 53134 54060 54746 42398当factor被胁迫到其存储模式值时，OP的post中显示的值是整数存储值。
数据
df1 <- structure(list(Year = 2005:2009, Jan = structure(c(1L, 2L, 3L,
5L, 4L), .Label = c("21,608", "36,112", "39,072", "39,118", "42,180"
), class = "factor"), Feb = structure(c(1L, 2L, 3L, 5L, 4L), .Label = c("27,676",
"30,488", "33,448", "37,342", "43,216"), class = "factor"), Mar = structure(c(1L,
2L, 4L, 3L, 5L), .Label = c("29,156", "36,704", "40,700", "44,104",
"46,222"), class = "factor"), Apr = structure(c(2L, 1L, 3L, 5L,
4L), .Label = c("28,564", "34,632", "35,224", "41,381", "46,340"
), class = "factor"), May = structure(c(1L, 2L, 5L, 3L, 4L), .Label = c("32,708",
"41,884", "47,417", "48,839", "50,912"), class = "factor"), Jun = structure(c(1L,
2L, 5L, 4L, 3L), .Label = c("29,748", "36,852", "45,164", "45,748",
"47,368"), class = "factor"), Jul = structure(1:5, .Label = c("15,836",
"20,720", "25,754", "26,656", "27,299"), class = "factor"), Aug = structure(c(1L,
2L, 4L, 3L, 5L), .Label = c("23,828", "35,076", "38,972", "40,848",
"43,782"), class = "factor"), Sep = structure(c(1L, 2L, 4L, 3L,
5L), .Label = c("36,112", "43,216", "46,748", "48,856", "53,134"
), class = "factor"), Oct = structure(c(1L, 2L, 4L, 3L, 5L), .Label = c("33,448",
"42,032", "49,248", "49,892", "54,060"), class = "factor"), Nov = structure(c(1L,
3L, 4L, 2L, 5L), .Label = c("35,076", "44,610", "44,696", "48,692",
"54,746"), class = "factor"), Dec = structure(c(1L, 2L, 4L, 3L,
5L), .Label = c("31,080", "36,112", "37,449", "39,368", "42,398"
), class = "factor")), row.names = c("1", "2", "3", "4", "5"), class = "data.frame")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60172860
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号