You can try
library(tidyverse)
d %>%
gather(key, value, -PtsAgRdTm) %>%
ggplot(aes(x=PtsAgRdTm, y=value, fill=key)) +
geom_col(position = "dodge")
You transform the data from wide to long using tidyr’s gather function, then plot the bars in a “dodge” or a “stack” way.