这是一个基本问题,但我无法找到答案。我在一个面板中生成大约9个条形图,每个条形图大约有12个条形图。我在输入中提供了所有12个标签,但R仅命名备用条。这显然是由于R中的某些默认设置需要更改但我无法找到它。
答案 0 :(得分:29)
如果您在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值。
答案 1 :(得分:17)
要在基础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)
答案 2 :(得分:2)
如果标签太大,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
答案 3 :(得分:0)