<div dir="ltr"><div><div><div>Olá listeiros!</div><div><br></div><div>Estou precisando incluir o valor dos outliers no boxplot que estou plotando junto com o histograma. E também necessito incluir o valor dos quartis. É possível?</div><div><br></div><div>O código que estou usando é o seguinte.</div><div><br></div><div>mat <- matrix(c(1,2,0,0), 2)</div><div>mat</div><div>layout(mat, c(3.5,1), c(1,3))</div><div>par(mar=c(0.5, 4.5, 0.5, 0.5))</div><div>boxplot(campo$ef, horizontal=TRUE, axes=FALSE, col=(cores))</div><div>par(mar=c(4.5, 4.5, 0.5, 0.5))</div><div>par(cex.axis=0.8,cex.main=1)</div><div>hist(campo$ef,col=(cores),main="Histograma da Eficiência de colheita",xlab=("Eficiência (%)"),ylab="Frequencia",adj=0,breaks=12,border="white", labels=qcap)</div><div>axis(1,at=seq(50,100,5))</div><div>axis(2,at=seq(0,22,2))</div><div>density.default(campo$ef)</div><div>d<-density(campo$ef)</div><div>par(new=TRUE)</div><div>plot(d,ann=FALSE, axes=FALSE)</div></div>-- <br><div class="gmail_signature"><div dir="ltr"></div></div></div><div><br></div><div>Abaixo aqui meus dados. Não sei se está correto, sou nova mesmo no uso e me indicaram usar o comando dput para incluir os dados no post:</div><div><br></div><div>dput(campo)</div><div>structure(list(trat = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, </div><div>3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, </div><div>7L, 7L, 8L, 8L, 8L, 8L), cacho = c(34L, 35L, 15L, 33L, 24L, 28L, </div><div>25L, 29L, 14L, 8L, 5L, 13L, 20L, 31L, 32L, 27L, 9L, 10L, 11L, </div><div>12L, 26L, 23L, 22L, 21L, 6L, 4L, 7L, 2L, 19L, 18L, 17L, 16L), </div><div> carret = structure(c(1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, </div><div> 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, </div><div> 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L), .Label = c("nao", "sim"), class = "factor"), </div><div> local = structure(c(1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, </div><div> 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, </div><div> 1L, 1L, 1L, 1L, 2L, 2L, 2L), .Label = c("MG", "MS"), class = "factor"), </div><div> est = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, </div><div> 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, </div><div> 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("maduro", "vez"), class = "factor"), </div><div> A = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, </div><div> 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, </div><div> 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("continuo", "repique"</div><div> ), class = "factor"), H = c(4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, </div><div> 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, </div><div> 8L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L), tempo = c(87L, 127L, </div><div> 35L, 100L, 59L, 27L, 30L, 64L, 44L, 31L, 52L, 75L, 40L, 63L, </div><div> 62L, 32L, 43L, 35L, 21L, 57L, 19L, 112L, 113L, 73L, 27L, </div><div> 24L, 29L, 51L, 41L, 50L, 39L, 88L), frutos.bons = c(114L, </div><div> 138L, 170L, 222L, 83L, 81L, 125L, 134L, 76L, 155L, 240L, </div><div> 189L, 55L, 295L, 281L, 369L, 74L, 67L, 126L, 214L, 62L, 10L, </div><div> 32L, 185L, 83L, 83L, 77L, 208L, 42L, 54L, 41L, 50L), Kg.frutos.bons = c(5.9, </div><div> 7.6, 4.7, 10.8, 4.1, 5.2, 7.8, 5.6, 5.5, 8, 9.1, 4.8, 2.9, </div><div> 11, 13.2, 15.5, 4, 2.1, 5.1, 5.1, 2.7, 2.4, 2.5, 8.4, 3.2, </div><div> 4, 4.7, 9.9, 1.9, 2.5, 4.4, 5.7), colhidos = c(146L, 187L, </div><div> 189L, 288L, 110L, 113L, 128L, 180L, 148L, 162L, 249L, 246L, </div><div> 80L, 349L, 397L, 422L, 82L, 104L, 131L, 240L, 66L, 88L, 96L, </div><div> 235L, 84L, 91L, 97L, 258L, 50L, 109L, 204L, 250L), dleves = c(6L, </div><div> 30L, 12L, 37L, 14L, 24L, 3L, 24L, 51L, 5L, 5L, 50L, 22L, </div><div> 41L, 86L, 43L, 2L, 29L, 5L, 13L, 4L, 44L, 23L, 40L, 1L, 6L, </div><div> 18L, 20L, 6L, 39L, 101L, 48L), dgraves = c(26L, 19L, 7L, </div><div> 29L, 13L, 8L, 0L, 22L, 21L, 2L, 4L, 7L, 3L, 13L, 30L, 10L, </div><div> 6L, 8L, 0L, 13L, 0L, 34L, 41L, 10L, 0L, 2L, 2L, 30L, 2L, </div><div> 16L, 62L, 152L), naocolhidos = c(7L, 4L, 17L, 8L, 2L, 9L, </div><div> 0L, 16L, 10L, 3L, 8L, 23L, 2L, 8L, 4L, 1L, 5L, 4L, 1L, 9L, </div><div> 0L, 19L, 87L, 6L, 1L, 1L, 2L, 21L, 6L, 13L, 10L, 19L), carga = c(153L, </div><div> 191L, 206L, 296L, 112L, 122L, 128L, 196L, 158L, 165L, 257L, </div><div> 269L, 82L, 357L, 401L, 423L, 87L, 108L, 132L, 249L, 66L, </div><div> 107L, 183L, 241L, 85L, 92L, 99L, 279L, 56L, 122L, 214L, 269L</div><div> ), tamanho = c(0.76, 0.84, 0.77, 0.97, 0.64, 0.71, 1.04, </div><div> 0.89, 0.94, 0.88, 0.86, 0.82, 0.81, 1, 0.95, 1.09, 0.83, </div><div> 0.74, 0.84, 0.63, 1.02, 0.54, 0.87, 0.86, 0.87, 0.79, 0.82, </div><div> 0.78, 0.74, 0.69, 0.57, 0.66), altura = c(2.4, 2.6, 3, 2.67, </div><div> 2.26, 2.36, 2.45, 2.98, 2.97, 2.39, 3.13, 2.28, 1.76, 2.66, </div><div> 2.51, 3.8, 3.52, 2.31, 2.86, 2.97, 2.39, 3.34, 3.42, 2.38, </div><div> 3.33, 3.02, 2.47, 3.46, 1.58, 3.56, 3.4, 3.71), cap = c(244.137931, </div><div> 215.4330709, 483.4285714, 388.8, 250.1694915, 693.3333333, </div><div> 936, 315, 450, 929.0322581, 630, 230.4, 261, 628.5714286, </div><div> 766.4516129, 1743.75, 334.8837209, 216, 874.2857143, 322.1052632, </div><div> 511.5789474, 77.14285714, 79.6460177, 414.2465753, 426.6666667, </div><div> 600, 583.4482759, 698.8235294, 166.8292683, 180, 406.1538462, </div><div> 233.1818182), ef = c(95.4248366, 97.90575916, 91.74757282, </div><div> 97.2972973, 98.21428571, 92.62295082, 100, 91.83673469, 93.67088608, </div><div> 98.18181818, 96.88715953, 91.44981413, 97.56097561, 97.75910364, </div><div> 99.00249377, 99.76359338, 94.25287356, 96.2962963, 99.24242424, </div><div> 96.38554217, 100, 82.24299065, 52.45901639, 97.51037344, </div><div> 98.82352941, 98.91304348, 97.97979798, 92.47311828, 89.28571429, </div><div> 89.3442623, 95.3271028, 92.93680297)), .Names = c("trat", </div><div>"cacho", "carret", "local", "est", "A", "H", "tempo", "frutos.bons", </div><div>"Kg.frutos.bons", "colhidos", "dleves", "dgraves", "naocolhidos", </div><div>"carga", "tamanho", "altura", "cap", "ef"), class = "data.frame", row.names = c(NA, </div><div>-32L))</div><div><br></div><div><br></div><div>Na escuta, </div><div><br></div><div><br></div><div><div><br></div></div><div class="gmail_signature"><div dir="ltr"><div style="text-align:center;color:rgb(0,127,64);font-family:"bookman old style","new york",times,serif;font-weight:bold;font-size:18px"><font color="#007f40">CHRISTINA GRUPIONI</font></div><div style="text-align:center;color:rgb(0,127,64);font-family:"bookman old style","new york",times,serif;font-weight:bold;font-size:18px"><span style="font-size:13px;color:rgb(0,0,0);font-family:arial,helvetica,sans-serif">Engenheira Agrícola e Ambiental- CREA BA: 84142</span><br></div><div style="text-align:center"><font color="#993300"><font face="arial, helvetica, sans-serif" size="2"><b>OCA (Organização Cooperativa de Agroecologia</b></font><font face="arial, helvetica, sans-serif" size="2"><b>)</b></font></font></div><div style="text-align:center"><font face="arial, helvetica, sans-serif" size="2" color="#000000"><b>Tecnologias Ecológicas e Sociais</b></font></div><div style="font-family:arial,helvetica,sans-serif;font-size:15.5556px;background-color:rgb(255,255,255);text-align:center"><font><font face="arial, helvetica, sans-serif"><font style="font-size:13px" color="#009900"><a value="+13192012332">(31) 8863-0005, (31) 3892-2236</a></font></font></font></div><div style="font-family:arial,helvetica,sans-serif;font-size:15.5556px;background-color:rgb(255,255,255);text-align:center"><font color="#993300"><i>skype:<font style="background-color:transparent;font-size:13px"><a href="mailto:chrisgrupioni@gmail.com" target="_blank">chrisgrupioni@gmail.com</a></font></i></font></div><br><div><br></div></div></div>
</div>