[英]subset of a data frame in R
我有2个数据帧df2
和DF
。
> DF
date tickers
1 2000-01-01 B
2 2000-01-01 GOOG
3 2000-01-01 V
4 2000-01-01 YHOO
5 2000-01-02 XOM
> df2
date tickers quantities
1 2000-01-01 BB 11
2 2000-01-01 XOM 23
3 2000-01-01 GOOG 42
4 2000-01-01 YHOO 21
5 2000-01-01 V 2112
6 2000-01-01 B 13
7 2000-01-02 XOM 24
8 2000-01-02 BB 422
我需要来自df2
的值,这些值存在于DF
。 这意味着我需要以下输出:
3 2000-01-01 GOOG 42
4 2000-01-01 YHOO 21
5 2000-01-01 V 2112
6 2000-01-01 B 13
7 2000-01-02 XOM 24
所以我使用了以下代码:
> subset(df2,df2$date %in% DF$date & df2$tickers %in% DF$tickers)
date tickers quantities
2 2000-01-01 XOM 23
3 2000-01-01 GOOG 42
4 2000-01-01 YHOO 21
5 2000-01-01 V 2112
6 2000-01-01 B 13
7 2000-01-02 XOM 24
但是输出包含一个额外的列。这是因为在df2
中2天内存在ticker
'xom'。 所以两行都被选中了。 我的代码需要进行哪些修改?
输入如下:
> dput(DF)
structure(list(date = structure(c(1L, 1L, 1L, 1L, 2L), .Label = c("2000-01-01",
"2000-01-02"), class = "factor"), tickers = structure(c(4L, 5L,
6L, 8L, 7L), .Label = c("A", "AA", "AAPL", "B", "GOOG", "V",
"XOM", "YHOO", "Z"), class = "factor")), .Names = c("date", "tickers"
), row.names = c(NA, -5L), class = "data.frame")
> dput(df2)
structure(list(date = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L,
2L), .Label = c("2000-01-01", "2000-01-02"), class = "factor"),
tickers = structure(c(2L, 5L, 3L, 6L, 4L, 1L, 5L, 2L), .Label = c("B",
"BB", "GOOG", "V", "XOM", "YHOO"), class = "factor"), quantities = c(11,
23, 42, 21, 2112, 13, 24, 422)), .Names = c("date", "tickers",
"quantities"), row.names = c(NA, -8L), class = "data.frame")
使用sqldf
包:
require(sqldf)
sqldf("SELECT d2.date, d2.tickers, d2.quantities FROM df2 d2
JOIN DF d1 ON d1.date=d2.date AND d1.tickers=d2.tickers")
## date tickers quantities
## 1 2000-01-01 GOOG 42
## 2 2000-01-01 YHOO 21
## 3 2000-01-01 V 2112
## 4 2000-01-01 B 13
## 5 2000-01-02 XOM 24
这与我对你的帖子的回答没有什么不同,但需要稍加修改:
df2[duplicated(rbind(DF, df2[,1:2]))[-seq_len(nrow(DF))], ]
# date tickers quantities
# 3 2000-01-01 GOOG 42
# 4 2000-01-01 YHOO 21
# 5 2000-01-01 V 2112
# 6 2000-01-01 B 13
# 7 2000-01-02 XOM 24
注意:这为输出提供了与df2
相同的顺序。
或者,正如Ben建议的那样,使用merge
:
merge(df2, DF, by=c("date", "tickers"))
也会得到相同的结果(但不一定是相同的顺序)。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.