Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/extjs/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将字符向量转换为同名数据帧列表_R - Fatal编程技术网

R 将字符向量转换为同名数据帧列表

R 将字符向量转换为同名数据帧列表,r,R,我有一组数据帧——比如说称为report_001、report_002、report_003等等——我在字符向量中有它们的名称,例如: n <- c('report_001', 'report_002', 'report_003') 但是,由于我有大量的数据帧,我不想手动执行此操作。试图做这样的事情是行不通的: dfList <- sapply(n, function(x) assign(x, as.name(x))) dfListreport_001哇……那么简单,那么简单。我

我有一组数据帧——比如说称为report_001、report_002、report_003等等——我在字符向量中有它们的名称,例如:

n <- c('report_001', 'report_002', 'report_003')
但是,由于我有大量的数据帧,我不想手动执行此操作。试图做这样的事情是行不通的:

dfList <- sapply(n, function(x) assign(x, as.name(x)))

dfList
report_001哇……那么简单,那么简单。我甚至不知道。谢谢虽然这就像一个冠军,但在用我的数据集构建了这个列表之后,我很难调用一个闪亮的应用程序。所有这些看起来都不错,但当我使用空白服务器调用甚至空白的UI时,我得到错误:“report_001”的值未找到。就我的一生而言,我不明白。奇怪的是,当我在列中添加逗号时,同样的错误会移动到列表中的下一个数据帧。有什么想法吗?对于超出第一个问题范围的后续问题,最好完全创建另一个问题。否则很难帮上忙。
dfList[['report_002']]
dfList <- sapply(n, function(x) assign(x, as.name(x)))
report_001 <- mtcars
report_002 <- mtcars
report_003 <- mtcars
report_001 <- mtcars
report_002 <- mtcars
report_003 <- mtcars
n <- c('report_001', 'report_002', 'report_003')
dfList <- mget(n)
head(dfList[['report_001']])
#                    mpg cyl disp  hp drat    wt  qsec vs am
# Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1
# Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1
# Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1
# Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0
# Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0
# Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0