read.csv(p,stringsAsFactors=FALSE) #这里读取的就是我们上面的population.csv
names(mydata)[1]million...","fan" ) #重新定义列明,并在原基础上新加了million和fan列
mydata$million<-mydata$Scale/1000000
mydata$fanmillion,
breaks=c(min(mydata$million,na.rm=TRUE),
0,300,600,900,1200,1500,1800,2100,2400...,
max(mydata$million,na.rm=TRUE)),
labels=c(" <=0","0~300","..."albers", parameters = c(0, 0))+
scale_y_continuous(breaks=(-3:3)*30) +
scale_fill_manual(name="million