функция вставки в ggtitle: убрать лишние пробелы

Question

В блестящем контексте, как я могу удалить лишний пробел после и перед скобками в заголовке графика? Как показано на рисунке ниже, между "(" и "6", а также между "+" и ")" имеются избыточные пробелы.

Кроме того, мне было интересно, как я могу разбить название таким образом, чтобы название округа и возрастная группа отображались в следующей строке.

Вот мой код:

ggtitle(
    paste(
      "Percentage of Population Living with and Responsible for Grandchildren in", 
      input$county_grandpa,
      "(",
      input$Age_Group_grandpa,
     ")"
    ) 
  )

Answer 1

Это должно сделать работу за вас. paste0 не имеет sep = " ", как paste, а \n добавляет новую строку. Добавьте theme, если вы хотите, чтобы текст центрировался.

ggtitle(
    paste0(
      "Percentage of Population Living with and Responsible for Grandchildren in \n",
      input$county_grandpa,
      " (",
      input$Age_Group_grandpa,
     ")"
    ) 
  ) +
  theme(plot.title = element_text(hjust = 0.5))