从数据框中选择偶数天

Question

我有一个数据时间序列的数据框架，我想通过仅保留每个偶数日测量的条目来细化数据。例如：

set.seed(1)
RandData <- rnorm(100,sd=20)
Locations <- rep(c('England','Wales'),each=50)
today <- Sys.Date()
dseq <- (seq(today, by = "1 days", length = 100))

Date <- as.POSIXct(dseq, format = "%Y-%m-%d")

Final <- data.frame(Loc = Locations,
                    Doy = as.numeric(format(Date,format = "%j")),
                    Temp = RandData)

那么，我如何将此数据框减少为仅包含在偶数天测量的每个条目，例如Lloc，day和第172天，第174天等等......

Answer 1

怎么样：

Final[Final$Doy%%2==0,]