Skip to content

Instantly share code, notes, and snippets.

@kstawiski

kstawiski/gist:5adb9d4d37b0b6f6fb21bc0d7adb17a4

Last active November 19, 2021 18:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kstawiski/5adb9d4d37b0b6f6fb21bc0d7adb17a4 to your computer and use it in GitHub Desktop.
Save kstawiski/5adb9d4d37b0b6f6fb21bc0d7adb17a4 to your computer and use it in GitHub Desktop.
Download ZIP
[R] Paired plot
Raw
gistfile1.txt
library(ggpubr)
library(ggsci)
temp = data.frame("Przyjęcie" = dane$Poczatkowe.stezenie.kreatyniny.w.trakcie.hospitalizacji., "Wypis" = dane$Stezenie.kreatyniny.przy.wypisie.)
a = ggpaired(temp, cond1 = "Przyjęcie", cond2 = "Wypis", palette = "npg", xlab = "", ylab = "Kreatynina", line.color = "grey", point.size = 0.01)
describe(temp)
wilcox.test(temp$Przyjęcie, temp$Wypis, paired = T)
t.test(temp$Przyjęcie, temp$Wypis, paired = T)
gridExtra::grid.arrange(a, ncol = 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment