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)
