[英]Merge to dataset according to matching dates
我有2个具有时间序列的数据集。
在数据集1中,共有3列: Date
, price changes
, volume
。 和1056行的排序由从开始日期01-01-2005
至31-12-2015
。
在数据集2中,共有3列: Date
, price changes
, volume
。 和1028行的排序由从开始日期01-01-2005
至31-12-2015
。 但是只有 1028行,因为缺少数据(即缺少行)。
我想删除数据集中1中未显示日期的行。
我已经尝试过了,但是没有用:
dataset1[!rownames(dataset1) %in% dataset2$Date, ]
输出具有1056行,因此不会擦除任何内容。
您只需要做dataset1[dataset1$Date %in% dataset2$Date, ]
:
set.seed(1)
d1 <- as.Date('2015-01-01') + 0:10
x <- sample(1:10, 11, replace = TRUE)
df1 <- data.frame(d1, x)
d1 x
1 2015-01-01 3
2 2015-01-02 4
3 2015-01-03 6
4 2015-01-04 10
5 2015-01-05 3
6 2015-01-06 9
7 2015-01-07 10
8 2015-01-08 7
9 2015-01-09 7
10 2015-01-10 1
11 2015-01-11 3
d2 <- as.Date('2015-01-01') + seq(0, 10, 3)
y <- sample(1:10, 4)
df2 <- data.frame(d2, y)
df1[df1$d1 %in% df2$d2, ]
d1 x
1 2015-01-01 3
4 2015-01-04 10
7 2015-01-07 10
10 2015-01-10 1
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.