powered by
rpatternGrob(x=unit(0.5, "npc"), y=unit(0.5, "npc"), width=unit(1, "npc"), height=unit(1, "npc"), motif=matrix("white"), AR=1, motif.width=unit(5, "mm"), motif.height=AR * motif.width, pattern.offset=c(0, 0), default.units="npc", clip=TRUE, gp=gpar(fill = NA), ...)
.lines45 <- matrix("white", ncol=100, nrow=100) diag(.lines45) <- "black" grid.rpattern(motif=.lines45)
Run the code above in your browser using DataLab