library(tidyverse)
library(ggalt)
df1<- tribble(~variable,~mean,~min,~max,
"base",21.6,19.8,23.3,
"urban.blue",21.4,19.8,23.0,
"intensive.green",20.5,19.8,21.3,
"extensive.green",20.4,19.8,21.1,
"max.built",21.4,19.8,23.1,
"cool.pavement",21.7,19.8,23.5,
"combined",20.3,19.8,21.0)
ggplot(df1,aes(min,xend=max,variable))+
geom_dumbbell(size = 1,
size_x =2.5,
size_xend =2.5,
colour = "grey",
colour_x = "blue",
colour_xend = "red")+
geom_point(aes(mean,alpha=0.5))+
geom_text(aes(mean,variable,label=paste0(round(mean,digits=2),"°C"),hjust=0,vjust=-2),size=3)+
scale_size(guide=FALSE)+scale_alpha(guide=FALSE)+
theme_minimal()+
labs(title = "Indoor Air Temperature (°C)",
subtitle = "Minimum, Mean and Maximum",
x = "Temperature",
y = "")