R包绘图时报错，没看懂啥意思！

R包画图时报错
library(readxl)

library(grid)
library(futile.logger)
library(VennDiagram)
data<-read_excel("shiyan.xlsx",1)
data<-as.data.frame(data)
data[is.na(data)]<- 0
venn.plot <-venn.diagram(

• list(group1 = data$group1,group2 = data$group2,group3 = data$group3,grou4=data$group4),
  

• filename = "Venn.PDF",
  

• fill = c("red","blue","green","orange"),
  

• alpha = 0.5,
  

• cex = 1,
  

• lwd=0,
  

• lty=0,
  

• fontfamily = "serif",
  

• fontface = "bold",
  

• cat.default.pos = "text",
  

• cat.col = c("red","blue","green","orange"),
  

• cat.cex = 1.5,
  

• cat.fontfamily = "serif",
  

• cat.dist = c(0.2, 0.2, 0.2,-0.15),
  

• cat.pos = 0)

  grid.draw(venn.plot)
  Error in UseMethod("grid.draw") :
  no applicable method for 'grid.draw' applied to an object of class "c('double', 'numeric')"

百度没找到解决方法，请问一下这个该怎么办？