将多个变量传递给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,这使得每个连续的行变小,因此难以看到,因为它将每个变量视为副标题,因此标题字幕副标题.

我已经使用多个也尝试过paste()的内部参数ggtitle,通过使用c(paste(), paste(), 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))