對于下面的示例,我想知道當標簽出現在 y 條上時如何按字母順序排序。
謝謝,
納米
# Create labels for plot
boxLabels = c("Package recommendation", "Breeder’s recommendations", "Vet’s
recommendation", "Measuring cup", "Weigh on scales", "Certain number of
cans", "Ad lib feeding", "Adjusted for body weight")
df <- data.frame(yAxis = length(boxLabels):1,
boxOdds =
c(2.23189,1.315737,1.22866,.8197413,.9802449,.9786673,.6559005,.5929812),
boxCILow =
c(.7543566,1.016,.9674772,.6463458,.9643047,.864922,.4965308,.3572142),
boxCIHigh =
c(6.603418,1.703902,1.560353,1.039654,.9964486,1.107371,.8664225,.9843584)
)
(p <- ggplot(df, aes(x = boxOdds, y = boxLabels))
geom_vline(aes(xintercept = 1), size = .25, linetype = 'dashed')
geom_errorbarh(aes(xmax = boxCIHigh, xmin = boxCILow), size = .5, height =
.2, color = 'gray50')
geom_point(size = 3.5, color = 'orange')
theme_bw()
theme(panel.grid.minor = element_blank())
scale_x_continuous(breaks = seq(0,7,1) )
coord_trans(x = 'log10')
ylab('')
xlab('Odds ratio (log scale)')
annotate(geom = 'text', y =1.1, x = 3.5, label ='Model p < 0.001\nPseudo
R^2 = 0.10', size = 3.5, hjust = 0) ggtitle('Intention to remove box
turtles from the road')
)
uj5u.com熱心網友回復:
這些值按字母順序顯示,但從下到上。要反轉,您可以嘗試fct_rev從 forcats 包中使用:
替換y = boxLabels為
y = forcats::fct_rev(boxLabels)
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/480659.html
上一篇:R繪制帶有置信區間的圖
