主页 / coding / 问题 / 79200374
Accepted
tassones
Asked: 2024-11-18 22:46:15 +0800 CST

使用大于或等于符号时 facet_wrap 解析错误

  • 772

我正在尝试更改使用 制作的两个图的标题facet_wrap()，其中一个图具有大于或等于符号 ( >=)。我可以让图解析标题，但只要我将 >= 符号放在括号中，标题就会解析失败。当 >= 符号在括号中时，如何让标题进行解析？

library(tidyverse)

mtcars %>% 
  mutate(size = ifelse(hp >= 100, 'greater', 'lesser'),
         size = factor(size, levels = c("greater", "lesser"),
                       labels = c("Horsepower >= 100", "Horsepower < 100"))) %>% 
  ggplot(aes(x = mpg, y = wt)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~size, labeller = label_parsed)

当将 >= 放在括号中时，解析失败。


mtcars %>% 
  mutate(size = ifelse(hp >= 100, 'greater', 'lesser'),
         size = factor(size, levels = c("greater", "lesser"),
                       labels = c("Horsepower (>= 100)", "Horsepower (< 100)"))) %>% 
  ggplot(aes(x = mpg, y = wt)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~size, labeller = label_parsed)
#> Error in parse(text = as.character(values)): <text>:1:13: unexpected '>='
#> 1: Horsepower (>=
#>                 ^

创建于 2024-11-18，使用reprex v2.1.1

2 个回答

  1. 您可以使用phantom：

    plot(1, main = expression(Horsepower ~ (phantom()>= 100)))

    结果图显示 plotmath

    • 3
  2. Best Answer

    1）确保标签有效R：

    mtcars %>% 
  mutate(size = ifelse(hp >= 100, 'greater', 'lesser'),
         size = factor(size, levels = c("greater", "lesser"),
                       labels = c("Horsepower ~ '('>= 100*')'", 
                                  "'Horsepower (< 100)'"))) %>% 
  ggplot(aes(x = mpg, y = wt)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~size, labeller = label_parsed)

    截屏

    2)另一种方法是使用 unicode 2265 表示 >=。在这种情况下省略labeller=...

    mtcars %>% 
  mutate(size = ifelse(hp >= 100, 'greater', 'lesser'),
         size = factor(size, levels = c("greater", "lesser"),
                       labels = c("Horsepower (\u2265 100)", 
                                  "Horsepower (< 100)"))) %>% 
  ggplot(aes(x = mpg, y = wt)) +
  geom_point() +
  theme_bw() +
  facet_wrap(~size)

    截屏

    • 2

相关问题