<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EstiloDeEmail17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="PT-BR" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">Prezados,<o:p></o:p></p>
<p class="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.<o:p></o:p></p>
<p class="MsoNormal">Gostaria que a metade superior (upper) mostrasse o R e a de baixo (lower) a significância.<o:p></o:p></p>
<p class="MsoNormal">Não sei mexer muito com o corrplot.mixed.<o:p></o:p></p>
<p class="MsoNormal">O máximo que consegui fazer foi inserir o coeficiente R e a significância juntos (ficaram sobrepostos).<o:p></o:p></p>
<p class="MsoNormal">Alguma sugestão que como posso fazer?<o:p></o:p></p>
<p class="MsoNormal">Ou mesmo deslocar a significância para não ficar sobreposta no valor do coeficiente ***
<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><b><span style="color:#002060">library(readxl)<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">seed <- read_excel("seed.xlsx")<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">seed<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">cor(seed, method = "pearson")<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">M <- cor(seed, method = "pearson")<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">library(corrplot)<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">library(RColorBrewer)<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">library(Hmisc)<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">m <- rcorr(as.matrix(seed))<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">m<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">P <- cor.mtest(seed, conf.level = .95)<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060">corrplot(M, p.mat = P$p, insig = "label_sig", sig.level = c(.001, .01, .05),<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060"> pch.cex = 2, pch.col = "white", type = "upper", method = "color",
<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060"> order = "original", outline = "white", tl.col="black", tl.srt=45,diag = FALSE,<o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="color:#002060"> addCoef.col = "black", col = colorRampPalette(c("blue", "yellow", "red"))(20))<o:p></o:p></span></b></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><b><span style="mso-fareast-language:PT-BR">Rodrigo R. Lopes</span></b><span style="mso-fareast-language:PT-BR"><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><o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</body>
</html>