写入数据的函数，需要传递data.frame列名

Question

我想编写一个函数来创建绘图（为了创建多个绘图而不是每次都列出设计设置）。 我使用的盗版图功能需要使用列名和数据帧作为输入 ，这会导致问题。

我的工作代码是：

pirateplot_default <- function(DV,IV,Dataset) {
  plot <- pirateplot(formula = DV ~ IV,
             data = Dataset,
             xlab = "Solution")
  return(plot)
}

• 我试过“as.name”（看到这里 ），但它没有用。
• 使用数据[DV]是没有选择的，因为盗版图功能需要不同的表示法
• 我知道有类似的问题在这里 ， 这里 ， 这里 ，这可能是有资格作为重复更多熟练的程序员，但我没其他问题，我的问题应用的解决方案，因此希望寻求帮助。

Answer 1

这是一个例子

pirateplot_default <- function(DV,IV,Dataset) {
  tmp=as.formula(paste0(DV,"~",paste0(IV,collapse="+")))
  plot <- pirateplot(formula = tmp,
                     data = Dataset,
                     xlab = "Solution")
  return(plot)
}

pirateplot_default("mpg",c("disp","cyl","hp"),mtcars)