limits = c(0,0.005))+
labs(y=NULL)+
coord_flip()+
theme_bw()
image.png
image.png
昨天放到推文里的代码稍微有点错误...,今天放一个完整的代码
library(ggplot2)
library(dplyr)
library(patchwork)
set.seed(1234)
x<-seq(5,10,by=0.5)
df...vB_KpnP_SU552A` = sample(x,10,replace = T),
`s__Escherichia_phage_ECBP5...(x,10,replace = T),
check.names = F)
head(df)
df%>%
reshape2::melt()%>%
group_by(variable...axis.ticks.y = element_blank())
p2
df3<-data.frame(x="A",
y=c("s__Klebsiella_phage_vB_KpnP_SU552A