从列表中获取 data.frame 并从字符串中调用对象

Question

我想复制 Tsay 的金融时间序列书中的表格，并意识到即使我能够做到这一点，我的代码似乎很笨拙并且充满了不良做法。 我尝试了一些 plyr 但并没有真正为我工作。

所以这是我的代码：

library(fBasics)

url= 'http://faculty.chicagobooth.edu/ruey.tsay/teaching/fts3/d-ibm3dx7008.txt'

table1.2 = read.table(url,header=T)
l1=lapply(table1.2,basicStats)
naml1 = names(l1)
datmat = as.data.frame(matrix(0,nrow=nrow(l1$Date),ncol=4))

nams = names(l1)
j=1

for( i in nams){
 datmat[,j] = eval(parse(text=paste("l1",i,sep="$")))
 j=j+1
  }

rownames(datmat)= rownames(l1[[1]])
colnames(datmat)=colnames(table1.2)

我不关心日期的汇总统计信息，所以只需删除它即可。

datmat =datmat[,-1]

所以我听说应该尽可能避免 eval(parse(text= )。我尝试使用函数 get 但没有工作。

我只是想开始摆脱不良的编程习惯，所以任何建议都非常受欢迎。

Answer 1

为什么要经历这一切。看来您正在执行 basicStats 函数已经执行的操作。这看起来太简单了，但我认为以下给出了相同的输出：

basicStats(table1.2)[,-1]

Answer 2

欢迎来到SO，我试图弄清楚你想要做什么，但除了阅读你的数据集之外，我无法得到你想要做的事情。尽管如此，我还是尝试提出一些建议。如果您编辑您的帖子并变得更精确，也许我可以提供更多帮助。

1. 分配变量时使用 <- 而不是 =。这是 R 的方法。
2. 如果你还没有使用 RStudio ，去获取它，它会对你有很大帮助，因为它有很好的自动完成功能，以及良好的帮助集成。 （你可以在rstudio中使用alt+ - 来获取<-，以帮助你习惯它）
3. R是一种矢量化语言，通常你不需要循环，例如： paste(l1,nams,sep="$ ") 无需循环即可工作。
4. 您已经在使用 lapply，这很好。通常，编写一个函数然后将这个函数与 lapply 结合起来并将其用于我们的数据通常效果很好。

5. 确实值得阅读一些更好的介绍，或者扫描更高级的资源 - 即使它们没有涵盖您的特定问题。花点时间去做这件事是非常值得的。

   这里有关于交叉验证（stackexchange 的统计网站）

   的相关讨论

Answer 3

您可以在获得 l1 后添加此内容。

datmat  <- setNames(as.data.frame(l1), names(l1))

更简单的方法是使用 psych 包中的 describe 函数

psych::describe(table1.2)

Answer 4

您可以非常轻松地将等长向量的列表放入 data.frame 中，然后只需更改名称

> df.stats <- as.data.frame(lapply(table1.2,basicStats)[-1])
Warning message:
In sum(X) : Integer overflow - use sum(as.numeric(.))
> names(df.stats) <- names(table1.2)[-1]
> str(df.stats)
'data.frame':   16 obs. of  4 variables:
 $ rtn   : num  9.84e+03 0.00 -2.30e-01 1.32e-01 -8.57e-03 ...
 $ vwretd: num  9.84e+03 0.00 -1.71e-01 1.15e-01 -4.25e-03 ...
 $ ewretd: num  9.84e+03 0.00 -1.04e-01 1.07e-01 -2.57e-03 ...
 $ sprtr: num  9.84e+03 0.00 -2.05e-01 1.16e-01 -4.87e-03 ...

就可以了，就像您构造的一样。