Question

我正在为从字符串中获取的变量名称分配数据框。因此，当我运行代码时，我不知道变量名称是什么。我想将该数据框传递给另一个函数来绘制它。如何在不知道其名称的情况下将其传递给函数？

file_name <- file.choose()
fname  <- unlist (strsplit (file_name, "\\", fixed = TRUE))
fname  <- fname[length(fname)]
waf_no <- unlist (strsplit (fname, "\\s"))
waf_no <- waf_no[grep(waf_no, pattern="WAF")]
data <- read_WAF_file (file_name)
assign(waf_no, flux_calc(data)) #flux calc() calculates and manipulates the data frame
plot_waf(?)

我的plot_waf功能非常简单

plot_waf <- function (dataframe) {
library("ggplot2")
qplot(dist,n2o,data=dataframe,shape=treat)
}

Answer 1

assign的倒数是get：

按名称搜索对象（get）或零个或多个对象（mget）。

因此，你需要像这样运行你的绘图函数：

plot_waf(get(waf_no))

如何将未知参数传递给函数

1 个答案: