quantmod - Ежеквартальные и годовые отчеты - Можно ли извлечь последние 10 исторических периодов?

Есть ли способ извлечь данные за последние 10 исторических периодов? На данный момент я получаю 5 исторических квартальных отчетов и 4 исторических годовых отчета через этот код.

Помогите мне, пожалуйста.

library(quantmod)
getFin('AAPL') # returns AAPL.f to "env"
viewFin(AAPL.f, "IS", "Q") # Quarterly Income Statement
viewFin(AAPL.f, "CF", "A") # Annual Cash Flows

r quantmod
person Murali    schedule 20.10.2016    source источник
comment
Это связано с тем, что Google Finance, источник данных, ограничивает вывод данных за последние 5 лет. См. здесь   -  person Silence Dogood    schedule 20.10.2016
comment
Это имеет смысл. Спасибо. Есть ли какой-либо другой пакет, который я использую для получения большего количества данных?   -  person Murali    schedule 21.10.2016

Ответы (2)


arrow_upward
1
arrow_downward

Кстати, если вам нужны показатели и коэффициенты за 10 лет, вы можете использовать эту методологию.

read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=AAPL",header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet
#str(spreadsheet)
View(spreadsheet)
person Community    schedule 12.11.2016
comment
Похоже, этот запрос дает мне годовые отчеты. Есть ли способ получить квартальные данные? пожалуйста помоги. - person Murali; 14.11.2016
comment
Я посмотрел здесь: gist.github.com/hahnicity/45323026693cdde6a116. данные. У вас есть URL-адрес с нужными вам данными? - person ; 14.11.2016
comment
В этом примере я получил последние 5 кварталов. Хорошо, если я получу больше...financials.morningstar.com/ отчет о прибылях и убытках/ - person Murali; 14.11.2016

arrow_upward
0
arrow_downward

Вы можете использовать это, но я думаю, что ограничение составляет 4 года исторических данных.

require(quantmod)

setwd("C:/Users/your_path_here/Desktop")

stocks <- c("AAVL",
"ACAD",
"ACHN")

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

for (i in 1 : length(stocks)) {   
        temp<-getFinancials(stocks[i],src="google",auto.assign=FALSE)
        write.csv(temp$IS$A,paste(stocks[i],"_Income_Statement(Annual).csv",sep=""))
        write.csv(temp$BS$A,paste(stocks[i],"_Balance_Sheet(Annual).csv",sep=""))
        write.csv(temp$CF$A,paste(stocks[i],"_Cash_Flow(Annual).csv",sep=""))
}
person Community    schedule 08.11.2016
comment
Похоже, вам нужно заплатить за премиум-членство за 10 кварталов данных. - person ; 14.11.2016
comment
Есть ли способ получать ежеквартальные отчеты от пользователя 7075507? Все, что я получаю годовые данные, и мне также нравится получать квартальные данные. - person Murali; 01.11.2017