[R-br] Boxplot

[Alexandre Loures]

Boa noite, Listeiros!

Saberiam como adaptar meu script para criar um Boxplot igual ao da 
figura anexada?

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 (' ')

Seguem meus dados abaixo:

dput (df)
structure(list(Mean = c(14935404544, 15222448128, 38751113216,
14268438528, 14946194432, 15161123840, 9273937920, 9673856000,
14560262144, 17200879616, 3811098880, 7633272320, 290639968,
89202434048, 2005522432, 625789952, 1819531136, 2311044096, 1209199872,
296506752, 915887232, 2633880832, 488109632, 91674344, 694895872,
170653968, 586009152, 67529624, 2587323136, 66061892), type = c("gmean",
"gmean", "gmean", "gmean", "gmean", "gmean", "gmean", "gmean",
"gmean", "gmean", "gmean", "gmean", "gmean", "gmean", "gmean",
"mean", "mean", "mean", "mean", "mean", "mean", "mean", "mean",
"mean", "mean", "mean", "mean", "mean", "mean", "mean"), lmean = 
c(23.4270003752245,
23.4460370258537, 24.380425320488, 23.3813158390422, 23.4277225513355,
23.4420003463391, 22.9504739289101, 22.992692825977, 23.4015618839485,
23.5682263599233, 22.0611834044475, 22.7557824657935, 19.4875958357754,
25.2141741636937, 21.4191704283524, 20.2545253328222, 21.3218446872636,
21.560965248974, 20.9132247150145, 19.5075805484868, 20.6354038058895,
21.6917241970269, 20.0060505943238, 18.3337531161829, 20.3592725678438,
18.9551484853174, 20.1888459651668, 18.0280769336398, 21.673889639965,
18.0061026181465)), datalabel = "", time.stamp = " 1 May 2020 12:05", 
formats = c("%9s",
"%9.0g", "%9s"), types = c(5L, 254L, 5L), val.labels = c("",
"", ""), var.labels = c("Reporter.ISO", "", ""), row.names = c("1",
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13",
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24",
"25", "26", "27", "28", "29", "30"), version = 12L, class = 
"data.frame")Boxplot com dados experimentais plotados


-- 
*Alexandre Loures*
Professor Substituto
Universidade Federal da Paraíba <https://ufpb.br>
Pós-graduação em Economia - PPGE 
<https://sigaa.ufpb.br/sigaa/public/programa/portal.jsf?lc=pt_BR&id=1875>
www.rodriguesloures.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200506/85a3f83a/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: boxplot.png
Tipo: image/png
Tamanho: 15465 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200506/85a3f83a/attachment.png>