格子条形图有不正确的刻度标签

Question

我正在尝试在格子中创建条形图，但x轴刻度标记未正确显示：

dd <- data.frame(Year = 1990:1999, Count = 0:9)
barchart(Count ~ Year, data = dd, horizontal = FALSE)

x轴的刻度标签应为1990,1991，...不是1,2。

我不希望在绘图之前将年份转换为一个因素，因为我需要使用c.trellis( ..., x.same = TRUE)中的latticeExtra将条形图与xyplot结合使用，这似乎不适用于factor轴。

我该如何解决这个问题？

Answer 1

您可以使用自定义axis功能：

barchart(Count ~ Year, data=dd, horizontal=FALSE,
         axis=function(side, ...) { 
           if (side=="bottom") 
             panel.axis(at=seq_along(dd$Year), label=dd$Year, outside=TRUE, rot=0, tck=0) 
           else axis.default(side, ...)
         })