如何根据共同的一列对两个文件进行子集化？

Question

我有两个文本文件，其中一列的结构相同，即 date year-m-d。

   > head(wg)
        date  valu1   
 40034 2008-01-01 0.323   
 40058 2008-01-02 0.314 
  > head(reg)
    date      dval
 1 2008-01-01        0.225
 2 2008-01-02        0.235

读取一个文件：

 wg= read.table("C:\Users\wg.txt", sep ='' , header =TRUE)

但是这两个文件之一缺少一些日期，因此 wg 和 reg 之间的行数不同，我无法进行任何计算。现在我需要的是在它们都可用的地方对 wg and reg 进行子集化（基于 date），因此，wg 和 reg 具有相同的日期和数量行。感谢您的帮助。

Answer 1

数据示例

A<-as.Date(c("2008-01-01", "2008-01-02", "2008-01-03"))
valA<-as.numeric(c(0.333, 0.232, 0.123))
B<-as.Date(c("2008-01-01", "2008-01-02", "2008-01-04"))
valB<-as.numeric(c(0.225, 0.124, 0.345))

wg<-data.frame(A, valA)
reg<-data.frame(B, valB)

v1<-wg$A %in% reg$B

wg 的所选行：

wg[v1, ]

要获取 reg 的行号，您需要运行 %in% 相反

如何根据共同的一列对两个文件进行子集化？

How to subset two files based on one column in common?

r

subset