如何分配与欧拉圆相交的名称

Question

我需要创建这样的圈子：

我使用此代码

wilkinson2012 <-  c(CN = 40, MS = 40, Obj = 40, 
                "CN&MS" = 15, "MS&Obj" = 15,
                "CN&MS&Obj" = 10, "CN&Obj" = 15, names())
fit3 <- euler(wilkinson2012, shape = "circle")
plot(fit3)