```
B <- tibble(Day =rep(1:2 ,times=10,each=1),
TC = c("compact","compact","compact", "compact",
"compact ","compact", "compact", "compact", "compact ","compact","compact","compact","compact", "compact",
"compact ","compact", "compact", "compact", "compact ","compact"),
Trash_left = c(100,300,8800,600,20000,400000,500,600000,50000.7,4000,10000,
300,30000,600,20000,400000,500,600000,100.7,4000),
shift= c("1","1","1","1","1","2","2","2","2","2","1","1","1","1","1","2","2","2","2","2"))
T1<- filter(B,Day==1 )
```

```
# A tibble: 10 × 4
Day TC Trash_left shift
<int> <chr> <dbl> <chr>
1 1 "compact" 100 1
2 1 "compact" 8800 1
3 1 "compact " 20000 1
4 1 "compact" 500 2
5 1 "compact " 50001. 2
6 1 "compact" 10000 1
7 1 "compact" 30000 1
8 1 "compact " 20000 1
9 1 "compact" 500 2
10 1 "compact " 101. 2
```

The result will be

50001.+101. =50102