library(ggplot2)
colors <-c("#E41A1C","#000000","#FF8C00","#4DAF4A","#984EA3",
           "#40E0D0")
Ap3.2<-read.csv("Ap3.2.csv")
#Ap3.1$SWA<-factor(Ap3.1$SWA,levels = c("PUT","CAD","HIS",
#                                      "SPD","SPE","BAs"))
Ap3.2$samples<-factor(Ap3.2$samples,levels =c("b_1","b_3","b_5","b_10","b_20","b_45",                                              "d_1","d_3","d_5","d_10","d_20","d_45"))

p3 <- ggplot(Ap3.2, aes(samples,KO)) +
  geom_point(aes(size = KOsize,color=SWA),show.legend = TRUE) +
  scale_size_continuous(range = c(1, 9)) +
  scale_color_manual(values = colors)+
  theme_bw() +
  theme(panel.grid =element_blank())+
  theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1)) +
  labs(x = '', y = '')
p3
#我的网盘/博客素材/气泡图