为 ggplots 列表存储轴名称的最佳方法是什么？

Question

我创建了一个大型数据框（>100 列）

s <- data.frame(x1, x2,....,x100)
var_list <- names(s)

然后我手动为相应的 y 轴创建另一个包含 100 个名称的列表：

y_names <- c("Time", "hr", "W m-2"..... 100 items)

最后，我循环遍历列表以创建一个包含 100 个图的 PDF：

plot_list = list()
for (i in 2:length(var_list)) {
  p = ggplot(s, aes_string(x = x1, y = var_list[i])) +
    geom_line()+
    ylab(y_names[i])+
    ggtitle(paste(var_list[i]))
  plot_list[[i]] = p
}

 # create pdf where each page is a separate plot. ,
pdf("figures.pdf",  width=7, height=1.5)
for (i in 2:length(var_list)) {
  print(plot_list[[i]])
}
dev.off()

显然，这是一个问题，因为除了查看最终图之外，我永远无法确定我是否将正确的 y 轴赋予正确的图。如果我必须更改订单，那就完全不同了。

如何更好地设置名称？也许在我可以确定顺序的数据框本身中？

Answer 1

您可以将查找表与match 函数一起使用。这可确保所需的 y 轴标签始终用于给定的数据列。这是一个例子：

让我们创建一个查找表，其中包含我们想要用于所有可能的列名的 y 标签。在lookup 中，var_names 是数据框s 的可能列名。 y_lab 是我们要在图中使用的相应 y 轴标签。

lookup = data.frame(var_names=c("wm","hr","time","grp", 'cm'), 
                    y_lab=c("W m-2", "Hour", "Time", "Group","Centimeters"))

  var_names       y_lab
1        wm       W m-2
2        hr        Hour
3      time        Time
4       grp       Group
5        cm Centimeters

现在，当您绘制数据时，使用match 为图中给定的 y 列识别正确的 lookup$y_lab。在下面的示例中，我已将您的代码示例更改为直接使用数据框列名称作为循环变量。请注意使用match 函数来获取yvar 的当前值的正确y_lab。

for (yvar in names(s)[-1]) {
  p = ggplot(s, aes_string(x = "x1", y = yvar)) +
    geom_line() +
    ylab(lookup$y_lab[match(yvar, lookup$var_names)]) +
    ggtitle(yvar)
  plot_list[[yvar]] = p
}

另一种选择是创建所有 y 值的单面图。会是这样的：

library(tidyr)

names(s)[-1] = lookup$y_lab[match(names(s)[-1], lookup$var_names)]

ggplot(gather(s, key, value, -x1), aes(x = x1, y = value)) +
  geom_line() +
  facet_wrap(~ key)