Настройка окна окна corrplot на черный

Question

С помощью приведенного ниже кода я могу создать хороший график корреляции.

library(corrplot) 
df <- data.frame(A=1:10,B=rnorm(10)*(1:10),C=1:10,D=runif(10)*1:10) 
df 
corrplot(cor(df)) 

Добавление параметра bg="black" изменит цвет внутри графика до черного.

df <- data.frame(A=1:10,B=rnorm(10)*(1:10),C=1:10,D=runif(10)*1:10) 
df 
corrplot(cor(df),bg="black") 

Теперь если я хотел бы установить все окно графика на черный это должно работать:

par(bg="black") 
df <- data.frame(A=1:10,B=rnorm(10)*(1:10),C=1:10,D=runif(10)*1:10) 
df 
corrplot(cor(df),bg="black") 

Но это не так. Как заставить все окно графика черным?

Answer 1

Вот 2-ступенчатый путь:

# First, we need to plot once, to get the extremes of 
# the user coordinates of the plotting region, as set 
# by the corrplot function 
corrplot(cor(df)) 

# The extremes are stored 
usr <- par("usr") 

# New empty plotting window 
plot.new() 

# Set the new extremes 
par(usr=usr) 

# Plot a rectangle filled in black, covering the whole plotting window 
rect(par("usr")[1],par("usr")[3],par("usr")[2],par("usr")[4],col = "black") 

# Finally, plot the corrplot 
corrplot(cor(df), bg="black", add = TRUE)