gpt4 book ai didi

r - R ggplot中的左对齐刻度线标签

转载 作者:行者123 更新时间:2023-12-04 11:11:23 25 4
gpt4 key购买 nike

我可以在 ggplot 中找到对齐图例和轴标签的选项,但不适用于刻度线标签。

是否可以让这些标签不与图形绘图框右对齐,而是与最长标签的开头或与整个图形边界的某个设定距离左对齐?

例子:

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()

enter image description here

通缉:

enter image description here

最佳答案

由于它提供了解决方案,我将 @user20650 的评论作为答案。

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()

我们开始
plot + theme(axis.text.y = element_text(hjust = 0))

left aligned y scale labels

关于r - R ggplot中的左对齐刻度线标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30510653/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com