From c7104d39031f1a20e776fd7379f41b395eab6fe7 Mon Sep 17 00:00:00 2001
From: Marcel Costa <marcelcosta@mcosta.cat>
Date: Sat, 5 Feb 2022 08:12:41 +0100
Subject: [PATCH] Creado el man page para ggcorrplot.

---
 man/ggcorrplot.Rd | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 man/ggcorrplot.Rd

diff --git a/man/ggcorrplot.Rd b/man/ggcorrplot.Rd
new file mode 100644
index 0000000..b5ec687
--- /dev/null
+++ b/man/ggcorrplot.Rd
@@ -0,0 +1,29 @@
+\name{ggcorrplot}
+\alias{ggcorrplot}
+\title{ggcorrplot}
+\usage{
+ggcorrplot(df, var, color="#FFFFFF00", stat="signif", tri="all", method="pearson")
+}
+\arguments{
+  \item{df}{A data frame in "long" format.}
+  \item{var}{The column that will be used to analyze correlation all against all.}
+  \item{color}{The color of the lines of geom_tile (the border). By default, its transparent.}
+  \item{stat}{The stats that will be on the tiles. They can be "signif", "pval", "none". By default, it presents "signif" (stars representing pvalue).}
+  \item{tri}{It specifies which half of the correlation matrix is shown. Can be "all" (the default), "upper" or "lower".}
+  \item{method}{Method for correlation. It will be passed to "cor" and "rcorr" functions, "pearson" by default.}
+}
+\description{
+Generates a correlation matrix using ggplot for a dataframe.
+}
+\examples{
+library(tidyverse)
+
+df<-data.frame("pats"=paste0("PAT", 1:20), "CytA"=rnorm(20,5), "CytB"=rnorm(20,5),
+"CytC"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytD"=rnorm(20,5),
+"CytE"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytF"=rnorm(20,5),
+"CytG"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)))
+df<-gather(df, Cyt, Value,-pats)
+head(df)
+
+ggcorrplot(df, Cyt)
+}