ExcelシートにExcelシートをインポートするR

Question

ExcelシートにExcelシートを挿入しようとしていますが、これをインポートしようとしています。

Assets    2011, 2010, 2009 
Non current assets 32.322 3.111 
intangible assets  12,222 

これらの行に沿ったものです。私はまた別のバランスシートである第2のタブもインポートしようとしています。アイデアは、おそらく私は50以上のバランスシートを持っているということです。これは分析に非効率的でしょうか？

私は、貸借対照表（現在の資産、すべての年の非流動資産など）から同じ変数のうちのいくつかに興味があり、Excelから特定の行と列をインポートすることは可能ですスプレーシート？

たとえば、インポートするだけです。

A) Non current assets 32.322  3.111  322 
B) Current assets 345  543  2.233 

など？ - 行の名前が変更されないので、これを行う関数を使用できますか？

Answer 1

quantmodを見てください！

library(quantmod) 
library(xlsx) 
getFin("GS") 
gs_BS <- GS.f$BS$A 
str(gs_BS) 

#num [1:42, 1:4] 106533 NA 113003 71883 NA ... 
#- attr(*, "dimnames")=List of 2 
# ..$ : chr [1:42] "Cash & Equivalents" "Short Term Investments" "Cash and Short Term Investments" "Accounts Receivable - Trade, Net" ... 
# ..$ : chr [1:4] "2015-12-31" "2014-12-31" "2013-12-31" "2012-12-31" 
#- attr(*, "col_desc")= chr [1:4] "As of 2015-12-31" "As of 2014-12-31" "As of 2013-12-31" "As of 2012-12-31" 

transposed <- t(gs_BS) 
write.xlsx(transposed, "C:\\Users\\your_path_here\\Desktop\\bal_sheet.xlsx", row.names=FALSE) 
transp <- read.xlsx("C:\\Users\\your_path_here\\Desktop\\bal_sheet.xlsx" , sheetName="Sheet1") 
transp$year <- c("2015","2014","2013","2012")") 

これも良いです。

require(quantmod) 

equityList <- read.csv("EquityList.csv", header = FALSE, stringsAsFactors = FALSE) 
names(equityList) <- c ("Ticker") 

for (i in 1 : length(equityList$Ticker)) { 
     temp<-getFinancials(equityList$Ticker[i],src="google",auto.assign=FALSE) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Income_Statement(Annual).csv",sep="")) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Balance_Sheet(Annual).csv",sep="")) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Cash_Flow(Annual).csv",sep="")) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Income_Statement(Quarterly).csv",sep="")) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Balance_Sheet(Quaterly).csv",sep="")) 
     write.csv(temp$IS$A,paste(equityList$Ticker[i],"_Cash_Flow(Quaterly).csv",sep="")) 
} 

また、これを確認してください。

https://msperlin.github.io/pafdR/importingInternet.html

非常によく似たことを行うために他の方法があります。あなたがこれについてもっと助けを必要とするならば、バックに投稿してください。