The GDP for G-20 Countries as of 4th, 2018

The following charts show the Gross Domestic Products for G-20 Countries as of 12/2018 (4th Quarter) in USD Billion.

The following chart shows the histogram of percent changes for G-20 Countries from previous quarter.

The following R codes generates the charts above.

myurl<-“https://docs.google.com/spreadsheets/d/e/2PACX-1vS2vMAzZhm8xuF0qN2rclezD4NuDgHTPUYoxW5dlbNJFIjNPG3HwNBv_T1BDEmeflmscDnS6C9adDcL/pub?output=csv&#8221;

GDP_World<-read.csv(url(myurl))

summary(GDP_World)

attach(GDP_World)

Changes=Last-Previous

Percent=(Last-Previous)/Previous

barplot(Last,ylim=c(0,22000), main=’GDP for G-20 Countries (In Billion)’, col=’yellow’,

names.arg=Country, cex.names = 0.3 )

pie(Last, labels=Country, main=’Pie Chart of G-20 Countries’)

barplot(Changes, main=’GDP Changes from Previous Quarter for G-20 Countries (In Billion dollar)’, col=’blue’,

names.arg=Country, cex.names = 0.3 )

summary(Percent)

barplot(Percent, main=’GDP Percent Changes for G-20 Countries’, col=’red’,

names.arg=Country, cex.names = 0.3 )

hist(Percent,

main=”Histogram of Percent Changes”,

xlab=”blue”,

col=”green”,

prob=TRUE

)

lines(density(Percent))