2

データ セット内のすべての年と月について、可変風速のヒストグラムを作成することに成功しました。しかし、x 軸に 1 マイル/時間隔でラベルを付けたいと思います。各ビンも 1 マイル/時間隔です。現在、デフォルトで x 軸は 20 マイル/時間隔でラベル付けされています。

これが私のRコードです。

histogram(~ as.numeric(spd) | factor(month) + factor(year), data = spd_sub, 
  xlab = "spd in miles/hour", 
  nint= max(as.numeric(spd))-min(as.numeric(spd)), layout = c(1, 1))

これを行う方法はありますか？

4

1 に答える 1

5

たぶん、これは少し考えるべきことかもしれません。の使用に注意してくださいscales。

library(lattice)
Depth <- equal.count(quakes$depth, number=8, overlap=.1)
xyplot(lat ~ long | Depth, data = quakes)

これにより、次のグラフが得られます。 ここに画像の説明を入力

scales 引数を設定すると、次のようになります。

xyplot(lat ~ long | Depth, data = quakes,
        scales = list(y = list(at = seq(from = 0, to = -50, by = -10))))

ここに画像の説明を入力

ヒストグラムを無料で1つ（目盛りを変更して回転させました）：

histogram( ~ height | voice.part, data = singer,
    xlab = "Height (inches)", type = "density",
    panel = function(x, ...) {
        panel.histogram(x, ...)
        panel.mathdensity(dmath = dnorm, col = "black",
            args = list(mean=mean(x),sd=sd(x)))
    },
    scales = list(x = list(at = seq(60, 80, by = 2), rot = 45)))

ここに画像の説明を入力

于 2011-09-10T17:35:24.587 に答える