How to input margin

[h20gg702]

I made upset plot and add a margin with par() , but par() did not work.
I used code like below.
Could you some give advices?

p_upset <- 
  upset(fromList(data),
        order.by = "freq",
        keep.order = TRUE,
        point.size = 5, line.size = 2,
        text.scale = c(2, 2, 2, 2, 2, 2), 
        sets.bar.color=c("#BF3131","#BF3131","#83AAF1","#83AAF1"),
        matrix.color = c(rep("orange",8),rep("black",16))
  )
par("mar" = c(2, 2, 2, 2),
    "oma" = c(2, 2,2, 2)) 
p_upset