相关分析矩阵图——字体调整和显著性添加？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位，我看到一张图是这样的，想用自己的数据做一个一样的：    

经过努力，做成了这样


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

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：分析矩阵 相关分析 如何

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

经过努力，做成了这样

不太不简洁了，不好

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

经过努力，做成了这样

https://bbs.pinggu.org/thread-4232954-1-1.html

506232839 发表于 2016-2-26 00:13
不太不简洁了，不好

你是想说 原图不简洁么？

草衣落荻 发表于 2016-2-26 09:53
https://bbs.pinggu.org/thread-4232954-1-1.html

非常感谢提供的资料！请问样图是ggpairs做的么？ggpairs直接计算出是否显著，并显示在相关系数的方格里么？

抱歉之前没看清你的问题, 那个帖子里面的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

  ---

  
  

---

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

统计之都, 魏太云的总结
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

CorrPlot.txt (377 Bytes)

2016-2-26 22:04:39 上传

上面的代码

草衣落荻 发表于 2016-2-26 22:04
上面的代码

非常感谢！！明天试试看~

草衣落荻 发表于 2016-2-26 22:04
上面的代码

你好，我试了一下没出来啊，显著性。
library(gpairs)
> data=read.table("smile2.txt",header=T)
> gpairs(data,
+ 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))
帮我看看  怎么修改  谢谢

fdg sdfgsdfgsdfg sfgsdfg