Как изменить цвет поверхности в функции VineCopula :: plot.BiCop?

Question

Вы знаете, как я могу изменить цвет поверхности в функции VineCopula :: plot.BiCop? Я пробовал использовать аргумент col, но он работал только для цвета линий сетки.

library(VineCopula)
par.gauss<-BiCopTau2Par(1, .7, check.taus = TRUE)
obj.gauss <- BiCop(family = 1, par = par.gauss)
plot(obj.gauss,zlim=c(0,12))

Я пробовал:

plot(obj.gauss,zlim=c(0,12), col="green")

, но он изменил только цвет строк.

Answer 1

Вы можете использовать

n <- 70
plot(obj.gauss, zlim=c(0,12), col.regions=rainbow(n))

n дает количество цветов, используемых в вашем графике. rainbow - палитра цветов, есть несколько других. Посмотрите на ?rainbow, вы можете использовать

hcl.colors(n)
rainbow(n)
heat.colors(n)
terrain.colors(n)
topo.colors(n)
cm.colors(n)

, и есть несколько параметров, например

plot(obj.gauss, zlim=c(0,12), col.regions=rainbow(120, s=0.5, alpha=0.75))