生信分析miRNA靶点预测R语言韦恩图 制作的代码
install.packages("VennDiagram")
getwd()
setwd("C:/Users/qupeng/Desktop")
getwd()
library(VennDiagram)
library(grid)
library(futile.logger)
df1<-read.csv('TargetScan7.csv',header=T,stringsAsFactors = F)
dim(df1)
df2<-read.csv('miRDB.csv',header=T,stringsAsFactors = F)
dim(df2)
df3<-read.csv('miRtarBase.csv',header=T,stringsAsFactors = F)
dim(df3)
X<-list(TargetScan7=df1$A,
miRDB=df2$B,
miRtarBase=df3$C)
venn.diagram(X,filename = "vennplot_1 .tiff",fil=c('red','blue','green'),alpha=1)
