令人智熄的GGplot2画图显示不出中文的毛病

#因变量直方图
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可以换成别的字体，自己从字体库扒拉去。