气泡图
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
#我的网盘/博客素材/气泡图
暂无评论

发送评论 编辑评论


				
|´・ω・)ノ
ヾ(≧∇≦*)ゝ
(☆ω☆)
(╯‵□′)╯︵┴─┴
 ̄﹃ ̄
(/ω\)
∠( ᐛ 」∠)_
(๑•̀ㅁ•́ฅ)
→_→
୧(๑•̀⌄•́๑)૭
٩(ˊᗜˋ*)و
(ノ°ο°)ノ
(´இ皿இ`)
⌇●﹏●⌇
(ฅ´ω`ฅ)
(╯°A°)╯︵○○○
φ( ̄∇ ̄o)
ヾ(´・ ・`。)ノ"
( ง ᵒ̌皿ᵒ̌)ง⁼³₌₃
(ó﹏ò。)
Σ(っ °Д °;)っ
( ,,´・ω・)ノ"(´っω・`。)
╮(╯▽╰)╭
o(*////▽////*)q
>﹏<
( ๑´•ω•) "(ㆆᴗㆆ)
😂
😀
😅
😊
🙂
🙃
😌
😍
😘
😜
😝
😏
😒
🙄
😳
😡
😔
😫
😱
😭
💩
👻
🙌
🖕
👍
👫
👬
👭
🌚
🌝
🙈
💊
😶
🙏
🍦
🍉
😣
Source: github.com/k4yt3x/flowerhd
颜文字
Emoji
小恐龙
花!
上一篇
下一篇