当我保存 ggplot 图像时，theme_minimal黑白值在照片负片效果中反转。如果我不使用主题，则不会发生这种情况，使用 theme_bw 也不会发生这种情况。.pdf保存到或 时也不会发生这种情况.png。我已经测试过，在 RStudio、R GUI 或通过终端运行时会发生这种情况。我在 Mac OS 10.15.7 上运行 R 版本 4.0.2。

我将非常感谢任何对此进行调试的见解。在多次完整系统重新启动后，该行为已持续数周。

library(ggplot2) 
ggplot(diamonds, aes(x = cut, y = clarity)) + 
  geom_point() + 
  theme_minimal() 

ggsave("test_minimal.jpg")

我保证这不仅仅是另一个掷骰子的家庭作业问题。我实现了一个函数来计算在掷骰子s时获得小于总和的概率n m。我的函数适用于 的小值，n但我发现大值的n. 见附图。任何人都了解发生了什么？

我的概率函数

从此数学堆栈交换中实现

probability <- function(s, m, n) {

  i <- 0:((s-1-n) / m)
  m^(-n) * sum((-1)^i * choose(n, i) * choose(s - 1 - i * m, n))

}

开始打破 ~ n > 80

n <- 1:90 # number of dice
m <- 6 # number of sides
s <- floor(mean(1:m)*n) # sum of faces
p <- mapply(probability, s = s, m = m, n …