<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1252">
</head>
<body>
<p>Boa noite, Listeiros!</p>
<p>Saberiam como adaptar meu script para criar um Boxplot igual ao
da figura anexada?</p>
<p>p <- ggplot (df, aes (type, lmean, fill = type)) +
geom_boxplot () + scale_fill_viridis (discrete = TRUE, alpha = .6)
+ geom_jitter (color = 'black', size = 1, alpha = .9) +
theme_ipsum () + theme (legend.position = 'none', plot.title =
element_text (size = 11)) + ggtitle ('A boxplot with jitter') +
xlab (' ')</p>
<p>Seguem meus dados abaixo:<br>
</p>
<p>dput (df)<br>
structure(list(Mean = c(14935404544, 15222448128, 38751113216, <br>
14268438528, 14946194432, 15161123840, 9273937920, 9673856000, <br>
14560262144, 17200879616, 3811098880, 7633272320, 290639968, <br>
89202434048, 2005522432, 625789952, 1819531136, 2311044096,
1209199872, <br>
296506752, 915887232, 2633880832, 488109632, 91674344, 694895872,
<br>
170653968, 586009152, 67529624, 2587323136, 66061892), type =
c("gmean", <br>
"gmean", "gmean", "gmean", "gmean", "gmean", "gmean", "gmean", <br>
"gmean", "gmean", "gmean", "gmean", "gmean", "gmean", "gmean", <br>
"mean", "mean", "mean", "mean", "mean", "mean", "mean", "mean", <br>
"mean", "mean", "mean", "mean", "mean", "mean", "mean"), lmean =
c(23.4270003752245, <br>
23.4460370258537, 24.380425320488, 23.3813158390422,
23.4277225513355, <br>
23.4420003463391, 22.9504739289101, 22.992692825977,
23.4015618839485, <br>
23.5682263599233, 22.0611834044475, 22.7557824657935,
19.4875958357754, <br>
25.2141741636937, 21.4191704283524, 20.2545253328222,
21.3218446872636, <br>
21.560965248974, 20.9132247150145, 19.5075805484868,
20.6354038058895, <br>
21.6917241970269, 20.0060505943238, 18.3337531161829,
20.3592725678438, <br>
18.9551484853174, 20.1888459651668, 18.0280769336398,
21.673889639965, <br>
18.0061026181465)), datalabel = "", time.stamp = " 1 May 2020
12:05", formats = c("%9s", <br>
"%9.0g", "%9s"), types = c(5L, 254L, 5L), val.labels = c("", <br>
"", ""), var.labels = c("Reporter.ISO", "", ""), row.names =
c("1", <br>
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", <br>
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24",
<br>
"25", "26", "27", "28", "29", "30"), version = 12L, class =
"data.frame")<img moz-do-not-send="false"
src="cid:part1.43DDFD67.923AD018@ymail.com" alt="Boxplot com
dados experimentais plotados" width="1024" height="787"></p>
<br>
<div class="moz-signature">-- <br>
<meta http-equiv="content-type" content="text/html;
charset=windows-1252">
<title></title>
<font size="1"><b>Alexandre Loures</b><br>
Professor Substituto<br>
<a href="https://ufpb.br">Universidade Federal da Paraíba</a><br>
<a
href="https://sigaa.ufpb.br/sigaa/public/programa/portal.jsf?lc=pt_BR&id=1875">Pós-graduação
em Economia - PPGE</a><br>
<a class="moz-txt-link-abbreviated" href="http://www.rodriguesloures.com">www.rodriguesloures.com</a><br>
</font></div>
</body>
</html>