ggplot森林图变量的变化顺序

Question

我想按最大 OR 对变量“test”排序。

structure(list(test = c("a", "b", "c", "d", "e", "f", "g"), OR = c(2.78, 
1.74, 1.32, 1.16, 0.92, 0.75, 0.53), LowerLimit = c(2.11, 0.96, 
1.11, 0.74, 0.61, 0.52, 0.4), UpperLimit = c(3.72, 3.25, 1.58, 
1.85, 1.4, 1.09, 0.71), Group = 1:7), class = "data.frame", row.names = c(NA, 
-7L)

p = ggplot(data=table,
       aes(x = reorder (test, -OR), y = OR, ymin = LowerLimit, ymax = UpperLimit )) +
geom_pointrange(aes(col=test), size = 1.5)+
  geom_hline(aes(fill=test),  yintercept =1, linetype=2)+
  xlab('test')+ 
  ylab("Odd's Ratio (95% Confidence Interval)")+
  geom_errorbar(aes(ymin=LowerLimit, ymax=UpperLimit,col=test),width=0.5,cex=1)+ 
  facet_wrap(~test,strip.position="left",nrow=9,scales = "free_y") +
  theme(plot.title=element_text(size=16,face="bold"),
    axis.text.y=element_blank(),
    axis.ticks.y=element_blank(),
    axis.text.x=element_text(face="bold"),
    axis.title=element_text(size=12,face="bold"),
    strip.text.y = element_text(hjust=0,vjust = 1,angle=180,face="bold"))+
  coord_flip()
p

我已经评论了这个post Order Bars in ggplot2 bar graph

我已经尝试了重新排序命令以及创建“头寸”列表的示例，但都不起作用。

Answer 1

如果您首先 reorder 变量 test，而不是尝试在 aes 函数内改变您的数据，这将按预期工作。

比较这个：

table %>% 
  mutate(test = reorder(test, OR)) %>%       
  ggplot(aes(x = test, y = OR, ymin = LowerLimit, ymax = UpperLimit )) +
  geom_pointrange(aes(col = test), size = 1.5) +
  geom_hline(yintercept = 1, linetype = 2) +
  geom_errorbar(aes(ymin = LowerLimit, ymax = UpperLimit, col = test),
                width = 0.5, cex = 1) + 
  coord_flip() +
  facet_wrap(~test, strip.position = "left", nrow = 9, scales = "free_y") +
  xlab('test') + 
  ylab("Odds Ratio (95% Confidence Interval)") +
  theme(plot.title   = element_text(size=16,face="bold"),
        axis.text.y  = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.x  = element_text(face="bold"),
        axis.title   = element_text(size=12,face="bold"),
        strip.text.y = element_text(hjust = 0, vjust = 1,
                                    angle = 180, face = "bold"))

在reorder里面的OR前面加一个-符号完全一样的代码：

table %>% 
  mutate(test = reorder(test, -OR)) %>%       
  ggplot(aes(x = test, y = OR, ymin = LowerLimit, ymax = UpperLimit )) +
  geom_pointrange(aes(col = test), size = 1.5) +
  geom_hline(yintercept = 1, linetype = 2) +
  geom_errorbar(aes(ymin = LowerLimit, ymax = UpperLimit, col = test),
                width = 0.5, cex = 1) + 
  coord_flip() +
  facet_wrap(~test, strip.position = "left", nrow = 9, scales = "free_y") +
  xlab('test') + 
  ylab("Odds Ratio (95% Confidence Interval)") +
  theme(plot.title   = element_text(size=16,face="bold"),
        axis.text.y  = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.x  = element_text(face="bold"),
        axis.title   = element_text(size=12,face="bold"),
        strip.text.y = element_text(hjust = 0, vjust = 1,
                                    angle = 180, face = "bold"))

ggplot森林图变量的变化顺序

ggplot forest plot change order of variables

r

ggplot2

forestplot