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

blanking 2017-11-15 02:19:27 阅读: 884

library(ggplot2)

R2_04_1 <- read.csv("/users/taowang/documents/R/R2/R2-2.1/R2-2.1.csv",header = T)

png("/Users/taowang/documents/R/R2/R2-2.1/R2-2.1.png")

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

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

ggtitle("R2-04")+

xlab("birth weight")+

ylab("count")+

scale_fill_discrete(labels = c("NO","YES"), name = "Smoke")

dev.off()

png("/Users/taowang/documents/R/R2/R2-2.1/R2-2.2.png")

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

geom_line(stat = "density",size = 0.3)+

ggtitle("R2-04")+

xlab("carat")+

ylab("density")+

theme_bw()

dev.off()

邀请讨论

{{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}})

删除

回复关闭