I tried using the solution on my own dataset, and the only problem I seem to have is the x-axis labels missing. See below:
suppressPackageStartupMessages(library(tidyverse))
eui <- data.frame(
stringsAsFactors = FALSE,
bName = c("COMMUNICATION","COCHISE HALL",
"MARICOPA HALL","MARICOPA HALL",
"STEWARD OBSERVATORY","YAVAPAI HALL","MATHEMATICS",
"LAW COLLEGE/ADD","MARVEL LABS",
"FLANDRAU PLANETARIUM","PHARMACY COLLEGE",
"LEVY-SALMON AZCC","MEDICAL LIBRARY",
"ARBOL DE LA VIDA","BIO SCIENCE RESEARCH LAB"),
fiscalYr = c("2019","2019","2019","2019","2019",
"2019","2019","2019","2019","2019",
"2019","2019","2019","2019","2019"),
kbtu = c(2567516.9,3295687.9,2649863.4,2649863.4,
16291685.8,2992037.5,7232153.4,
10239796.6,20831685.8,6476952.6,21323481.4,
39732314.6,9882377.4,16837254.6,
31826177.8),
constYr = c(1909,1921,1921,1921,1921,1942,1968,
1969,1973,1975,1980,1986,1991,2009,
2017),
gsf = c(26629,43714,33410,33410,129107,40453,
49102,111720,63108,29598,74166,188071,
86816,234455,172623),
bldgType = c("Academic","Dormitory","Dormitory",
"Dormitory","Laboratory","Dormitory",
"Academic","Academic","Laboratory",
"Museum/Library","Academic","Medical",
"Museum/Library","Dormitory","Laboratory"),
eui = c(96.4,75.4,79.3,79.3,126.2,74,147.3,
91.7,330.1,218.8,287.5,211.3,113.8,
71.8,184.4),
cumEUI = c(96.4,83.4,82.1,81.4,103.1,99.3,105.9,
102.5,129.6,134.3,152.2,165.7,160.7,
142.5,148)
)
eui %>%
mutate(x = cumsum(gsf) - 0.5*gsf) %>%
ggplot() +
geom_tile(aes(x, 0.5*eui,
width = gsf,
height = eui,
fill = bldgType),
colour="white") +
scale_x_continuous(breaks = eui$x, labels = eui$x) +
scale_y_continuous(expand=expansion(c(0,0.02))) +
theme_classic() +
theme(axis.text.x = element_text(angle=90, size=7, hjust=1, vjust=0.5),
legend.position = "bottom") +
labs(x="", y="eui (kbtu/gsf)")

Created on 2020-04-08 by the reprex package (v0.3.0)