匹配配對數據的行之間的數據

Question

我有一對數據框，其中有一對個人評分自己（1,0）並對他們的合作伙伴評分（1,0）。

have <- data.frame(group=c(1, 1, 2, 2, 3, 3), 
        person=c(1, 2, 1, 2, 1, 2), 
        rateSelf=c(1, 0, 1, 0, 1, 0), 
        rateOther=c(1, 1, 1, 0, 0, 0)) 
have 

# group person rateSelf rateOther 
#1  1  1  1   1 
#2  1  2  0   1 
#3  2  1  1   1 
#4  2  2  0   0 
#5  3  1  1   0 
#6  3  2  0   0 

我想比較人如何評價自己（rateSelf）他們是如何被其他人（ratedByOther）評級。

want <- data.frame(group=c(1, 1, 2, 2, 3, 3), 
        person=c(1, 2, 1, 2, 1, 2), 
        rateSelf=c(1, 0, 1, 0, 1, 0), 
        rateOther=c(1, 1, 1, 0, 0, 0), 
        ratedByOther=c(1, 1, 0, 1, 0, 0)) 
want 

# group person rateSelf rateOther ratedByOther 
#1  1  1  1   1   1 
#2  1  2  0   1   1 
#3  2  1  1   1   0 
#4  2  2  0   0   1 
#5  3  1  1   0   0 
#6  3  2  0   0   0 

什麼是一個聰明的方式來獲得ratedByOther？

Answer 1

我認爲這你想要做什麼：

library(dplyr) 
want <- have %>% 
    group_by(group) %>% 
    mutate(ratedByOther = rev(rateOther)) 

    group person rateSelf rateOther ratedByOther 
    <dbl> <dbl> <dbl>  <dbl>  <dbl> 
1  1  1  1   1   1 
2  1  2  0   1   1 
3  2  1  1   1   0 
4  2  2  0   0   1 
5  3  1  1   0   0 
6  3  2  0   0   0 

Answer 2

我們可以使用data.table

library(data.table) 
setDT(have)[, ratedByOther := rev(rateOther), group]