erro de análise facet_wrap ao usar símbolo maior ou igual a

Estou tentando alterar o título de dois gráficos feitos usando facet_wrap(), um dos quais tem um símbolo maior que ou igual a ( >=). Posso fazer os gráficos analisarem o título, mas assim que coloco o símbolo >= entre parênteses, os títulos falham na análise. Como posso fazer os títulos analisarem quando o símbolo >= está entre parênteses?

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)

Falha na análise ao colocar >= entre parênteses.

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 (>=
#>                 ^

^{Criado em 2024-11-18 com reprex v2.1.1}