R 双小波包；“安讯士”；它不起作用了

我正在使用

biwavelet

软件包进行小波相干分析。当我想设置自己的x标签时，我发现轴不工作。下面给出了一个可复制的示例。谢谢

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))

require（双小波）
t1破坏绘图的是
plot.cb=TRUE

在
plot.biwavelet
的源代码中，作者注意到关于
plot.cb
选项的以下内容：

##添加颜色条：这必须发生在一切之后，否则会造成混乱
接踵而至

这就是问题所在——您在
plot.cb
之后调用了
axis（）但是，在运行
plot
之后，您可以使用
字段
包中的
image.plot
手动添加回颜色栏，不使用
plot.cb
，然后添加
轴（）

pacman:：p_加载（双小波，字段）
t1@ZheyuanLi也许你能帮我解决这个问题。我在源代码中找到了该软件包作者的一条评论，该评论说，如果调用选项
plot.cb
，那么这一定是对绘图所做的最后一件事——如果添加任何其他类似于
axis（）
的内容，绘图就会中断。我不知道如何在
axis（）
之后添加
plot.cb（）
@ZheyuanLi我想我有个主意了。也许我们可以不使用
plot.cb
手动添加颜色栏。谢谢你的背景资料。你的情节可能比我好，所以请随意添加一个答案，但我会继续尝试，看看是否可以改进我的答案。@zheiyunli谢谢你的帮助。我对它进行了更新，但我只添加了一个通用的
image.plot
图例，没有针对他的具体情况进行定制。希望这足够好；如果不是的话，我明天可能会多做一些。非常感谢你的帮助。我不知道如何检查源代码，所以我不知道添加颜色条应该是最后一件事。谢谢。
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)