LDH_analysis.Rmd

---
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")) 
      
```










```