服务热线
178 0020 3020
第一题:
library("ggplot2")
data<-read.csv('D:/R2-2.1.csv')
head(data)
ggplot(data,aes(x=bwt,fill=factor(smoke)))+
geom_histogram(binwidth=400,color='black',position='dodge')+
ggtitle('R2-31')+
xlab('birth weight')+
scale_fill_discrete(labels=c('No','Yes'))
第二题:
ggplot(diamonds,aes(x=carat,color=color))+
geom_line(stat="density")+
xlab("price")+
ggtitle("R2-31")+
theme_bw()
附件