You have a few options. The easiest would be to add
p + scale_x_reverse()
to the plot. You could also reverse the levels of the factor
relevel(survey$hospital, rev(levels(survey$hospital))) -> survey$hospital
Or, you could determine the order you want the boxes by hand with xlim()
p + xlim("Hospital #4","Hospital #3","Hospital #2","Hospital #1")
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…