丸が横に並んだベン図で枠の上に数字が書いたやつを書きたかった

デフォルトはこうですが

R

library (Venn Diagram)
png("fig_a.png")
fig_a <- venn.diagram(
  x = list( A = 1:150, B = 121:180 ),
  filename =NULL,
  cex = 3,
    cat.cex = 3,
    )
grid.newpage()
grid.draw(fig_a)
dev.off()

こんなかんじで

R

png("fig_b.png")
fig_b <- venn.diagram(
  x = list( "150" = 1:150, "60" = 121:180 ),
    label.col = "white",                            # ラベル（数値）を白にして見えなくする
  filename =NULL,
  cex = 3,
    cat.cex = 3,
    cat.dist = c(0, 0),
    cat.pos = c(0, 0),
    )
grid.newpage()
grid.draw(fig_b)
dev.off()

重なりのところだけ表示させたかったら

png("fig_c.png")
fig_c <- venn.diagram(
  x = list( "150" = 1:150, "60" = 121:180 ),
    label.col = c("white","black","white"),
  filename =NULL,
  cex = 3,
    cat.cex = 3,
    cat.dist = c(0, 0),
    cat.pos = c(0, 0),
    )
grid.newpage()
grid.draw(fig_c)
dev.off()