左对齐R ggplot中的刻度标记标签 [英] Left-align tick mark labels in R ggplot

问题描述

我可以在 ggplot 中找到对齐图例和轴标签的选项，但不能打勾记号标签。

是否有可能使这些标签不与图形绘图框右对齐，而是左对齐与最长标签的开始位置齐平，还是与整个图形边框有一定的距离？

示例：

  set.seed（1）
库（ggplot2 ）
 axisLabels.x<  -  c（这是一个较长的标签，
短标签，短标签，短标签，短标签，
这又是一个较长的标签）
 labels.wrap < -  lapply（strwrap（axisLabels.x，50，simplify = F），paste，collapse =\\\
）＃word wrap 
 gg < -  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（）
  

---

通缉：

解决方案

由于它提供了解决方案，我使@ 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 <-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（） 
  
 
 
  
 
  
 
 
  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 wrap
gg <- 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 wrap
gg <- 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 go
plot + theme(axis.text.y = element_text(hjust = 0))


                        
这篇关于左对齐R ggplot中的刻度标记标签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！