Как получить общий цветовой барьер в сюжете `biwavelet` в R?
Я сейчас делаю вейвлет-анализ, используя biwavelet пакет в R, и мне интересно, как иметь общую цветную полосу для нескольких графиков, а также контролировать положение, длину и ширину общей цветовой полосы? Спасибо за любую помощь.
require(biwavelet)
par(mfrow=c(1,2))
set.seed(123)
Year=1950:2000
wt1<- wt(cbind(Year,rnorm(51)),dt=1,max.scale=32)
plot(wt,plot.cb = T,plot.phase = F,type = 'power.norm',
xlab = 'Time (year)',ylab = 'Period (year)')
wt2<- wt(cbind(Year,runif(51)),dt=1,max.scale=32)
plot(wt2,plot.cb = T,plot.phase = F,type = 'power.norm',
xlab = 'Time (year)',ylab = 'Period (year)')
