y<- read.table("motif-logP.txt",sep= "," , header= T)
head(y)
motif logPvalue type
1 RBPJ -1281.00 Female-ko
2 LEF1 -1472.00 Female-ko
3 PRDM1 -683.00 Female-ko
4 NKX2.1 -992.10 Female-ko
5 TCF3 -1513.00 Female-ko
ggplot(y,aes(type,motif))+geom_point(aes(size=-logPvalue))+theme_minimal()+xlab(NULL)+ylab(NULL)+scale_size_continuous(range=c(1, 12))+theme(axis.text.x=element_text(size=13,angle=-30),axis.text.y=element_text(size=15,family="myFont"))
##有fpkm的话 aes(color=FPKM)
网友评论