数据帧中行的高效动态添加和R中的动态计算
我有以下数据帧(ts1): 我想插入行,因为(N-1)新ts1和行的数量将为:数据帧中行的高效动态添加和R中的动态计算,r,R,我有以下数据帧(ts1): 我想插入行,因为(N-1)新ts1和行的数量将为: D1 Value N 1 20/11/2014 16:00 0.00 1 2 20/11/2014 17:00 0.01 1 3 20/11/2014 18:00 0.03 1 <--- 4 20/11/2014 19:00 0.05 1 5 20/11/2014 20:00 0.10 1 <--- 6 20/11/2014 21:00 0.15 1 <-
D1 Value N
1 20/11/2014 16:00 0.00 1
2 20/11/2014 17:00 0.01 1
3 20/11/2014 18:00 0.03 1 <---
4 20/11/2014 19:00 0.05 1
5 20/11/2014 20:00 0.10 1 <---
6 20/11/2014 21:00 0.15 1 <---
7 20/11/2014 22:00 0.20 1
8 20/11/2014 23:00 0.03 1
D1值N
1 20/11/2014 16:00 0.00 1
2 20/11/2014 17:00 0.01 1
3 2014年11月20日18:00 0.03 1以下是完整的解决方案:
使用线性插值的最后一个命令解决了这个问题
> Lines <- "D1,Value
+ 1,20/11/2014 16:00,0.00
+ 2,20/11/2014 17:00,0.01
+ 3,20/11/2014 19:00,0.05
+ 4,20/11/2014 22:00,0.20
+ 5,20/11/2014 23:00,0.03"
> ts1 <- read.csv(text = Lines, as.is = TRUE)
> library(zoo)
> z <- read.zoo(ts1, tz = "", format = "%d/%m/%Y %H:%M")
>
> z0 <- zoo(, seq(start(z), end(z), "hours"))
> zz <- merge(z, z0)
> interpolated <- na.approx(zz)
> interpolated
2014-11-20 16:00:00 2014-11-20 17:00:00 2014-11-20 18:00:00 2014-11-20 19:00:00 2014-11-20 20:00:00 2014-11-20 21:00:00
0.00 0.01 0.03 0.05 0.10 0.15
2014-11-20 22:00:00 2014-11-20 23:00:00
0.20 0.03
>行ts1库(动物园)
>z
>z0-zz插值
2014-11-20 16:00:00 2014-11-20 17:00:00 2014-11-20 18:00:00 2014-11-20 19:00:00 2014-11-20 20:00:00 2014-11-20 21:00:00
0.00 0.01 0.03 0.05 0.10 0.15
2014-11-20 22:00:00 2014-11-20 23:00:00
0.20 0.03
请参见我对您上一个问题的回答中的注释1:非常感谢@G.Grothendieck,我确实使用N作为中间计算。我的目标是填写ts1$Value中缺少的值。我的问题仍然是如何通过时间序列或使用N以最有效的方式完成这项工作?您可以将最后4行替换为na.近似值(z,xout=seq(开始(z),结束(z),“小时”)
> Lines <- "D1,Value
+ 1,20/11/2014 16:00,0.00
+ 2,20/11/2014 17:00,0.01
+ 3,20/11/2014 19:00,0.05
+ 4,20/11/2014 22:00,0.20
+ 5,20/11/2014 23:00,0.03"
> ts1 <- read.csv(text = Lines, as.is = TRUE)
> library(zoo)
> z <- read.zoo(ts1, tz = "", format = "%d/%m/%Y %H:%M")
>
> z0 <- zoo(, seq(start(z), end(z), "hours"))
> zz <- merge(z, z0)
> interpolated <- na.approx(zz)
> interpolated
2014-11-20 16:00:00 2014-11-20 17:00:00 2014-11-20 18:00:00 2014-11-20 19:00:00 2014-11-20 20:00:00 2014-11-20 21:00:00
0.00 0.01 0.03 0.05 0.10 0.15
2014-11-20 22:00:00 2014-11-20 23:00:00
0.20 0.03