Графики

R Markdown

Сделаем хороший график по готовым данным для дипломной работы. Исследовалось содержание нейротрофического фактора мозга (BDNF) в гомогенатах головного мозга мышей BALB/c с сепсисом и без него.

library("ggplot2")

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

library(readxl)

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

mice_septic_and_non_septic_BDNF_and_GDNF <- read_excel("C:/Users/Марина Малых/Desktop/Desktop/Методология медико-биологического эксперимента/mice septic and non septic BDNF and GDNF.xlsx")
mice1<- ggplot(data = mice_septic_and_non_septic_BDNF_and_GDNF, aes(x = TYPE, y=BDNF, fill = TYPE)) +
  geom_boxplot()+
  geom_jitter(width = 0.25, fill = "green")+
  xlab("Гомогенаты головного мозга мышей линии BALB/c")+
  ylab("Концентрация BDNF (нг/мл)")+
  theme(legend.position = "none")

А теперь получим совершенно нерепрезентабельный график плотности выборки с перепутанными осями

mice2<-ggplot(data = mice_septic_and_non_septic_BDNF_and_GDNF, aes(x = BDNF, y=TYPE, fill = TYPE)) +
  geom_density()

plot(mice2)