Since I do not have your data, I invented a somewhat simpler data set to make the graph. Is this the sort of thing you are looking for?
library(ggplot2)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
DF <- data.frame(TIME = rep(seq(1:4), each = 3),
Variable = rep(c("Req", "Recv", "Total"), 4),
Value = c(12, 10, 18, 9, 10, 14, 18, 20, 23, 4, 2, 8))
DF
#> TIME Variable Value
#> 1 1 Req 12
#> 2 1 Recv 10
#> 3 1 Total 18
#> 4 2 Req 9
#> 5 2 Recv 10
#> 6 2 Total 14
#> 7 3 Req 18
#> 8 3 Recv 20
#> 9 3 Total 23
#> 10 4 Req 4
#> 11 4 Recv 2
#> 12 4 Total 8
ReqAndRecv <- DF %>% filter(Variable %in% c("Req", "Recv"))
Total <- DF %>% filter(Variable == "Total")
ggplot() + geom_col(aes(TIME, Value, fill = Variable), data = ReqAndRecv,
position = "dodge") +
geom_line(aes(TIME, Value, color = Variable), data = Total)

Created on 2019-09-16 by the reprex package (v0.2.1)