<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=utf-8">
<div dir="auto">
<div dir="ltr">
<div class="x_x_WordSection1">
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">Prezados,</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">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.</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">Gostaria que a metade superior (upper) mostrasse o R e a de baixo (lower) a significância.</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">Não sei mexer muito com o corrplot.mixed.</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">O máximo que consegui fazer foi inserir o coeficiente R e a significância juntos (ficaram sobrepostos).</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">Alguma sugestão que como posso fazer?</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)">Ou mesmo deslocar a significância para não ficar sobreposta no valor do coeficiente ***</span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)"> </span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">library(readxl)</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">seed <- read_excel("seed.xlsx")</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">seed</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">cor(seed, method = "pearson")</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">M <- cor(seed, method = "pearson")</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">library(corrplot)</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">library(RColorBrewer)</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">library(Hmisc)</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">m <- rcorr(as.matrix(seed))</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">m</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">P <- cor.mtest(seed, conf.level = .95)</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)">corrplot(M, p.mat = P$p, insig = "label_sig", sig.level = c(.001, .01, .05),</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)"> pch.cex = 2, pch.col = "white", type = "upper", method = "color",</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)"> order = "original", outline = "white", tl.col="black", tl.srt=45,diag = FALSE,</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><b style="background-color:rgba(255,255,255,0)"> addCoef.col = "black", col = colorRampPalette(c("blue", "yellow", "red"))(20))</b></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)"> </span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)"> </span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)"><b>Rodrigo R. Lopes</b><br>
Engenheiro Agrônomo, Dr.<br>
CREA RS122642<br>
<a href="http://lattes.cnpq.br/7651127569091762">http://lattes.cnpq.br/7651127569091762</a></span></p>
<p class="x_x_MsoNormal" style="margin:0cm 0cm 0.0001pt"><span style="background-color:rgba(255,255,255,0)"> </span></p>
</div>
</div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<div dir="ltr"></div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<div dir="ltr"></div>
</div>
<span style="background-color:rgba(255,255,255,0)"></span></div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<meta content="text/html; charset=us-ascii">
<div dir="ltr"></div>
<div dir="ltr">
<meta content="text/html; charset=us-ascii">
<span style="background-color:rgba(255,255,255,0)"></span></div>
<div dir="ltr"></div>
</div>
<div dir="auto">
<div dir="ltr"></div>
<div dir="ltr">
<meta content="text/html; charset=us-ascii">
<span style="background-color:rgba(255,255,255,0)"></span><br>
<br>
<div dir="ltr">Enviado do meu iPhone</div>
</div>
</div>
</body>
</html>