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(24.6,1386.4,1339.2,126.8,325.7)
M <- c("Australia","China","India","Japan","US")

Give the chart file a name

png(file = "population by millions.png")

Plot the bar chart

barplot(H,names.arg=M,xlab="Country",ylab="population by millions",col="yellow",
main="population chart",border="blue")