3

我有以下数据框

t <- strptime(c("2012-01-01 00:00:00","2012-01-01 01:00:00", "2012-01-01 02:00:00", "2012-01-01 05:00:00", "2012-01-01 06:00:00"), format ="%Y-%m-%d %H:%M:%S");t
d1 <- 2:6
d2 <- 15:11
dfr <- data.frame(t, d1, d2);dfr

                   t d1 d2
 2012-01-01 00:00:00  2 15
 2012-01-01 01:00:00  3 14
 2012-01-01 02:00:00  4 13
 2012-01-01 05:00:00  5 12
 2012-01-01 06:00:00  6 11

您会注意到“2012-01-01 03:00:00”和“2012-01-01 04:00:00”时间的数据丢失了。

为了找出丢失的数据，我首先生成了一个正确的时间步，然后将其与下面的“t”列进行比较。

    t1Gen <- strptime("2012-01-01 00:00:00",format="%Y-%m-%d %H:%M:%S");
    t2Gen <- strptime("2012-01-01 06:00:00",format="%Y-%m-%d %H:%M:%S");

    tGen <- seq(t1Gen,t2Gen, 3600);tGen

"2012-01-01 00:00:00 CET" 
"2012-01-01 01:00:00 CET" 
"2012-01-01 02:00:00 CET" 
"2012-01-01 03:00:00 CET" 
"2012-01-01 04:00:00 CET" 
"2012-01-01 05:00:00 CET" 
"2012-01-01 06:00:00 CET"

mdfr <- match(tGen,dfr$t);mdfr
[1]  1  2  3 NA NA  4  5
subfr <- subset(mdfr, is.na(mdfr));subfr
[1] NA NA

使用 match 函数，用“NA”挑出 2 个元素缺失。现在我的目标是用“-99”填充两个缺失的行，以表明数据丢失，生成的数据框如下所示；

                   t d1 d2
 2012-01-01 00:00:00  2 15
 2012-01-01 01:00:00  3 14
 2012-01-01 02:00:00  3 14
 2012-01-01 03:00:00 -99-99
 2012-01-01 04:00:00 -99-99
 2012-01-01 05:00:00  5 12
 2012-01-01 06:00:00  6 11

我坚持这一点，对此的任何帮助表示赞赏。PS：任何其他代码也将受到欢迎。谢谢

4

2 回答 2

2

你可以merge dfr和tGen向量（将后者变成data.frame之后）。指定all = TRUE允许您用 NA 填充缺失的行。

dfrM <- merge(dfr, data.frame(t = tGen), all = TRUE)

然后确定缺少哪些值并替换为-99：

dfrM[is.na(dfrM)] <- -99

> dfrM
                    t  d1  d2
1 2012-01-01 00:00:00   2  15
2 2012-01-01 01:00:00   3  14
3 2012-01-01 02:00:00   4  13
4 2012-01-01 03:00:00 -99 -99
5 2012-01-01 04:00:00 -99 -99
6 2012-01-01 05:00:00   5  12
7 2012-01-01 06:00:00   6  11
于 2012-11-29T14:48:00.820 回答
0

您快到了！

dfr[subfr, -1] <-  -99   
# assumes that time is your first column, and the rest of the row gets -99


如果您愿意，还可以合并几行：

dfr[is.na(match(tGen,dfr$t)), -1] <-  -99
于 2012-11-29T14:47:17.690 回答