<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<div dir="auto">
<div dir="ltr"><span></span></div>
<div dir="ltr">
<meta content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style>
<!--
@font-face
{font-family:Calibri}
p.x_MsoNormal, li.x_MsoNormal, div.x_MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif"}
a:link, span.x_MsoHyperlink
{color:blue;
text-decoration:underline}
a:visited, span.x_MsoHyperlinkFollowed
{color:purple;
text-decoration:underline}
span.x_EstiloDeEmail17
{font-family:"Calibri","sans-serif";
color:windowtext}
.x_MsoChpDefault
{font-family:"Calibri","sans-serif"}
@page WordSection1
{margin:70.85pt 3.0cm 70.85pt 3.0cm}
div.x_WordSection1
{}
-->
</style>
<div class="x_WordSection1">
<p class="x_MsoNormal">Prezados,</p>
<p class="x_MsoNormal">Estou tentando representar uma matriz de correlação e não consigo inserir o valor do coeficiente R e o valor P, ou a significância no mesmo plot.</p>
<p class="x_MsoNormal">Gostaria que a metade superior (upper) mostrasse o R e a de baixo (lower) a significância.</p>
<p class="x_MsoNormal">Não sei mexer muito com o corrplot.mixed.</p>
<p class="x_MsoNormal">O máximo que consegui fazer foi inserir o coeficiente R e a significância juntos (ficaram sobrepostos).</p>
<p class="x_MsoNormal">Alguma sugestão que como posso fazer?</p>
<p class="x_MsoNormal">Ou mesmo deslocar a significância para não ficar sobreposta no valor do coeficiente ***
</p>
<p class="x_MsoNormal"> </p>
<p class="x_MsoNormal"><b><span style="color:#002060">library(readxl)</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">seed <- read_excel("seed.xlsx")</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">seed</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">cor(seed, method = "pearson")</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">M <- cor(seed, method = "pearson")</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">library(corrplot)</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">library(RColorBrewer)</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">library(Hmisc)</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">m <- rcorr(as.matrix(seed))</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">m</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">P <- cor.mtest(seed, conf.level = .95)</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060">corrplot(M, p.mat = P$p, insig = "label_sig", sig.level = c(.001, .01, .05),</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060"> pch.cex = 2, pch.col = "white", type = "upper", method = "color",
</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060"> order = "original", outline = "white", tl.col="black", tl.srt=45,diag = FALSE,</span></b></p>
<p class="x_MsoNormal"><b><span style="color:#002060"> addCoef.col = "black", col = colorRampPalette(c("blue", "yellow", "red"))(20))</span></b></p>
<p class="x_MsoNormal"> </p>
<p class="x_MsoNormal"> </p>
<p class="x_MsoNormal"><b><span style="">Rodrigo R. Lopes</span></b><span style=""><br>
Engenheiro Agrônomo, Dr.<br>
CREA RS122642<br>
<a href="http://lattes.cnpq.br/7651127569091762"><span style="color:blue">http://lattes.cnpq.br/7651127569091762</span></a></span></p>
<p class="x_MsoNormal"> </p>
</div>
</div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<meta content="text/html; charset=us-ascii">
<div dir="ltr"></div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<div dir="ltr"></div>
</div>
</body>
</html>