Is this the sort of thing you are looking for?
library(ggplot2)
DF <- data.frame(Name = c("A", "A", "B", "B", "C", "C"),
Type = c("Expect", "Obs", "Expect", "Obs", "Expect", "Obs"),
Value = c(60, 40, 70, 65, 50, 20))
DF
#> Name Type Value
#> 1 A Expect 60
#> 2 A Obs 40
#> 3 B Expect 70
#> 4 B Obs 65
#> 5 C Expect 50
#> 6 C Obs 20
ggplot(mapping = aes(fill = Type)) +
geom_col(aes(Name, Value), alpha = 0.5, data = filter(DF, Type == "Expect")) +
geom_col(aes(Name, Value), alpha = 0.5, data = filter(DF, Type == "Obs"))

Created on 2019-12-22 by the reprex package (v0.3.0.9000)