---
title: "Correlation_plot_Dryad"
output: html_document
---
Objective: create correlation Plot
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r}
library(ggcorrplot)
```
```{r}
setwd("/Volumes/KLIM$/Kleer/Project Paper/Submission/DRYAD")
#setwd("/Volumes/KLIM$/Kleer/Project Paper/Masterfiles/4. Testfiles")
getwd()
```
```{r, read in data}
data <- read.csv2("MASTERFILE_kleer_20210305.csv")
```
```{r}
#label variables for data.frame for correlation plot
C1q <- data$antiC1q
A09 <- data$A08shift
A15 <- data$A08
A86 <- data$A90
B41 <- data$B41
B43 <- data$B43
B83 <- data$B83
#create data.frame for corrleation plot
multiple.regression.data.frame <- data.frame(
C1q = C1q,
A09 = A09,
A15= A15,
A86 =A86,
B41=B41,
B43= B43,
B83= B83)
```
```{r}
corr <- round(cor(multiple.regression.data.frame, method= "spearman"), 1)
head(corr[, 1:6])
p.mat <- cor_pmat(multiple.regression.data.frame)
```
```{r}
ggcorrplot(corr,
outline.col = "white",
lab= TRUE,
ggtheme = ggplot2::theme_classic,
tl.cex=20,
show.legend = TRUE)
```