2019-06-17 homer motif结果作气泡图

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)