生信分析miRNA靶點(diǎn)預(yù)測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)