R2-20- 第二期-ggplot2画直方图、密度图

科研狗聪 2017-11-09 12:06:54 阅读: 931

代码一：

data<-read.csv("R2-2.1.csv",header=TRUE)

library("ggplot2")

data$smoke <- as.factor(data$smoke)

ggplot(data,aes(x=bwt,fill=smoke))+

geom_histogram(position="dodge",binwidth = 400,colour = "black")+

scale_fill_discrete(labels = c("no","yes"))+

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

Figure2_1(直方图).png

代码二：

library("ggplot2")

ggplot(diamonds,aes(x = carat,y = ..density..,color = color)) +

geom_line(stat = "density") +

theme_bw()+

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

Figure2_2密度图.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}})

删除

回复关闭