You can try
library(tidyverse)
d %>%
gather(key, value, -PtsAgRdTm) %>%
ggplot(aes(x=PtsAgRdTm, y=value, fill=key)) +
geom_col(position = "dodge")
![enter image description here](data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%200%200'%3E%3C/svg%3E)
You transform the data from wide to long using tidyr’s gather function, then plot the bars in a “dodge” or a “stack” way.