How to add thousand separators when using gg_miss_upset?

Question

I'm trying to identify missing data patterns graphically using gg_miss_upset(). But I haven't been able to include thousand separators.

This is my code

figure1 <- gg_miss_upset(NA_data, nset = 6, nintersects = 8).

I have tried to add a thousand separator using the labels argument of scale_y_continuous argument, but it did not work.

figure1 <- gg_miss_upset(NA_data, nset = 6, nintersects = 8) +
   scale_y_continuous(
     labels=function(x) format(x, big.mark = ".", scientific = FALSE)
   )

I'd appreciate any help.