- library(ggplot2)
- ggplotgram<-function(x,y){
- p<-ggplot(data[,2:11],aes(x))
- p+geom_histogram(position=position_dodge(width = 0.9),bins=5,alpha=0.5,aes(y=..density..,fill=factor(data[,1])))+stat_density(position='dodge',geom="line",aes(color=factor(data[,1])))+labs(title=y)
- }
- ggplotgram(data_numeric[,1],"Hist of Q1")
比如朝阳区是一个类似正态的曲线,东城区又是不同分布的类似正态的曲线,这样可以更容易地看出他们彼此的分布差异,而不是现在这样每一条密度曲都呈波浪形状。