如何改变直方图中x轴上的比例，使用R中的Lattice包？

Question

我已经成功地在我的数据集中为所有年份和月份制作了可变风速直方图。但我希望x轴标记为1英里/小时的intervals.Each面元也是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))

你知道怎么做吗？

Answer 1

也许这可以是一些值得思考的小事情。注意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))))

​

​

一个免费的直方图(更改刻度线并旋转它们)：

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

​

​