Добавление суффикса, который включает текст надстрочного индекса, к тексту оси в ggplot

Я хочу, чтобы моя ось X показывала шкалу с добавленным «m²» в конце текста каждой оси с помощью функции scales::label_number(). Воспроизводимый код:

tibble(x = 1:10, y = 1:10) |> 
ggplot(aes(x, y)) + 
scale_x_continuous(label = scales::label_number(suffix = "m^2"))

что дает мне «5 м ^ 2» (например) по оси x, тогда как я хочу, чтобы он показывал «5 м ²». Кажется, обычные подозреваемые в bquote() и expression() не работают с функцией scales::label_number().

r ggplot2

16.05.2022 08:24

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Используя scales::label_parse, вы можете сделать:

library(ggplot2)

data.frame(x = 1:10, y = 1:10) |>
  ggplot(aes(x, y)) +
  scale_x_continuous(
    label = ~ scales::label_parse()(
      paste0(scales::label_number()(.x), "*m^2"))
  )

Большое спасибо! Приведенный выше код не работает, когда значения по оси x превышают 1000. Это связано с тем, что label_number() помещает пробел между «1» и «000». Я обнаружил, что замена paste0(scales::label_number()(.x), "*m^2") на paste0(.x, "*m^2") решает эту проблему.

— 16.05.2022 08:46

@ Фредди Дж. Хизер. Код не подводит. label_number использует пробел в качестве знака группировки. И как вы хотели label_number... (;

— 16.05.2022 08:49

16.05.2022 08:35

Ответ принят как подходящий

Используйте Юникод для ^2: "m\u00B2" или m^2: "\u33A1"

library(tibble)
library(ggplot2)

tibble(x = 1:10, y = 1:10) |>  
  ggplot(aes(x, y)) +  
  scale_x_continuous(label = scales::label_number(suffix = "m\u00B2"))