Найти даты, общие для всех сайтов в фрейме данных

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"