なぜdplyr :: filter（）に条件がFalseのデータが含まれていますか？

Question

ここは私が理解するのに苦労しているものです。

**Year**  **Date** 
1925   1925-01-02 
1941   1925-02-03 
1990   1990-01-02 
1956   NA 
1990   1990-01-02 
2002   2004-01-02 

そして、私は**Year**列の値が**Date**列の年と一致していないこれらのエントリのすべてをフィルタリングしようとしています：私は2列を持つデータフレームを持っている想像してみてください。

dateParser <- function(date) { 
    dateStr <- toString(date) 
    yearStr <- strsplit(dateStr, "-")[[1]][1] 
    yearInt <- as.integer(yearStr) 

    return(yearInt) 
} 

、その後、私はそれらの出現をフィルタリングするdplyr::filter()を使用しています：

noMismatch <- dplyr::filter(data, as.integer(data$Year) == dateParser(data$Date)) 

だから、私は非常に大きなデータセットを想定し 日列のために、小さなパーサを書かれている

しかし、私は年が一致しない結果のデータフレームにいくつかの行が表示されています。どうして？

P.S.のは、私が**Date**コラムでは約NA値を気にしないとNAが発生するたびに、私はちょうどこの行を残していますと仮定しよう。

Answer 1

これはおそらく、あなたの

dateParser(data$Date) 

」はdoesnの事実に関係していますあなたが探しているものをデータフォーマットの点で返す。

試してみてください。

library(lubridate) 
library(dplyr) 
noMismatch <- filter(data, as.integer(data$Year) == year(data$Date))