Подсчет различий в кадре данных R и добавление в колонку

Question

Я хочу иметь возможность сравнивать различия по номеру заказа внутри таблицы и прикрепить столбец, в котором указаны различия. Например, я хочу это

order color type shape    alert 
1  1 blue a circle    type 
2  1 blue b circle     
3  2 green a circle    color 
4  2 blue a circle color type shape 
5  2 yellow b triangle    type 
6  2 yellow c triangle     
7  3 orange c triangle     

выглядеть следующим образом

order color type shape    alert 
1  1 blue a circle    type 
2  1 blue b circle     
3  2 green a circle    color type shape 
4  2 blue a circle 
5  2 yellow b triangle    
6  2 yellow c triangle     
7  3 orange c triangle     

Мой код сравнивает только 2 строки, которые находятся рядом друг с другом, как я эффективно сравнить все строки с одинаковыми порядковыми номерами? Могу ли я избегать циклов? Вот мой код

order = c(0001, 0001, 0002, 0002, 0002, 0002, 0003) 
color = c("blue", "blue", "green", "blue", "yellow", "yellow", "orange") 
type = c("a", "b", "a", "a", "b", "c", "c") 
shape = c("circle", "circle", "circle", "circle", "triangle", "triangle", "triangle") 
df = data.frame(order, color, type, shape) 

df$alert <- "" 

for(i in 1:nrow(df)-1){ 
    if(identical(df$order[i+1],df$order[i])){ 
    if(!identical(df$color[i+1],df$color[i])){ 
     df$alert[i] <- paste(df$alert[i],"color") 
    } 
    if(!identical(df$type[i+1],df$type[i])){ 
     df$alert[i] <- paste(df$alert[i],"type") 
    } 
    if(!identical(df$shape[i+1],df$shape[i])){ 
     df$alert[i] <- paste(df$alert[i],"shape") 
    } 
    } 
} 

Answer 1

Вот dplyr решение на основе:

library(dplyr) 
dat1 %>% gather(measure, val, -order) %>% 
     group_by(order, measure) %>% 
     summarise(alerts = length(unique(val))) %>% 
     filter(alerts>1) %>% 
     summarise(alerts = paste0(measure, collapse = " ")) %>% 
     left_join(dat1, .) 

    order color type shape   alerts 
1  1 blue a circle    type 
2  1 blue b circle    type 
3  2 green a circle color type shape 
4  2 blue a circle color type shape 
5  2 yellow b triangle color type shape 
6  2 yellow c triangle color type shape 
7  3 orange c triangle    <NA>