데이터 프레임의 모든 사이트에 공통된 날짜 찾기

Question

큰 데이터 세트를 작업 중이며 모든 사이트에 공통된 날짜를 찾고 싶습니다.

site <- c(1,1,1,2,2,2,2,3,3,4,4,4) 
date <- c("4th Nov","5th Nov","6th Nov","5th Nov","6th Nov","7th Nov","8th Nov","5th Nov","6th Nov","6th Nov","7th Nov","8th Nov") 
temperature <- c(3,5,7,3,6,8,5,3,5,7,8,9) 
data <- data.frame(site,date,temperature) 

common.dates(data) 
[1] "6th Nov" 

어떤 도움을 주시면 감사하겠습니다. 감사!

Answer 1

(이 최적화되지 않은 경우에도) 당신이 할 수 있습니다 :

dates <- union(NULL,data$date) 
sites <- union(data$site,NULL) 

w <- array(0,length(dates)) # number sites per date 
for (i in sites) 
    for (j in 1:length(dates)) 
     w[j] <- w[j] + dates[j] %in% data$date[data$site==i] 

dates[w == length(sites)] # returns the dates common to all sites 

Answer 2

한 plyr 사용 방법 :

with(ddply(data, .(date), function(x) all(1:4 %in% x$site)), date[V1 == TRUE]) 
# [1] 6th Nov 

Answer 3

그것은 split, intersect의 조합으로 작동하고, Reduce :

Reduce(intersect, split(data$date, data$site)) 

[1] "6th Nov"