英文:
Align ggplot y axis labels along common middle line, across facets
问题
当y轴标签长度不同时，element_text(hjust = .5) 会使标签在各个分面内以公共中线对齐，而不是在所有标签上对齐。
示例代码:
library(tidyverse)t1 <- tibble(labs = c("A short label","Second short label","This is a medium length label","This is also a medium length","Now, this label is actually quite long, really long","This label is also actually quite long, really long") %>%fct_inorder %>%fct_rev,facs = str_c("facet", 1:3) %>%rep(each = 2),x = runif(6))t1 %>%ggplot(aes(x, labs)) +geom_point() +facet_grid(vars(facs),scales = "free_y") +labs(x = "",y = "") +theme(axis.text.y = element_text(hjust = .5))
应该返回如下结果：
如何使y轴标签在公共轴上居中对齐?
英文:
When y-axis labels are of different length, element_text(hjust = .5) aligns the labels around a common middle line within facets, rather than across all the labels.
An example:
library(tidyverse)t1 <- tibble(labs = c("A short label","Second short label","This is a medium length label","This is also a medium length","Now, this label is actually quite long, really long","This label is also actually quite long, really long") %>%fct_inorder %>%fct_rev,facs = str_c("facet", 1:3) %>%rep(each = 2),x = runif(6))t1 %>%ggplot(aes(x, labs)) +geom_point() +facet_grid(vars(facs),scales = "free_y") +labs(x = "",y = "") +theme(axis.text.y = element_text(hjust = .5))
should return
How do I get the y-axis labels to be middle aligned along a common axis?
答案1
得分: 2
你可以将以下的 dplyr::mutate 添加到 tibble 中：mutate(labs = str_pad(labs, max(str_width(labs)), side = "both"))，以在字符串上添加填充，使它们具有相同的视觉长度。
library(tidyverse)t1 <- tibble(labs = c("A short label","Second short label","This is a medium length label","This is also a medium length","Now, this label is actually quite long, really long","This label is also actually quite long, really long") %>%fct_inorder() %>%fct_rev(),facs = str_c("facet", 1:3) %>%rep(each = 2),x = runif(6)) %>%mutate(labs = str_pad(labs, max(str_width(labs)), side = "both"))t1 %>%ggplot(aes(x, labs)) +geom_point() +facet_grid(vars(facs),scales = "free_y") +labs(x = "",y = "") +theme(axis.text.y = element_text(hjust = .5))
创建于2023-07-17，使用 reprex v2.0.2
英文:
You could add the following dplyr::mutate to the tibble: mutate(labs = str_pad(labs, max(str_width(labs)), side = "both")) to add padding to the strings so they all have the same apparent length.
library(tidyverse)t1 <- tibble(labs = c("A short label","Second short label","This is a medium length label","This is also a medium length","Now, this label is actually quite long, really long","This label is also actually quite long, really long") %>%fct_inorder %>%fct_rev,facs = str_c("facet", 1:3) %>%rep(each = 2),x = runif(6)) |>mutate(labs = str_pad(labs, max(str_width(labs)), side = "both"))t1 %>%ggplot(aes(x, labs)) +geom_point() +facet_grid(vars(facs),scales = "free_y") +labs(x = "",y = "") +theme(axis.text.y = element_text(hjust = .5))
<!-- -->
<sup>Created on 2023-07-17 with reprex v2.0.2</sup>
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论