旋转使用eulerr包制作的维恩图

我能够用带有此代码的R中的

eulerr

包制作如下的维恩图。但是，打印是垂直旋转的。如何旋转绘图，使其宽度大于高度

library(eulerr)
set.seed(3)
group1_size <- 13622
group2_size <- 40219    
group3_size <- 17120

group2_group1_group3 = as.integer(group1_size*0.2)
group1_group3_size <- as.integer(group1_size*0.6) - group2_group1_group3 
group1_group2_size <- as.integer(group1_size*0.3) - group2_group1_group3 
group3_size_group2_size <- as.integer(group3_size*0.35) - group2_group1_group3 
group1_only_direct <- group1_size - group1_group3_size - group1_group2_size - group2_group1_group3 
group2_only <- group2_size - group1_group2_size - group3_size_group2_size - group2_group1_group3 
group3_only_direct <- group3_size - group3_size_group2_size - group1_group3_size - group2_group1_group3 


fit <- euler(c(Group1 = group1_only_direct,
               Group2 = group3_only_direct,
               Group3 = group2_only,
               "Group1&Group3" = group1_group3_size,
               "Group1&Group2" = group1_group2_size,
               "Group3&Group2" = group3_size_group2_size,
               "Group2&Group1&Group3" = group2_group1_group3 
               )
             )
plot(fit,
     quantities = list(fontsize = 12),
     main = "Example Diagram")

库（eulerr）
种子（3）
组1_大小