Drawing a mirrored bar chart with Ggplot2

#生成数据, used to demonstrate DAT <-data.frame (group = Rep (c ("Above1", "Above2", "Below1", "Below2"), each=10), x = Rep (c (SEQ (1, PNS, by =4), SEQ (1, PNS, by=4) +1), 2), #注意, when processing the actual data, the data of the bar chart placed below the x axis will be reversed to negative y = C (runif (0, 1), runif (0, 1, 10), runif    0), runif (1, 0)) the library (Ggplot2) #关键在于将stat and position two parameters are set to "Identity" g=ggplot (DAT, AES (x=x, Y=y, fill=group)) + Geom_bar (stat= "Identity", position= "Identity") #翻转坐标 #g=g+coord_flip () #逆序x值 #g=g+scale_x_reverse () g# details can also be adjusted, But that's different.

Drawing a mirrored bar chart with Ggplot2