我有一个包含几个变量的数据框,我希望标记这些变量然后在几个 ggplots 中使用。我使用labeller
带有以下代码的包应用了标签。
library(tidyverse)
library(labeller)
library(ggpubr)
example.df <- data.frame(
origin = sample(c("hum_1", "mou_1"), 100, replace = TRUE),
v1 = rnorm(100, 100, 5),
v2 = rnorm(100, 10,5),
v3 = rnorm (100, 25, 5))
example.df <- example.df %>% set_variable_labels(origin = "original sample", v1 = "effect of Rx", v2 = "response", v3 = "weight (kg)")
这使标签显示在数据框中。但是,当我使用ggqqplot
fromggpubr
绘制这些变量时,我看不到结果图中的标签。
vars <- dput(colnames(select_if(example.df, is.numeric)))
lapply(vars, function(item) {
ggqqplot(example.df, x=item, combine = FALSE, facet.by = "origin")+
ggtitle(item)
}
)
我想显示原始样本、rx和重量(kg)的影响,而不是 v1、v2 和 v3。任何帮助深表感谢。谢谢。