marcelcosta/CitFuns
1
0
Fork 0
Code Issues 4 Pull Requests Projects Releases Wiki Activity

Añadiendo los stats none y pval.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-05 08:15:40 +01:00
parent c7104d3903
commit f6b014b0b8
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggcorrplot.R
+5 -1
View File
@@ -29,10 +29,14 @@ ggcorrplot<-function(df, var, color="#FFFFFF00", stat="signif", tri="all"){
gather(Var2, Value, -Var1) %>% filter(!is.na(Value)) gather(Var2, Value, -Var1) %>% filter(!is.na(Value))
df.pval$Value<-round(df.pval$Value, 3) df.pval$Value<-round(df.pval$Value, 3)
if (!stat %in% c("signif","none","pval")){stat<-"signif"}
if (stat=="signif"){ if (stat=="signif"){
df.pval$Value<-gtools::stars.pval(df.pval$Value) df.pval$Value<-gtools::stars.pval(df.pval$Value)
} }
if (stat=="none"){
df.pval$Value<-""
}
df$Var1<-factor(df$Var1, levels=order$x) df$Var1<-factor(df$Var1, levels=order$x)
df$Var2<-factor(df$Var2, levels=order$y) df$Var2<-factor(df$Var2, levels=order$y)