Início / coding / Perguntas / 79090471
Accepted
js4032
Asked: 2024-10-15 22:43:50 +0800 CST

Expressão para título do eixo ggplot2 não coloca números em negrito

  • 772

Estou escrevendo uma função que combina texto e expressões para formar títulos de eixo para um gráfico de saída. O problema é que quando tento deixá-lo em negrito, ele não aplica esse estilo aos números. O código a seguir demonstra o problema.

test_func <- function(x_title) {
  text <- '1'
  
  ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
    geom_point() +
    labs(x = parse(text = paste('bold(Part ~', text, ' ~', x_title, ')'))) +
    theme(axis.title = element_text(face = 'bold'))
}

test_func('Value')

Saída de função

Para comparação, veja o que acontece quando insiro o título completo em expression(bold()).

ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
  geom_point() +
  labs(x = expression(bold('Part 1 Value'))) +
  theme(axis.title = element_text(face = 'bold'))

Tudo em negrito

Também tentei adicionar theme(axis.title = element_text(face = 'bold')), mas não fez diferença.

Como faço para aplicar negrito a todas as partes da expressão?

4 respostas

  1. Você pode usar:

    text <- expression(bold('1'))

    Isso aparentemente substitui ggplot2 faceo parâmetro, veja aqui .

    • 1
  2. Best Answer

    O problema é que quando você analisa, o valor de "1" em uma string parece um número, então ele analisa para bold(Part ~ 1 ~ boo ). E os recursos do plotmath não parecem gostar de números em negrito, mas vão colocar texto em negrito. Então, se você envolver o valor entre aspas, ele permanecerá uma string

    labs(x = parse(text = paste('bold(Part ~', dQuote(text, F), ' ~', x_title, ')')))

    Ou você pode usar bquotee construir a string com pasta

    labs(x = bquote(bold(.(paste('Part', text, x_title)))))
    • 1

  3. Você pode usar substituteem vez disto expressionaqui:

    test_func <- function(x_title) {
  text <- '1'
  
  ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
    geom_point() +
    labs(x = substitute(bold(paste("Part ",text," ", x_title))))
}

test_func('Value')
    • 1

  4. Você poderia usar ggtexte fazer isso com markdown também. Por exemplo:

    library(ggplot2)
library(ggtext)

test_func <- function(x_title) {
  text <- '1'

  ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
    geom_point() +
    labs(x = paste0('**Part ', text, ' ', x_title,"**")) +
    theme(axis.title = element_markdown())
}

test_func('Value')

    Criado em 2024-10-15 com reprex v2.1.1

    • 1

relate perguntas