ggtitle 中的粘贴功能：删除多余的空格并在 ggplot 标题中添加新行

Question

在闪亮的上下文中，如何删除情节标题中括号前后的额外 space？如下图所示，“(”和“6”以及“+”和“)”之间有多余的space。

另外，我想知道如何分解标题，使县名和年龄组出现在下一行。

这是我的代码：

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))

ggtitle 中的粘贴功能：删除多余的空格并在 ggplot 标题中添加新行

paste function in ggtitle: remove extra spaces and add a new line in ggplot title

r

ggplot2

shiny

ggtitle