R Dem Iowa Caucus Graph

demiowa.r

library(rjson)
library(httr)

turl="https://iowadems-caucussitecdn-prod2.azureedge.net/api/statecandidateresults"
a=GET(turl)
arr=c(content(a)$StateResults[[1]]$WinPercentage,content(a)$StateResults[[2]]$WinPercentage,content(a)$StateResults[[3]]$WinPercentage)
nam=c(content(a)$StateResults[[1]]$Candidate$DisplayName,content(a)$StateResults[[2]]$Candidate$DisplayName,content(a)$StateResults[[3]]$Candidate$DisplayName)
colr=c(content(a)$StateResults[[1]]$Candidate$Color,content(a)$StateResults[[2]]$Candidate$Color,content(a)$StateResults[[3]]$Candidate$Color)
rar=round(arr,3)*100
barplot(arr,names.arg=nam,col=colr)
text(1:3,0.3,rar,cex=2,pos=2)