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