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

Adobe Freeman 2017-11-08 16:27:32 阅读: 968

library("ggplot2")
mydata <- read.csv(file.choose())
str(mydata)
mydata$smoke <- as.factor(mydata$smoke)
ggplot(mydata,aes(x = bwt,fill = smoke)) + 
  geom_histogram(binwidth = 400,position = "dodge") +
  ggtitle("R2-2-1-Adobe_Freeman") +
  xlab("birth weight") +
  scale_fill_discrete(h=c(0,200),c=600,l=c(10,100),labels = c("no","yes"))

#R2-2-2
library("ggplot2")
diamonds$color <- as.factor(diamonds$color)
str(diamonds)
ggplot(diamonds,aes(x = carat,color = color)) + 
  geom_density(size = 0.3) + 
  ylab("density")
ggplot(diamonds,aes(x = price,y = ..density..,color = color)) + 
  geom_line(stat = "density",size = 0.3,adjust = 1) + 
  ylab("density") +
  ggtitle("R2-2-2-Adobe_Freeman") +
  theme_bw()

邀请讨论

附件

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

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

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

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01