Tag: quantmod

从R导出列表到Excel，同时维护列表名称和子列表名称

我试图从很多公司获得财务信息，同时使用R的包“quantmod”。 我在列表中得到了令人满意的结果，但我想将其导出到Excel文件中。 每个列表成员具有不同的电子表格，并且所述表格的名称是列表中的名称。 到目前为止，我有这个代码和输出： library(quantmod) library(dplyr) library(tidyr) symbols <- stockSymbols()[,1:2] allfunc<-function(y) sapply(fin1, function(x) x$IS$A[y, ],USE.NAMES = TRUE)*10^6 s <- c("AAPL","GOOG","IBM","GS","AMZN","GE") want<-c("Total Revenue","Operating Income") fin1 <- lapply(s, getFinancials, auto.assign=FALSE,names=s) names(fin1)<-s all<- lapply(want,allfunc) ss<-sapply(want,allfunc) names(all)<-want all 和输出“全部”是： $`Total Revenue` AAPL GOOG IBM GS AMZN GE 2016-09-24 2.15639e+11 9.0272e+10 7.9919e+10 3.7712e+10 1.35987e+11 1.23693e+11 2015-09-26 2.33715e+11 7.4989e+10 8.1741e+10 3.9395e+10 […]

VBA到R通过命令提示符壳

我正在尝试在R中创build一个将在R中执行的脚本。我已经能够通过VBA的shell命令执行R脚本，但是在向代码中添加参数时却无法这样做。 以下是我的VBA代码来执行R： Dim shell As Object Set shell = VBA.CreateObject("WScript.Shell") Dim waitTillComplete As Boolean waitTillComplete = True Dim style As Integer style = 1 Dim errorCode As Integer Dim path As String Dim var1 Dim var2 Dim var3 var1 = Sheets("Command").Range("ticker").Value var2 = Sheets("Command").Range("type").Value var3 = Sheets("Command").Range("period").Value path = "Rscript C:\Documents\RProjects\FA.R " & var1 & […]