棒グラフと散布図

library(readxl)
asia <- read_excel("asia.xlsx")
barplot(asia$ctfp,names.arg = asia$countrycode)

barplot(asia$pop,names.arg=asia$countrycode)

plot(asia$pop,asia$rgdpe,log="xy",pch=4)

plot(asia$pop,asia$rgdpe,log="xy",pch=17)

plot(asia$pop,asia$rgdpe,log="xy",xlab="Population",ylab="GDP")