如何在R barplot中显示所有x标签？

Question

这是一个基本问题,但我无法找到答案.我在一个面板中产生了大约9个条形图,每个条形图有大约12个条形图.我在输入中提供了所有12个标签,但R仅命名备用条.这显然是由于R中的一些默认设置需要更改但我无法找到它.

Answer 1

如果您las=2在plot()通话中使用,则可能会显示所有标签.否则,您将需要使用xaxt="n"然后将标签放入单独的调用中axis(1, at= ..., labels=...).

另一种方法是首先收集中点,然后使用带有xpd和srt的text()来控制文本旋转的程度:

text(x=midpts, y=-2, names(DD), cex=0.8, srt=45, xpd=TRUE)

需要使用绘制区域中的坐标来选择y值.

Answer 2

要在基本R条形图上获得旋转标签,您可以(就像我在这里一样)调整gridBase包的插图中给出的一个示例:

library(grid)
library(gridBase)

## Make some data with names long enough that barplot won't print them all
DD <- table(rpois(100, lambda=5))
names(DD) <- paste("long", names(DD), sep="_")

## Plot, but suppress the labels
midpts <- barplot(DD, col=rainbow(20), names.arg="")

## Use grid to add the labels    
vps <- baseViewports()
pushViewport(vps$inner, vps$figure, vps$plot)

grid.text(names(DD),
    x = unit(midpts, "native"), y=unit(-1, "lines"),
    just="right", rot=50)

popViewport(3)

Answer 3

如果标签太大，R 不会标记每个条。

我建议尝试通过将 las=2 参数传递给绘图函数来垂直旋转标签。

如果标签仍然太大，您可以尝试使用 cex.names=.5 参数缩小字体。

绘图的示例数据

sample_curve <- c(2.31,2.34,2.37,2.52,2.69,2.81,2.83,2.85,2.94, 3.03,  3.21,  3.33)   # create a sample curve
names(sample_curve)<-c("1 MO","2 MO","3 MO","6 MO","1 YR","2 YR","3 YR","5 YR","7 YR","10 YR","20 YR","30 YR") # label the curve

标签太大的绘图示例

barplot(sample_curve) # labels too big for the plot

带有旋转和小标签的绘图示例

barplot(sample_curve, las=2, cex.names=.5) # lables are rotated and smaller, so they fit