idでデータフレーム内のデータの一部を減算する

Question

前の質問と同様ですが、もっと複雑です。

date <- c("2016-03-24","2016-03-24","2016-03-24","2016-03-24","2016-03-24", 
      "2016-03-24","2016-03-24","2016-03-24","2016-03-24","2016-03-24") 
location <- c(1,1,2,2,3,3,4,4,"out","out") 
sensor <- c(1,16,1,16,1,16,1,16,1,16) 
Temp <- c(35,34,92,42,21,47,37,42,63,12) 
df <- data.frame(date,location,sensor,Temp) 

私は他の場所を無視した場所「4」から位置「アウト」を減算したいと私は、日付とセンサーでそれをやりたいです。私は以下のコードを試しましたが、結果としてNAsを取得しました。私は何が間違っていたのか分かりません。

DailyMaxInOutDiff04 <- df %>% group_by(date, sensor) %>% summarise(diff = Temp[location=="4"]- Temp[location=="out"]) 

編集この例では、今取り組んでいるが、それは私の実際のデータフレームで作業されていません。

私が望む結果は以下の通りです：

 date location sensor diff 
1 2016-03-24  4  1 -26 
2 2016-03-24  4  16 30 

Answer 1

私たちは、グループ化します前に、それはfilter最初に優れている

df %>% 
    filter(location %in% c(4, 'out')) %>% 
    group_by(date, sensor) %>% 
    summarise(Diff = Temp[location=="4"] - Temp[location=="out"], 
       location = first(location)) %>% 
    select(1, 2, 4, 3) 
#  date sensor location Diff 
#  <fctr> <dbl> <fctr> <dbl> 
#1 2016-03-24  1  4 -26 
#2 2016-03-24  16  4 30