r - 如何在 R 中将文本字符串作为数字导入？

Question

我使用 concatenate 在 Excel 中创建了一个电子表格，以便以后使用。现在我想评估文本字符串。在 Excel 中执行听起来比在 R 中执行更难。因此，我想知道如何在 R 中导入和评估。我得到的不是我想要的，而是如下所示的文本字符串。

     Air.Force.Falcons           Akron.Zips Alabama.Crimson.Tide
1       -.8*2-(1-.8)*1 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2
2 -.5*0+(0)*(2*.8-1)/2       -.8*2-(1-.8)*1 -.5*0+(0)*(2*.8-1)/2
3 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2       -.8*0-(1-.8)*2
4 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2
5 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2
6 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2
7 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2 -.5*0+(0)*(2*.8-1)/2

如何将它们导入为数字或事后将它们评估为数字？我试过 as.numeric 和 colClasses="numeric"。要重新创建它，只需使用 =concatenate("-5*3") 等公式制作一个电子表格。我该如何扭转这一局面？谢谢。

链接到 dput(head(week15_90)) 的输出 https://docs.google.com/document/d/1xCVjSff6f055PX8qEnVLh49V6TYXFQeZZzc3bofG5z4/edit?usp=sharing

Answer 1

更快地首先取消列出您的数据(将其作为向量)，然后应用经典的 eval(parse(text=))

matrix(lapply(unlist(dat),
       function(y)eval(parse(text=y))),ncol=ncol(dat))

例子:

dat <- data.frame( x=rep("-x+1",2) ,y =rep("x^2",2),stringsAsFactors=F)
> dat
     x   y
1 -x+1 x^2
2 -x+1 x^2

x <- 0.2
matrix(lapply(unlist(dat),function(y)
                         eval(parse(text=y))),ncol=ncol(dat))
     [,1] [,2]
[1,]  0.8 0.04
[2,]  0.8 0.04