#因变量直方图
par(mfrow=c(1,1)) #画1*1的图
ggplot(dat0, aes(danjia)) + geom_histogram(fill ="lightblue" ) + xlab("单位面积房价(万元/平方米)") + ylab("频数") + ggtitle("")+ theme_grey(base_family = "STKaiti" )
+ theme_grey(base_family = “STKaiti”)
把这一句放到后面,疗效好,见效快,谁用谁知道。
STKaiti可以换成别的字体,自己从字体库扒拉去。