Does this do what you want?
> df <- data.frame(check.names=FALSE,
lapply(c(Date="date",netIncome="netIncome",`Gross Profit`="grossProfit"),
function(nm)vapply(ISY, "[[", nm, FUN.VALUE=NA_character_)))
> str(df)
'data.frame': 36 obs. of 3 variables:
$ Date : chr "2020-09-30" "2019-09-30" "2018-09-30" "2017-09-30"
...
$ netIncome : chr "57411000000.00" "55256000000.00" "59531000000.00"
"48351000000.00" ...
$ Gross Profit: chr "104956000000.00" "98392000000.00" "101839000000.00"
"88186000000.00" ...
> df$Date <- as.Date(df$Date)
> df$netIncome <- as.numeric(df$netIncome)
> df$`Gross Profit` <- as.numeric(df$`Gross Profit`)
> str(df)
'data.frame': 36 obs. of 3 variables:
$ Date : Date, format: "2020-09-30" "2019-09-30" "2018-09-30"
"2017-09-30" ...
$ netIncome : num 5.74e+10 5.53e+10 5.95e+10 4.84e+10 4.57e+10 ...
$ Gross Profit: num 1.05e+11 9.84e+10 1.02e+11 8.82e+10 8.43e+10 ...
> with(df, plot(Date, netIncome))
On Thu, Jul 1, 2021 at 5:35 PM Sparks, John <jspa...@uic.edu> wrote:
> Hi R-Helpers,
>
> I am taking it upon myself to delve into the world of lists for R. In no
> small part because I appear to have discovered a source of data for an
> exceptionally good price but that delivers much of that data in json format.
>
> So over the last day or so I managed to fight the list processing tools to
> a draw and get a list that has only selected elements (actually it ends up
> in matrix form). But when I try to convert that to a data frame I can't
> get it to a form that is workable.
>
> I have visited some pages about converting a matrix to a data frame but
> they result in highly redundant and inelegant data.
>
> I am thinking that someone who works with lists and matrices knows how to
> do this quite easily and would be willing to provide a solution.
>
> The reproducible example is shown below. Just to be explicit, what I am
> trying to get to is something along the lines of a data frame like this.
>
> Date netIncome Gross Profit
> 2020-09-30 57411000000 104956000000
> 2019-09-30 55256000000 98392000000
>
> .....
>
> The closest I get is a matrix that looks like this
>
> > wanted
> 2020-09-30 2019-09-30 2018-09-30
> 2017-09-30 2016-09-30 2015-09-30 2014-09-30
> date "2020-09-30" "2019-09-30" "2018-09-30"
> "2017-09-30" "2016-09-30" "2015-09-30" "2014-09-30"
> netIncome "57411000000.00" "55256000000.00" "59531000000.00"
> "48351000000.00" "45687000000.00" "53394000000.00" "39510000000.00"
> grossProfit "104956000000.00" "98392000000.00" "101839000000.00"
> "88186000000.00" "84263000000.00" "93626000000.00" "70537000000.00"
>
> Code for example
>
> library(jsonlite)
> test <- jsonlite::fromJSON("
> https://eodhistoricaldata.com/api/fundamentals/AAPL.US?api_token=OeAFFmMliFG5orCUuwAKQ8l4WWFQ67YX
> ")
>
> hist<-test[[13]]
> ISY<-hist$Income_Statement$yearly
> wanted<-sapply(ISY, "[", j = c("date","netIncome","grossProfit"))
>
>
> Your guidance would be much appreciated.
>
> --John J. Sparks, Ph.D.
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
