搜索
查看: 398|回复: 8

[R] 0907 R数据科学啃书 --p21 第3.5题等看下别人的回答

[复制链接]

19

主题

34

帖子

152

积分

注册会员

Rank: 2

积分
152
发表于 2018-9-7 18:56:54 | 显示全部楼层 |阅读模式
  • 幕布导出来的图太大。。。

  • 1.6 几何对象
  • geom_point, geom_smooth
  • ggplot2提供30多种集合对象,ggplot2的速查表(http:// rstudio.com/cheatsheets
  • 同一张图中显示多个集合对象←←添加多个几何对象函数
  • 这两组代码得到相同的结果
    • ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) + geom_point() + geom_smooth()
    • ggplot(mpg) + geom_point( mapping = aes(x = displ, y = hwy)) + geom_smooth(mapping = aes(x = displ, y = hwy))
  • p16练习题
    • 1. 在http:// rstudio.com/cheatsheets找的 :折线:geom_line()
 ;箱线:geom_boxplot() ;直方:一个变量:geom_histogram(),两个 变量: geom_col() 分区:coord_polar  × 分区应为 geom_area()
    • 2. 预测:不同颜色的散点图,曲线没有周围灰色阴影(se是Display confidence interval around smooth)运行后是,预测的一样
    • 3.不显示图例,删掉就显示图例
    • 4.se的 Display confidence interval around smooth,标准差的
    • 5. 二者无差
    • 6. 照虎画猫,代码都写出来了~哈哈~这几个代码分别应该是:(书中图片比较小,各个点都粘在一起了,我以为是点的size比较大,后面都改成size = 4)
      • ggplot(mpg, mapping = aes(x = displ, y = hwy)) + geom_point (size = 4) + geom_smooth(se = FALSE)
      • ggplot(mpg ) + geom_point(mapping = aes(x = displ, y = hwy, size = 4), show.legend = FALSE) + geom_smooth(mapping = aes( x = displ, y = hwy, group = drv),se = FALSE) (最开始把se 放在函数里了,怎么试都不对。。) 书中答案:ggplot(mpg, aes(x = displ, y = hwy)) + geom_smooth(mapping = aes(group = drv), se = FALSE) +
      • ggplot(mpg ) + geom_point(mapping = aes(x = displ, y = hwy, color = drv)) + geom_smooth(mapping = aes( x = displ, y = hwy, color = drv),se = FALSE)
      • ggplot(mpg ) + geom_point(mapping = aes(x = displ, y = hwy, color = drv)) + geom_smooth(mapping = aes( x = displ, y = hwy),se = FALSE)
      • ggplot(mpg ) + geom_point(mapping = aes(x = displ, y = hwy, color = drv)) + geom_smooth(mapping = aes( x = displ, y = hwy, linetype = drv),se = FALSE)
      • ggplot(mpg ) + geom_point(mapping = aes(x = displ, y = hwy, color = drv, size = 4))  答案:ggplot(mpg, aes(x = displ, y = hwy)) + geom_point(size = 4, color = "white") + geom_point(aes(colour = drv)) ←书中印刷没看见周围的白圈。。

  • 1.7 统计变换
  • 绘图时,用来计算新数据的算法成为stat() 统计变换。
  • 几何对象函数和统计变换函数可以互换使用。
  • p21练习
    • 1. 默认的几何对象是geom_pointrange ; ggplot(diamonds) + geom_pointrange(mapping= aes(x = cut, y = depth)) × 答案: ggplot(data = diamonds) +   geom_pointrange(      mapping = aes(x = cut, y = depth),         stat = "summary",         fun.ymin = min,        fun.ymax = max,       fun.y = median     ) stat_summary()为x的每个唯一值计算y值的摘要统计
    • 2. geom_col()也是画柱状图,这个是多个变量,geom_bar()是单一变量。 答案:geom_col() 默认几何对象是identity() stat. geo_col() 默认数据已经预先处理,为x轴和y轴的的长短。 geom_bar() 默认几何对象是数量(count),默认每个变量x有多个观测值。
    • 3.??
    • 4. 统计: y: predicted value; ymin: lower value of the confidence interval;ymax: upper value of the confidence interval;se: standard error
    • 5. If group is not set to 1, then all the bars have prop == 1. The function geom_bar() assumes that the groups are equal to the x values, since the stat computes the counts within the group. ???





上一篇:超快学会使用mrBayes 构建进化树
下一篇:R数据科学啃书
回复

使用道具 举报

3

主题

5

帖子

48

积分

新手上路

Rank: 1

积分
48
发表于 2018-9-10 14:37:36 | 显示全部楼层
1.7第5题 我的答案
ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, y = ..prop..))#all prop will be 100%=5 bars with same height
ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, fill = color, y = ..prop..))# 5 same bars.Each bar is consist of different color bars and every color occupy the same part.
上R画下图就看得出来了吧
回复 支持 1 反对 0

使用道具 举报

14

主题

26

帖子

135

积分

注册会员

Rank: 2

积分
135
发表于 2018-9-7 21:53:03 | 显示全部楼层
本帖最后由 李其龙 于 2018-9-7 21:55 编辑

自己整理的 仅供参考

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 反对

使用道具 举报

365

主题

512

帖子

1713

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1713
发表于 2018-9-9 22:06:22 | 显示全部楼层
幕布可以放一个链接,http://www.biotrainee.com/thread-16-1-1.html 代码块看这个。
回复 支持 反对

使用道具 举报

19

主题

34

帖子

152

积分

注册会员

Rank: 2

积分
152
 楼主| 发表于 2018-9-10 18:36:41 | 显示全部楼层
李其龙 发表于 2018-9-7 21:53
自己整理的 仅供参考

感谢哦~
回复 支持 反对

使用道具 举报

19

主题

34

帖子

152

积分

注册会员

Rank: 2

积分
152
 楼主| 发表于 2018-9-10 18:38:05 | 显示全部楼层
ydchen 发表于 2018-9-9 22:06
幕布可以放一个链接,http://www.biotrainee.com/thread-16-1-1.html 代码块看这个。

好的,谢谢呀~~
回复 支持 反对

使用道具 举报

19

主题

34

帖子

152

积分

注册会员

Rank: 2

积分
152
 楼主| 发表于 2018-9-10 18:43:00 | 显示全部楼层
TheCatcher 发表于 2018-9-10 14:37
1.7第5题 我的答案
ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, y = ..prop..))#all pr ...

棒棒的~
回复 支持 反对

使用道具 举报

19

主题

34

帖子

152

积分

注册会员

Rank: 2

积分
152
 楼主| 发表于 2018-9-10 18:46:07 | 显示全部楼层
李其龙 发表于 2018-9-7 21:53
自己整理的 仅供参考

http:// rstudio.com/cheatsheets 这里也有,我下载了PDF 不过这里上传不了,你可以看下~再次感谢哦
回复 支持 反对

使用道具 举报

14

主题

26

帖子

135

积分

注册会员

Rank: 2

积分
135
发表于 2018-9-10 20:17:12 | 显示全部楼层
杰根妹妹 发表于 2018-9-10 18:46
http:// rstudio.com/cheatsheets 这里也有,我下载了PDF 不过这里上传不了,你可以看下~再次感谢哦 ...

不用客气 PDF可以压缩包的形式上传
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树    

GMT+8, 2018-11-16 22:49 , Processed in 0.037768 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.