减少r中的字符串

Question

我想将 ggplot 创建的轴的字符串大小（即y 和x）缩小为一个字符，如下图所示

请大家给我一些建议好吗？

Answer 1

一种可能的解决方案是使用expression()，例如

library(tidyverse)
library(palmerpenguins)

penguins %>%
  na.omit() %>%
  ggplot(., aes(x = bill_length_mm, y = body_mass_g)) +
  geom_point() +
  theme_classic(base_size = 16) +
  ylab(expression(P[y])) +
  xlab(expression(P[x])) +
  theme(axis.title = element_text(hjust = 1),
        axis.line = element_line(arrow = arrow(type='closed', length = unit(12,'pt'))))

^{由reprex package (v2.0.1) 于 2021 年 11 月 24 日创建}

另一个可能的解决方案是使用 unicode 符号（例如来自https://unicode-table.com/en/sets/superscript-and-subscript-letters/）：

penguins %>%
  na.omit() %>%
  ggplot(., aes(x = bill_length_mm, y = body_mass_g)) +
  geom_point() +
  theme_classic(base_size = 16) +
  xlab(paste("P", "\u1D6A", sep = "")) +
  ylab(paste("P", "\u1D67", sep = "")) +
  theme(axis.title = element_text(hjust = 1),
        axis.line = element_line(arrow = arrow(type='closed', length = unit(12,'pt'))))

^{由reprex package (v2.0.1) 于 2021 年 11 月 24 日创建}