об изменении суммы суммы к конкретному условию

Question

data <- data.frame(id=c(rep(1, 4), rep(2, 3), rep(3, 3), rep(4,4)), 
           condition=c(1, 1, 0, 0, 1, 1, 0, 1, 1, 0,1,1,0,0),
           count=c(1, 2, 0, 0, 1, 2, 0, 1, 2, 0,1,2,0,0), 
           firstexosure=c(1, 0, 0, 0, 1, 0, 0, 1, 0, 0,1,0,0,0), 
           outcome=c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1,0,0,1,0), 
           time=c(100, 250, 220, 300, 240, 380, 150, 200, 320, 360,100,210,220,235) ) 

После того, как я использую

data<-data%>%group_by(id,condition)%>%mutate(sumtime= sum(time))

, я изменю значение sumtime на значение condition == 1 в каждой группе идентификаторов

data <- data.frame(id=c(rep(1, 4), rep(2, 3), rep(3, 3), rep(4,4)), 
               condition=c(1, 1, 0, 0, 1, 1, 0, 1, 1, 0,1,1,0,0),
               count=c(1, 2, 0, 0, 1, 2, 0, 1, 2, 0,1,2,0,0), 
               firstexosure=c(1, 0, 0, 0, 1, 0, 0, 1, 0, 0,1,0,0,0), 
               outcome=c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1,0,0,1,0), 
               time=c(350, 350, 350, 350, 620, 620, 620, 520, 520, 520,310,310,310,310) )

Как мне написать в R