Ugly Boxplot

library (readxl)

## Warning: пакет 'readxl' был собран под R версии 4.2.3

setwd("C:/Users/Марина Малых/Desktop/Desktop/Методология медико-биологического эксперимента")
data <- read_excel('mice.xlsx.')
summary(data)

##      TYPE                BDNF             GDNF      
##  Length:20          Min.   : 42.40   Min.   :104.3  
##  Class :character   1st Qu.: 59.52   1st Qu.:167.3  
##  Mode  :character   Median : 70.85   Median :178.2  
##                     Mean   : 71.36   Mean   :170.4  
##                     3rd Qu.: 82.08   3rd Qu.:186.6  
##                     Max.   :106.00   Max.   :202.3

library ("tidyverse")

## Warning: пакет 'tidyverse' был собран под R версии 4.2.3

## Warning: пакет 'ggplot2' был собран под R версии 4.2.3

## Warning: пакет 'tibble' был собран под R версии 4.2.3

## Warning: пакет 'tidyr' был собран под R версии 4.2.3

## Warning: пакет 'purrr' был собран под R версии 4.2.3

## Warning: пакет 'dplyr' был собран под R версии 4.2.3

## Warning: пакет 'forcats' был собран под R версии 4.2.3

## Warning: пакет 'lubridate' был собран под R версии 4.2.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

gr_mice <- ggplot(data = data, aes(x = TYPE, y=BDNF, colour = "greenyellow")) +
    geom_boxplot(fill="greenyellow", alpha=2, linetype = 10, notch = TRUE, colour = "orange", size = 5) +
    geom_point(size = 5, shape = 11, colour = "yellow") +
  geom_jitter(width = 0.25, fill = "green", shape = 18, colour = "turquoise", size = 10)+
  theme (plot.background = element_rect(fill = "purple"),
    panel.background = element_rect(fill = 'black', colour = 'magenta', size = 20),
    plot.title = element_text(color = "blue", angle = 180, size = 40),
    plot.subtitle = element_text(size = 20, hjust = 0.75, color = "pink", family = "serif"),
        plot.caption = element_text(family = "mono", face = "bold", size = 40, angle = 180, colour = "red"),
         axis.title.x = element_text(color = "yellow", size = 20, face = "italic", angle = 180),
        axis.title.y = element_text(size = 15, face = "italic", hjust = 0.25, colour = "red"))+
   labs(title = "MICE",
       subtitle = "MICE",
       caption = "MICE",
       col = "MICE?")+
  xlab("Gomogenat golovnoy brain mice line BALB/c")+
  ylab("Concentartion BDNF (нг/мл)")+
  theme(legend.position = "none")

## Warning: The `size` argument of `element_rect()` is deprecated as of ggplot2 3.4.0.
## ℹ Please use the `linewidth` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

plot(gr_mice)

## Notch went outside hinges
## ℹ Do you want `notch = FALSE`?
## Notch went outside hinges
## ℹ Do you want `notch = FALSE`?