我正在努力使用我的代码创建一个带有 ggplot2 的条形图,在其中我尝试y
在条形顶部添加值,但不移动x
轴的标签。
非常适合在条形图上添加值,但是当旋转 45°(即标签的最后一个字母粘在轴上)时geom_text
,我无法正确调整轴标签。x
我的数据
dput(graph)
structure(list(x = structure(1:9, .Label = c("AAAAAAAAAAAAA",
"BBBBBBBB", "CCCCCCCCCCCCCCCC", "DDDDD", "EEEEEEEE", "FFFFFFF",
"GGGGGGGGGGGGGGG", "HHHHHHHHHHHHHH", "IIIII"), class = "factor"),
y = c(1L, 5L, 10L, 1000L, 20L, 15L, 45L, 30L, 35L)), .Names = c("x",
"y"), class = "data.frame", row.names = c(NA, -9L))
我的代码:
graph <- read.table("input.txt",header=T,sep=";")
output <- ggplot(graph,aes(x=x,y=y))+
geom_bar(stat="identity")+
geom_text(aes(label=y,y=(y+25)))+
scale_x_discrete()+
scale_y_continuous(limits=c(0,max(50 + graph$y)))+
theme(axis.text.x=element_text(angle=45,vjust=0))
print(output)
我无法发布输出的图像,但是除了x
轴的刻度线适合标签的中间x
而不是标签的最后一个字母之外,该图看起来很好。