左对齐R ggplot中的刻度标记标签

本文介绍了左对齐R ggplot中的刻度标记标签的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 我可以在 ggplot 中找到对齐图例和轴标签的选项，但不能打勾记号标签。 是否有可能使这些标签不与图形绘图框右对齐，而是左对齐与最长标签的开始位置齐平，还是与整个图形边框有一定的距离？ 示例： set.seed（1）库（ggplot2 ） axisLabels.x< - c（这是一个较长的标签，短标签，短标签，短标签，短标签，这又是一个较长的标签） labels.wrap ）＃word wrap gg ggplot（gg）+ geom_bar（aes（x，y，fill = x），stat =identity）+ scale_x_discrete（labels = labels.wrap）+ scale_fill_discrete（guide =none）+ labs（x =，y = Response）+ coord_flip（） 通缉： 解决方案由于它提供了解决方案，我使@ user20650的评论成为答案。 > set.seed（1） library（ggplot2） axisLabels.x< - c（This is更长的标签，短标签，短标签，短标签，短标签，这又是一个较长的标签） labels.wrap< ; - lapply（strwrap（axisLabels.x，50，simplified = F），paste，collapse =\\\）＃word wrap＃ gg< - data.frame（x = LETTERS [1：6] ，y = sample（1：10,6）） plot geom_bar（aes（x，y，fill = x），stat =identity）+ scale_x_discrete（labels = labels.wrap）+ scale_fill_discrete（guide =none）+ labs（x =，y =Response）+ coord_flip（） plot + theme（axis.text.y = element_text（hjust = 0）） I can find options to align the legend and axis labels in ggplot, but not for the tick mark labels.Is it possible to have those labels not right-aligned to the graph plot-box, but left-aligned flush with either the start of the longest label, or some set distance from the overall graph-border?Example:set.seed(1)library(ggplot2)axisLabels.x <- c("This is a longer label", "Short label", "Short label","Short label","Short label", "This is again a longer label")labels.wrap <- lapply(strwrap(axisLabels.x,50,simplify=F),paste,collapse="\n") # word wrapgg <- data.frame(x=LETTERS[1:6], y=sample(1:10,6))ggplot(gg) + geom_bar(aes(x,y, fill=x), stat="identity")+ scale_x_discrete(labels=labels.wrap)+ scale_fill_discrete(guide="none")+ labs(x="",y="Response")+ coord_flip()Wanted: 解决方案 As it provides the solution, I make @user20650's comment an answer.set.seed(1)library(ggplot2)axisLabels.x <- c("This is a longer label", "Short label", "Short label","Short label","Short label", "This is again a longer label")labels.wrap <- lapply(strwrap(axisLabels.x,50,simplify=F),paste,collapse="\n") # word wrapgg <- data.frame(x=LETTERS[1:6], y=sample(1:10,6))plot <- ggplot(gg) + geom_bar(aes(x,y, fill=x), stat="identity")+ scale_x_discrete(labels=labels.wrap)+ scale_fill_discrete(guide="none")+ labs(x="",y="Response")+ coord_flip()And here we goplot + theme(axis.text.y = element_text(hjust = 0)) 这篇关于左对齐R ggplot中的刻度标记标签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！