pop <- read.csv("F:/opendata106N0101.csv", header=TRUE)
pop <- read.csv("F:/opendata106N0101.csv", header=TRUE, encoding = "UTF-8")