R2-26-第二期-ggplot2画直方

郑磊 2017-11-15 00:04:32 阅读: 967

R2_1 <- read.table(file ="data/R2-2.1.csv", sep = ",", header = TRUE)

library(ggplot2)

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

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

ggtitle("R2-26")+xlab("birthweight")+

scale_fill_discrete(h=c(0,200),c=400,name="Smoke",labels=c("No","Yes"))+

theme(panel.grid.major = element_blank(),

panel.grid.minor = element_blank(),

panel.border = element_blank(),

panel.background = element_rect(fill="white"),

axis.line = element_line(colour="black"))

data(diamonds)

library(ggplot2)

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

geom_line(stat="density")+

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

theme(panel.grid.major = element_blank(),

panel.grid.minor = element_blank(),

panel.border = element_blank(),

panel.background = element_rect(fill="white"),

axis.line = element_line(colour="black"))

邀请讨论

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

删除

回复关闭