R2-33-第二期-ggplot2画直方图/密度图作业

R48-小之 2017-11-14 23:49:09 阅读: 1058

直方图

library(ggplot2)

mydata<- read.csv("R2-2.1.csv")

ggplot(mydata,aes(x=bwt,fill=factor(mydata$smoke)))+

+ggtitle("R2-33")+xlab("birth weight")+

+ scale_fill_discrete(name="smoke",labels=c("No","Yes"))+

+ geom_histogram(color="black",binwidth = 500,position = "dodge")

直方图.png

密度图

library(ggplot2)

ggplot(diamonds,aes(x=carat,color=color))+

+ggtitle("R2-33")+xlab("price")+

+geom_line(stat = "density")+

+theme_bw()

密度图.png

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭