将多个变量传递给 ggtitle R

Question

我已经创建了一些变量，希望将它们传递到 ggtitle中。以下是我创建的变量：

ip_case_index <- paste("IP Only Case Index =",
                       round(mean(mdc5ip$case_index), digits = 2)
)
oa_case_index <- paste("OA Case Index",round(mean(edata$Std_Pmt_All_Clm / 
                                 edata$Pred_Amt_Renormal),
                            digits = 2)
)
sn_case_index <- paste("IP and SNF Only"
                       ,round(mean(mdc5sn$case_index), digits = 2)
)

我想做类似的事情

ggtitle(ip_case_index, oa_case_index, sn_case_index)

当然，这并不能返回所需的标题格式。我希望它显示的标题是这样的

ip_case_index
oa_case_index
sn_case_index

每个变量单独显示在标题的一行上。我尝试使用\n来添加新行，但没有成功，我尝试使用atop将每行叠加显示，但由于将每个变量视为副标题，因此每个后续行会变得更小，从而难以看清。

我还尝试在ggtitle中使用多个paste()参数，如c(paste(), paste(), paste())，但它只返回第一个变量。

我还尝试了以下方法：

plot.title = c(ip_case_index, oa_case_index, sn_case_index)
ggtitle(plot.title)

这也只会给出第一个。

所以我有点困惑该如何继续。

非常感谢任何帮助。 谢谢你。

- MCP_infiltrator

Answer 1

我创建了一些虚假数据来使代码运行，但当然你可以根据自己的真实数据进行调整。

dat=data.frame(x=rnorm(10), y=rnorm(10))

ip_case_index <- paste("IP Only Case Index =",
                       round(mean(rnorm(10)), digits = 2))
oa_case_index <- paste("OA Case Index",round(mean(rnorm(10)),
                                             digits = 2))
sn_case_index <- paste("IP and SNF Only"
                       ,round(mean(rnorm(10)), digits = 2))

ggplot(dat, aes(x,y)) + geom_point() + 
  ggtitle(paste0(ip_case_index,"\n", oa_case_index, "\n", sn_case_index))

- eipi10

---

哦，原来我使用了 \n，只是一些格式问题，谢谢你的帮助！ - MCP_infiltrator

是的。一般的想法是使用paste或paste0创建标题字符串，然后将其作为参数提供给ggtitle。 - eipi10

Answer 2

这对我有效： 库(glue)

labs (title = glue("IP and SNF Only ="
                       , round(mean(rnorm(10)), digits = 2)),
          subtitle = glue("OA Case Index =", round(mean(rnorm(10)),
                                                 digits = 2),
                          "\nIP and SNF Only =", round(mean(rnorm(10)), digits = 2)),
caption = "Some text")

- glensbo

Answer 3

这里有一个更直接的方法，使用paste()来连接测试字符串和变量。 ggtitle(paste("按总死亡人数排名的国家", latestDAy, "占比"), subtitle = paste("持续时间 =", totalDays, "天"))

- Alexander F Stevens