Population Gross national income Australia 24.6 1,263.50 China 1,386.40 12,042.90 India 1,339.20 2,430.80 Japan 126.8 4,888.10 United States 325.7 18,980.30

Create the data for the chart

H <- c(1263.5,12042.9,2430.8,4888.1,18980.3)
M <- c("Australia","China","India","Japan","US")

Give the chart file a name

png(file = "size of economy.png")

Plot the bar chart

barplot(H,names.arg=M,xlab="Country",ylab="Size of Economy",col="blue",
main="Size of Economy chart",border="red")