跟着Nature Communications学作图：R语言ggplot2气泡图组合水平柱形图完整示例

library(readxl)
dat01<-read_excel("data/20220806/fig2d.xlsx",
                  sheet = "Sheet1")

library(tidyverse)
library(stringr)


dat01 %>% 
  pivot_longer(-var) %>% 
  mutate(value=replace_na(value,"B")) -> new.dat01

library(ggplot2)

ggplot(data=new.dat01,aes(x=name,y=var))+
  geom_point(size=15,aes(color=value),
             show.legend = FALSE)+
  geom_segment(data=data.frame(x=7:11,
                               xend=7:11,
                               y=6,
                               yend=5:1),
               aes(x=x,y=y,xend=xend,yend=yend),
               color="#68c3a6",size=3)+
  scale_color_manual(values = c("A"="#68c3a6",
                                "B"="#d3d3d3"))+
  geom_rect(data = data.frame(xmin=0.5,
                              xmax=11.5,
                              ymin=c(0.5,2.5,4.5),
                              ymax=c(1.5,3.5,5.5)),
            aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax),
            fill="#f6f6f6",
            alpha=0.5,
            inherit.aes = FALSE)+
  geom_point(data=new.dat01,aes(x=name,y=var,color=value),
             size=15,
             show.legend = FALSE)+
  geom_segment(data=data.frame(x=7:11,
                               xend=7:11,
                               y=6,
                               yend=5:1),
               aes(x=x,y=y,xend=xend,yend=yend),
               color="#68c3a6",size=3)+
  theme_void() -> p1

p1

dat02<-read_excel("data/20220806/fig2d.xlsx",
                  sheet = "Sheet2")
dat02
ggplot(data=dat02,aes(x=var,y=value))+
  geom_hline(yintercept = 10,lty="dashed",
             color="#d3d3d3")+
  geom_col(fill="#68c3a6")+
  geom_text(aes(label=paste0(value,"M")),hjust=1)+
  coord_flip()+
  scale_y_reverse(expand=expansion(mult = c(0.4,0)),
                  breaks=c(0,10),
                  labels=c(0,"10M"))+
  scale_x_discrete(position = "top")+
  theme_classic()+
  theme(axis.line.y = element_blank(),
        axis.ticks.y = element_blank())+
  labs(x=NULL,y="Total size") -> p2

p2

library(patchwork)
p2 + p1 +
  plot_layout(widths = c(1,3))