пакет для бивалеров: «ось» не работает

Question

Я использую пакет biwavelet для проведения анализа когерентности вейвлета. Когда я хочу установить свою собственную метку x, я нахожу, что axis не работает. Ниже приведен воспроизводимый пример. Благодарю.

require(biwavelet) 
t1 <- cbind(1:100, rnorm(100)) 
t2 <- cbind(1:100, rnorm(100)) 
wtc.t1t2 <- wtc(t1,t2,nrands = 10) 
plot(wtc.t1t2, plot.cb = TRUE, plot.phase = TRUE,xaxt='n') 
axis(1,at = seq(10,100,10),labels = seq(1,10,1)) 

Answer 1

Вещь, которая нарушала ваш заговор, была plot.cb = TRUE.

В исходном коде для plot.biwavelet автор отмечает следующее о возможности plot.cb:

## Добавить цветную полосу: это должно произойти после того, как все, иначе хаос наступает!

В этом была проблема - вы вызвали axis() после plot.cb и последовал хаос. Однако,, вы можете вручную добавить цветную полосу, используя image.plot из пакета fields, после запуска plot без plot.cb, добавив axis().

pacman::p_load(biwavelet,fields) 
t1 <- cbind(1:100, rnorm(100)) 
t2 <- cbind(1:100, rnorm(100)) 
wtc.t1t2 <- wtc(t1,t2,nrands = 10) 
plot(wtc.t1t2, plot.phase = TRUE,xaxt='n') 
axis(1,at = seq(10,100,10),labels = seq(1,20,2)) 
image.plot(zlim=c(0,25), legend.only=TRUE) 

Вы можете настроить тики и цветовую шкалу по своему вкусу этого пути!