-
Notifications
You must be signed in to change notification settings - Fork 0
/
LDH_analysis.Rmd
69 lines (45 loc) · 1.68 KB
/
LDH_analysis.Rmd
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
---
title: "LDH_analysis"
author: "ERM"
date: "`r Sys.Date()`"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## R Markdown
```{r setup}
library(readxl)
library(ggpubr)
library(rstatix)
library(tidyverse)
```
## Including Plots
```{r ldh input, echo=FALSE}
norm_LDH <- read.csv("data/norm_LDH.csv")
norm_LDH <- norm_LDH[,-1]##get rid of line numbers
norm_LDH$Drug <- factor(norm_LDH$Drug, levels = c( "Daunorubicin", "Doxorubicin", "Epirubicin", "Mitoxantrone", "Trastuzumab","Control"))
ggplot(norm_LDH, aes(x = as.factor(Conc), y = norm_val, group = Conc)) +
geom_boxplot(aes(fill = as.factor(Conc))) +
#geom_point(aes(color= indv))+
# stat_compare_means(method="t.test", ref.group=6, label="p",angle = 75,hide.ns = TRUE, label.y=c(4.5),label.x= c(1.5,2.5,3.5,4.5,5.5,6.5,7.5),aes(angle=90))+
scale_fill_manual(values = c("#F3BABD","#EAA2A5","#E28A8E",
"#DA7277","#CF5157","#C43138","#982124","#6B1210" ),
aesthetics = c("Conc", "fill")) +
guides(fill = FALSE) +
#geom_hline(yintercept = 1) +
theme_bw() +
xlab(expression(paste("Drug [", mu, "M]"
))) +
ylab("LDH release") +
labs(fill = "Individual") +
facet_wrap("Drug",) +
ylim(0, 5)+
theme(strip.background = element_rect(fill = c("#DDBBCD", "#DDBBCD", "#DDBBCD", "#FFD966","#FFD966", "transparent"))) +
theme(
axis.title = element_text(size = 15, color = "black"),
axis.ticks = element_line(size = 1.5),
axis.text = element_text(size = 9, color = "black", angle = 20),
strip.text.x = element_text(size = 15, color = "black", face = "bold"))
```
```