
R Code:
getwd()library(ggplot2)
Data <- read.table("data.txt",header = T,sep = "\t")
attach(Data)
p <- ggplot(Data, aes(x = Impact,y = pathway)) + geom_point(aes(size=Hits,color=FDR)) + scale_colour_gradient(low="red",high="green") + theme_bw()
p <- p + labs(size="Compound number",x="Impact",y="Pathway Name",title="Pathway Compound")
数据实例:

网友评论