按日期对我的数据框进行子集

Question

我已经在某个地方看到了代码，但是在我搜索的30分钟内没有找到它。

这是我现在的代码

library('quantmod')
today <- Sys.Date()
getSymbols("SBUX")
retSBUX <- dailyReturn(SBUX)
starbucks <- data.frame(SBUX)
starbucks[,7] <- as.Date(row.names(starbucks))
row.names(starbucks) <- NULL
starbucks <- subset(starbucks, starbucks[,7] >= "2015-04-06" && starbucks[,7] <= today)

当我运行这段代码时，我得到一个带有0变量的数据框，只有数据框中的列名。

Answer 1

您应该使用向量化逻辑运算符&而不是短路运算符（&&）：

starbucks <- subset(starbucks, starbucks[,7] >= "2015-04-06" & starbucks[,7] <= today)

请参阅R - boolean operators && and ||。