将多个变量传递给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，它使每一个连续的行更小，因此很难看到，因为它把每个变量当作一个副标题，所以标题副标题副标题。

我还尝试通过使用返回第一个变量的c(paste(), paste(), paste())在ggtitle中使用多个paste()参数。

我还尝试了以下几种方法：

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

这也只给出了第一个。

因此，我对如何从这里开始感到有点困惑。

任何帮助都是非常感谢的。谢谢,

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

​

​

Answer 2

这里有一种更直接的方法，使用paste()来连接测试字符串和变量。latestDAy(粘贴(“按总死亡人数百分比排名的国家"，latestDAy)，subtitle =粘贴(”Duration= "，totalDays，“Days"))