全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
20917 20
2016-02-25
各位,我看到一张图是这样的,想用自己的数据做一个一样的: QQ图片20160225203519.png    

经过努力,做成了这样
sf.png

我想知道右上的字体怎么调整成一样大小,相关显著 ** 和红色如何计算并显示出来?



附件列表
asd.png

原图尺寸 506.46 KB

asd.png

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2016-2-26 00:13:39
旮旯蜗牛 发表于 2016-2-25 20:42
各位,我看到一张图是这样的,想用自己的数据做一个一样的:   

经过努力,做成了这样
不太不简洁了,不好
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-2-26 09:53:30
旮旯蜗牛 发表于 2016-2-25 20:42
各位,我看到一张图是这样的,想用自己的数据做一个一样的:   

经过努力,做成了这样
https://bbs.pinggu.org/thread-4232954-1-1.html
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-2-26 10:53:58
506232839 发表于 2016-2-26 00:13
不太不简洁了,不好
你是想说 原图不简洁么?
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-2-26 14:45:29
草衣落荻 发表于 2016-2-26 09:53
https://bbs.pinggu.org/thread-4232954-1-1.html
非常感谢提供的资料!请问样图是ggpairs做的么?ggpairs直接计算出是否显著,并显示在相关系数的方格里么?
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-2-26 17:49:41
抱歉之前没看清你的问题, 那个帖子里面的4个函数好像是不能添加显著性的.

您可以使用程序包gpairs的函数gpairs()


  • #下载/加载程序包, 加载数据
  • install.packages("gpairs")
  • library(gpairs)
  • data(Leaves)
  • #绘图
  • gpairs(Leaves[,1:4],
  • upper.pars = list(scatter = "stats"),
  • stat.pars = list(fontsize = 9, signif = 0.05, verbose = F, use.color = T),
  • lower.pars = list(scatter = "loess"),
  • diagonal = "default",
  • diag.pars = list(fontsize = 9, show.hist = TRUE, hist.color = 'black'),
  • axis.pars = list(n.ticks = 5, fontsize = 9))




解释一下第7-12行的代码
  • 令上三角为统计量(相关系数)
  • 设置统计量的显示属性:字体大小9,显著性水平0.05;verbose取值为F时只显示Pearson相关系数,取值为T时显示4个统计量:从上到下依次是Pearson相关系数、Kendall相关系数、Spearman相关系数、Pearson相关系数的显著性检验的P值;use.color取值为T时上三角格子的背景色与Pearson相关系数有关,正数为蓝色,负数为红色,绝对值越大颜色越深,取值为F时,上三角格子的背景色为黑(负值)白(正值)
  • 令下三角为光滑回归
  • 对角线上显示变量名
  • 设置对角线的属性:变量名的字体大小为9,显示直方图,直方图的颜色为黑(你设置成绿色可以hist.color = 'green')
  • 设置轴的属性:轴刻度的数量为5,轴刻度标签的字体大小为9


1.jpg

1.jpg




一些其他绘制相关图的帖子

统计之都, 魏太云的总结
http://cos.name/2009/03/scatterplot-matrix-visualization/
豆瓣小站, 数据铺子的总结:
http://site.**.com/182577/widget/notes/12866356/note/267793990/
http://site.**.com/182577/widget/notes/12866356/note/267797088/
http://site.**.com/182577/widget/notes/12866356/note/267797750/
我自己的总结:
https://bbs.pinggu.org/thread-4232954-1-1.html
https://bbs.pinggu.org/thread-4201631-1-1.html










二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群