ggplot2_百分比長條圖

library(ggplot2)
cities <- c(rep("Delhi", 3), rep("Mumbai", 3),
            rep("Chennai", 3), rep("Bengaluru", 3))

humidity <- rep(c("High", "Medium", "Low"), 4)

temperature <- abs(rnorm(12, 25, 10))

dataframe <- data.frame(cities, humidity,
                        temperature)
ggplot(dataframe, aes(fill = humidity,
                      y = temperature, x = cities))+
  geom_bar(position = "fill", stat = "identity")+
  theme(plot.title = element_text(hjust = 0.5))+
  theme(axis.title=element_blank(), 
        axis.text=element_blank(), 
        axis.ticks=element_blank())+ 
  guides(fill = FALSE, color = FALSE, linetype = FALSE, shape = FALSE, size = FALSE)  #刪除圖例