旋转直方图条的标签-通过以下方式显示:labels=TRUE

旋转直方图条的标签-通过以下方式显示:labels=TRUE,r,histogram,R,Histogram,显示了如何使用labels=TRUE使用数据值或百分比标记直方图条。是否也可以旋转这些标签?我的目标是将它们旋转90度,因为现在条形图上的标签相互覆盖,无法读取 PS:请注意,我的目标不是像图中所示那样旋转y轴标签,例如使用mtcarsmtcars,这里有一个蛮力解决方案(虽然不是很蛮力): h@jeremycg这不是上述问题的重复。此问题询问如何旋转每个条的标签。链接问题询问如何旋转y轴标签。我猜您需要自己绘制文本标签(使用text(…,srt=90))。知道hist(…)提供的输出告诉您每个

显示了如何使用
labels=TRUE
使用数据值或百分比标记直方图条。是否也可以旋转这些标签?我的目标是将它们旋转90度,因为现在条形图上的标签相互覆盖,无法读取


PS:请注意,我的目标不是像图中所示那样旋转y轴标签,例如使用mtcarsmtcars,这里有一个蛮力解决方案(虽然不是很蛮力):


h@jeremycg这不是上述问题的重复。此问题询问如何旋转每个条的标签。链接问题询问如何旋转y轴标签。我猜您需要自己绘制文本标签(使用
text(…,srt=90)
)。知道
hist(…)
提供的输出告诉您每个条的
mids
可能会有所帮助。谢谢您的回答,但当我运行您的代码时,我得到:
>strh请注意,如果您对标签的大小有足够的信心,您可以放弃对
hist
的第一次调用,并使用另一种机制。这种双重绘图是为了在绘图窗口中获得字符串大小的相对准确的度量。
h <- hist(mtcars$mpg)
maxh <- max(h$counts)
strh <- strheight('W')
strw <- strwidth(max(h$counts))
hist(mtcars$mpg, ylim=c(0, maxh + strh + strw))
text(h$mids, strh + h$counts, labels=h$counts, adj=c(0, 0.5), srt=90)