Пакет biwavelet: "ось" не работает

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)

Таким образом, вы можете настроить галочки и цветную полосу по своему вкусу!