4

我正在针对多个 x 变量绘制一个 y 变量的图。我有一个使用 lapply 的工作解决方案。但是,我无法将 x 变量的名称写为每个图的 x 标签。这是我所拥有的简化示例:

目标是针对每个 x 变量绘制 y 变量,生成三个图,并将每个 x 变量的名称添加为 x 轴标签。

生成一个包含一个 y 变量和三个 x 变量的数据框:

df <- data.frame(y.variable=c(11:20), x1=c(21:30),x2=c(1:10),x3=c(31:40))

一个应该将变量名称作为字符串检索的函数:

get_name <- function(v1) {deparse(substitute(v1))}

生成 y 对 x 变量的绘图的函数:

generate_plot <- function(x.variable) {ggplot(data = df, aes(x.variable, y.variable )) +geom_point()  + xlab(get_name(variable.name))}

调用 lapply 以在 df 的每一列上执行 generate_plot:

lapply(df, generate_plot)

这会产生三个图,每个图都有“variable.x”作为其 x 标签,而不是所需的变量名称 x1、x2 和 x3。

4

1 回答 1

2

generate_plot稍微修改一下您并使用支持的ggplot2( > v3.0.0)版本tidy evaluation

解释:

  • 在函数内部,我们使用rlang::sym将字符串转换为符号,然后unquote在内部aes使用!!(bang bang)

  • 要调用该函数,请使用purrr::map遍历df列名

看更多:

library(tidyverse)

df <- data.frame(y.variable=c(11:20), 
                 x1=c(21:30), x2=c(1:10), x3=c(31:40))

generate_plot2 <- function(df, x.variable) {
  x.variable <- rlang::sym(x.variable)

  ggplot(data = df, aes(!! x.variable, y.variable )) +
    geom_point() + 
    xlab(x.variable)
}

names(df)[-1] %>% 
  map(~ generate_plot2(df, .x))

在此处输入图像描述

reprex 包(v0.2.0)于 2018 年 4 月 20 日创建。

于 2018-04-20T14:27:54.217 回答