r - 按两组比较两个数值变量

Question

如何通过两组在 x 轴上使用两个数值变量作为平均值和标准差来构建 ggplot2 图表？举例:左手为2组术前Hb值，右手为2组术后Hb值。

Answer 1

这与您要寻找的内容相似吗？

library(tidyverse)
library(reshape2)

# creating some nonsense sample data
x <- iris %>%
  select(-Petal.Width,-Sepal.Width) %>%
  melt(id.vars="Species") %>%
  group_by_at(colnames(select_if(.,negate(is.numeric)))) %>%
  summarise_all(mean,na.rm=T) %>%
  mutate(sd01=value-value/10,
         sd02=value+value/10) %>%
  rename(mean=value,
         groups=variable)

# plotting
ggplot(x,aes(Species,mean,color=Species))+
  geom_point(stat="identity")+
  geom_errorbar(aes(ymin=sd01,ymax=sd02))+
  facet_wrap(~groups, strip.position = "bottom")+
  theme(axis.ticks = element_blank(),
        strip.background = element_blank(),
        strip.text.x = element_text(),
        panel.spacing = unit(0, "lines"))+
  scale_y_continuous(expand=c(0,0))+
  annotate("segment", x = 0, y = 0, xend = 4, yend = 0)

编辑:使用geom_pointrange()使代码更短并改变错误栏的外观。

ggplot(x,aes(Species,mean,color=Species))+
  geom_pointrange(aes(ymin=sd01,ymax=sd02),stat="identity")+
  facet_wrap(~groups, strip.position = "bottom")+...