使用gg_miss_upset时如何添加千分隔符？

问：

我正在尝试使用 以图形方式识别缺失的数据模式。但是我无法包含数千个分隔符。gg_miss_upset()

这是我的代码

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

我试图使用参数的参数添加千位分隔符，但没有奏效。labelsscale_y_continuous

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

我将不胜感激任何帮助。