ggplot 无法在构面标题中将数字以斜体显示

发布于 2025-01-11 04:42:32 字数 727 浏览 0 评论 0原文

我试图将我的一些方面设置为斜体文本，此时我注意到我的数字没有变成斜体。我注意到轴标签中有相同的行为。重要的是，只有标签的部分部分或只有某些方面应该是斜体。

有什么办法可以规避/解决这个问题吗？

MWE：

library(ggplot2)
library(tibble)
tibble(
    a = c('a1~italic(a1)', 'Not~Italic'),
    x = c(1,1),
    y = c(1,1)
) %>% 
    ggplot(aes(x,y)) + 
    geom_point() +
    facet_grid(a~., labeller = label_parsed) + 
    theme(
        strip.text = element_text(size = 20)
    ) +
    xlab(expression(italic(Italic~part~of~label1)~not~italic~part~of~label1))

^{由 reprex 包 (v2.0.0)}

原文

I am trying to have some of my facets in italic text, at which point I noticed that my numbers do not become italic. I noticed the same behaviour in axis labels. Importantly, only partial parts of the labels or only some facets should be italic.

Is there any way to circumvent/fix this?

MWE:

library(ggplot2)
library(tibble)
tibble(
    a = c('a1~italic(a1)', 'Not~Italic'),
    x = c(1,1),
    y = c(1,1)
) %>% 
    ggplot(aes(x,y)) + 
    geom_point() +
    facet_grid(a~., labeller = label_parsed) + 
    theme(
        strip.text = element_text(size = 20)
    ) +
    xlab(expression(italic(Italic~part~of~label1)~not~italic~part~of~label1))

^{Created on 2022-03-02 by the reprex package (v2.0.0)}

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

请止步禁区 2025-01-18 04:42:32

澄清后更新：

library(ggplot2)
  library(tibble)
  tibble(
    a = c("italic('a1a1')", 'Not~Italic'),
    x = c(1,1),
    y = c(1,1)
  ) %>% 
    ggplot(aes(x,y)) + 
    geom_point() +
    facet_grid(a~., labeller = label_parsed) + 
    theme(
      strip.text = element_text(size = 20)
    ) +
    xlab(expression(italic(Italic~part~of~label1)~not~italic~part~of~label1))

第一个答案：
以下是我们如何使用 element_text() 来实现：

library(ggplot2)
library(tibble)

tibble(
  a = 'a1a1',
  x = 1,
  y = 1
) %>% 
  ggplot(aes(x,y)) + 
  geom_point() +
  facet_grid(a~.)+
  theme(
    strip.text.y = element_text(
      size = 12, face = "italic")
    )

Update after clarification:

library(ggplot2)
  library(tibble)
  tibble(
    a = c("italic('a1a1')", 'Not~Italic'),
    x = c(1,1),
    y = c(1,1)
  ) %>% 
    ggplot(aes(x,y)) + 
    geom_point() +
    facet_grid(a~., labeller = label_parsed) + 
    theme(
      strip.text = element_text(size = 20)
    ) +
    xlab(expression(italic(Italic~part~of~label1)~not~italic~part~of~label1))

First answer:
Here is how we could do it using element_text():

library(ggplot2)
library(tibble)

tibble(
  a = 'a1a1',
  x = 1,
  y = 1
) %>% 
  ggplot(aes(x,y)) + 
  geom_point() +
  facet_grid(a~.)+
  theme(
    strip.text.y = element_text(
      size = 12, face = "italic")
    )

回复收藏 0 原文

~没有更多了~