使用 r 中的条形图在条形图顶部标注注释

Question

需要使用条形图移动条形图顶部的旋转标签。我在这里缺少什么参数？代码：

df<- data.frame(a=strrep(letters[1:20], 10) , b=runif(20, min=1, max=30))
df<- df[order(df$b, decreasing = TRUE),]

row.names(df)<- df$a
par(mar=c(15, 5, 3, 2)+ 0.2)
x<- barplot(df$b, c(2, 4, 1, 6), ylim = c(0, 30), ylab="statistics", col = heat.colors(20), xaxt="n")
label = row.names(df)
text(cex=0.2, x=x, y=-1.25, label, xpd=TRUE, srt=45)

Answer 1

您需要使用合适的偏移量更改 text 中的 y 轴位置。（我这里用的是+1）。

x <- barplot(df$b, c(2, 4, 1, 6), ylim = c(0, 30), ylab="statistics", 
            col = heat.colors(20), xaxt="n")
label = row.names(df)

text(cex=0.2, x=x, y=df$b + 1, label, xpd=TRUE, srt=45)

使用 r 中的条形图在条形图顶部标注注释

label annotation on top of bar using barplot in r

r

bar-chart