2

我正在尝试编写一个创建绘图并遇到我不理解的错误的函数。这是一个简化的例子。

可重现的例子：

library (ggplot2)
# Sample data
xdata = 0:20
ydata = 20:40
dat <- data.frame(xdata, ydata)

# This works
line_p <- ggplot(dat, aes(x = xdata, y = ydata, group = NULL, color = NULL)) + geom_line()
line_p

我希望以下内容可以工作，但会出现美学错误，但在这种情况下，x 和 y 变量的长度相同。问题似乎是组和颜色的默认值为 NULL。我尝试将 NULL 以及 aes_group 和 aes_color 作为函数变量显式传递，但这也不起作用。

# Using a function doesn't work:

# create function
line_function <- function(mydata     = dat,
                          xinput     = x,
                          yinput     = y,
                          aes_group  = NULL,
                          aes_color  = NULL,
                          ...) {

  lineplot <- ggplot(dat, aes(x = xinput, y = yinput, group = aes_group, color = aes_color)) + geom_line()
}


# test the function
line_test_p <- line_function(
  mydata = dat,
  xinput = xdata,
  yinput = ydata
)

line_test_p

使用显式输入进行测试

# test the function again with explicit NULL inputs

line_test2_p <- line_function(
  mydata    = dat,
  xinput    = xdata,
  yinput    = ydata,
  aes_group = NULL,
  aes_color = NULL
)

line_test2_p

是否不可能编写一个通用函数，其中 ggplot 将解释 NULL 值，就像在没有函数的情况下工作的示例中一样，还是我错过了其他东西？

谢谢！

4

1 回答 1

2

简而言之，您应该检查aes_string以编程方式创建美学映射。它允许您使用存储字符串的变量名称创建美学映射。这样，很容易将列名作为参数传递给函数并创建相应的绘图。

以下版本的函数适用于我：

# create function
line_function <- function(mydata     = dat,
                          xinput     = "x", # note the defaults are
                          yinput     = "y", # strings here
                          aes_group  = NULL,
                          aes_color  = NULL,
                          ...) {

  ggplot(mydata, # this should be the argument, not the global variable dat
         # now we create the aes binding with aes_string
         aes_string(x = xinput,
                    y = yinput,
                    group = aes_group,
                    color = aes_color)) +
    geom_line()
}

现在您可以使用该函数来创建您的示例：

# test the function
line_test_p <- line_function(
  mydata = dat,
  xinput = "xdata", # note the strings
  yinput = "ydata"
)

# test the function again with explicit NULL inputs
line_test2_p <- line_function(mydata    = dat,
                              xinput    = "xdata", # and strings here
                              yinput    = "ydata",
                              aes_group = NULL,
                              aes_color = NULL)

事情应该会为你解决。同样，请务必查看文档，因为您可以通过不同的方式来完成此操作，并且您可能会因不同的目的或偏好而选择不同的方式。

于 2017-10-08T17:07:55.793 回答