0

毎時データセット用に取り組んでいるコードがあり、適切なウェーブレット プロットを表示したいのですが、好みに合わせて調整するのに苦労しています。x 軸、y 軸を変更してカラーバーを表示したい。x 軸の変更に成功しましたが、これはカラー バーがアクティブになっていない場合のみです。そうであれば、x 軸を変更することはできません。さらに、y 軸を変更して、自動的に生成される値よりも多くの値を保持する方法を見つけられませんでした。よろしくお願いいたします。

    library(biwavelet) # used for wavelets

    n <- 141696
    d <- data.frame(1:n, round(runif(n, 38, 100),2))

    # X-Axis for plotting
    TIME1 <- as.POSIXlt("2000-01-01 00:00:00 PST", format = '%Y-%m-%d %H:%M:%S')
    TIME2 <- as.POSIXlt("2016-02-29 23:00:00 PST", format = '%Y-%m-%d %H:%M:%S')
    LABELS <- seq(from = TIME1, to = TIME2, by = "3 months")
    xAxis <- seq(from = TIME1, to = TIME2, by = "hour")
    Location <-NA
    for (i in 1:length(LABELS)) { Location[i] <- which(LABELS[i] == xAxis) }
    LABELS <- format(LABELS, "%b %Y")

    # Wavelet
    WAV <- wt(d)

plot.cb = TRUEこれには正しい x 軸がありますが、引数としてプロットを入れていないため、カラー バーは表示されません。

    # PLOT (Has no legend but correct x-axis)
    par(oma=c(0, 0, 0, 1), mar=c(5, 4, 4, 5) + 0.1)
    plot(WAV, type="power.corr.norm", main="Bias-corrected wavelet power ", ylab="Period(hourly)", xlab="Time", lwd.sig=1, xaxt='n')
    axis(side = 1, at = Location, labels = LABELS, tick = TRUE, las = 2)

カラーバーなし、x 軸を修正

これはカラー バーを表示しますが、適切な x 軸のラベルがありません。

    # PLOT (Has legend but no x-axis)
    par(oma=c(0, 0, 0, 1), mar=c(5, 4, 4, 5) + 0.1)
    plot(WAV, type="power.corr.norm", main="Bias-corrected wavelet power ", ylab="Period(hourly)", xlab="Time", lwd.sig=1, xaxt='n', plot.cb=TRUE)
    axis(side = 1, at = Location, labels = LABELS, tick = TRUE, las = 2)

X 軸はありませんが、カラーバーはあります

4

1 に答える 1