Styjun

Write The Shortest Program to Calculate Height of a Binary Tree

How to win against ants

What is it exactly about flying a Flyboard across the English channel that made Zapata's thighs burn?

What is an air conditioner compressor hard start kit and how does it work?

If a vampire drinks blood of a sick human, does the vampire get infected?

Getting Lost in the Caves of Chaos

Identify Batman without getting caught

How to deactivate the username quickly

How do I show and not tell a backstory?

Ancients don't give a full level?

If I build a custom theme, will it update?

Write The Shortest Program To Check If A Binary Tree Is Balanced

Why do cheap flights with a layover get more expensive when you split them up into separate flights?

How to check a file was encrypted (really & correctly)

Getting an entry level IT position later in life

How many years before enough atoms of your body are replaced to survive the sudden disappearance of the original body’s atoms?

Can a Hogwarts student refuse the Sorting Hat's decision?

Would this winged human/angel be able to fly?

Find a text string in a file and output only the rest of the text that follows it?

Why did the US Airways Flight 1549 passengers stay on the wings?

How to sort List<T> in c#

If the interviewer says "We have other interviews to conduct and then back to you in few days", is it a bad sign to not get the job?

A Checkmate of Dubious Legality

Why should I "believe in" weak solutions to PDEs?

How do I display Correlation matrix as percentage

How to sort a dataframe by multiple column(s)How to join (merge) data frames (inner, outer, left, right)Plot correlation matrix into a graphHow to make a great R reproducible exampleHow can I create a correlation matrix in R?exctract correlated elements of a correlation matrixImpossible to create correlated variables from this correlation matrix?Specify correlation matrix for generating correlated binary variablesCorrelation matrixR: corrplot.mixed: how do I keep the column names and row names displayed, and how do I make the diagonal have a different color than the rest

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

1

I am trying to display the correlation labels as a percentage instead of displaying them between the numbers -1 and 1. I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet and display it with just a grey cell colors. This is how it looks like

I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet.

#if(!require(devtools)) install.packages("devtools")
#devtools::install_github("kassambara/ggcorrplot")
library(ggcorrplot)
corr <- round(cor(test3),3)
corr <- corr * 100
ggcorrplot(corr, hc.order = TRUE, type = "lower",
 lab = TRUE, colors = c("blue", "white", "red"))

Is there way to get the results as a percentage and still have the colors as we normally have in a correlation matrix plot. Also any way to add percentage to the labels as currently it only displays the number.

Thanks a lot in advance !!

r correlation ggcorrplot

share|improve this question

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Why do you want a percentage? The correlation coefficient is not a proportion, so just multiplying by 100 does not make sense. A value of zero, for example, does not mean 0%.
  
  – neilfws
  Mar 27 at 3:57
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @neilfws If I have a correlation between two variables as 0.5, would that not mean that they are 50% correlated
  
  – AnalyticsTeam
  Mar 27 at 4:01
  
  

  
  
  
  


• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  @neilfws is correct. If nothing, you should do corr = round(cor(test3)^2,3).
  
  – d.b
  Mar 27 at 4:36
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @AnalyticsTeam, cor (by default) gives you Pearson correlation coefficient (r). If you square that, you get R²
  
  – d.b
  Mar 27 at 4:43
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @d.b. thanks a lot for all the help. Really appreciate it.
  
  – AnalyticsTeam
  Mar 27 at 22:00
  

  
  
  
  

 | 
show 4 more comments

1

I am trying to display the correlation labels as a percentage instead of displaying them between the numbers -1 and 1. I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet and display it with just a grey cell colors. This is how it looks like

I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet.

#if(!require(devtools)) install.packages("devtools")
#devtools::install_github("kassambara/ggcorrplot")
library(ggcorrplot)
corr <- round(cor(test3),3)
corr <- corr * 100
ggcorrplot(corr, hc.order = TRUE, type = "lower",
 lab = TRUE, colors = c("blue", "white", "red"))

Is there way to get the results as a percentage and still have the colors as we normally have in a correlation matrix plot. Also any way to add percentage to the labels as currently it only displays the number.

Thanks a lot in advance !!

r correlation ggcorrplot

share|improve this question

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Why do you want a percentage? The correlation coefficient is not a proportion, so just multiplying by 100 does not make sense. A value of zero, for example, does not mean 0%.
  
  – neilfws
  Mar 27 at 3:57
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  @neilfws If I have a correlation between two variables as 0.5, would that not mean that they are 50% correlated
  
  – AnalyticsTeam
  Mar 27 at 4:01
  
  

  
  
  
  


• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  
  @neilfws is correct. If nothing, you should do corr = round(cor(test3)^2,3).
  
  – d.b
  Mar 27 at 4:36
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @AnalyticsTeam, cor (by default) gives you Pearson correlation coefficient (r). If you square that, you get R²
  
  – d.b
  Mar 27 at 4:43
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  @d.b. thanks a lot for all the help. Really appreciate it.
  
  – AnalyticsTeam
  Mar 27 at 22:00
  

  
  
  
  

 | 
show 4 more comments

I am trying to display the correlation labels as a percentage instead of displaying them between the numbers -1 and 1. I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet and display it with just a grey cell colors. This is how it looks like

I was able to do this using the package ggcorrplot, However doing this took away the capability of displaying them with the color pallet.

#if(!require(devtools)) install.packages("devtools")
#devtools::install_github("kassambara/ggcorrplot")
library(ggcorrplot)
corr <- round(cor(test3),3)
corr <- corr * 100
ggcorrplot(corr, hc.order = TRUE, type = "lower",
 lab = TRUE, colors = c("blue", "white", "red"))

Is there way to get the results as a percentage and still have the colors as we normally have in a correlation matrix plot. Also any way to add percentage to the labels as currently it only displays the number.

Thanks a lot in advance !!

r correlation ggcorrplot

share|improve this question

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

#if(!require(devtools)) install.packages("devtools")
#devtools::install_github("kassambara/ggcorrplot")
library(ggcorrplot)
corr <- round(cor(test3),3)
corr <- corr * 100
ggcorrplot(corr, hc.order = TRUE, type = "lower",
 lab = TRUE, colors = c("blue", "white", "red"))

share|improve this question

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

share|improve this question

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

edited Mar 27 at 3:53

NelsonGon

7,09855 gold badges1313 silver badges3636 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

asked Mar 27 at 3:49

AnalyticsTeamAnalyticsTeam

11888 bronze badges

1 Answer
1

active

oldest

votes

3

corr <- round(cor(mtcars)^2,3)
corr <- corr * 100

diag(corr) = NA
corr[upper.tri(corr)] = NA

library(reshape2)
d = melt(corr)
d = d[!is.na(d$value),]

library(ggplot2)
ggplot(d, aes(x = Var1,
 y = Var2,
 fill = value,
 label = ifelse(is.na(value), "", paste0(value,"%")))) +
 geom_tile(color = "white") +
 scale_fill_gradientn(colors = c("green", "white", "red"), na.value = NA) +
 geom_text() +
 theme_bw()

share|improve this answer

edited Mar 28 at 15:19

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot for your response. Is there a way I can paste% in the value column of d
  
  – AnalyticsTeam
  Mar 27 at 4:15
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot that for the response, worked like magic. This is exactly what I was looking for
  
  – AnalyticsTeam
  Mar 27 at 4:27
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55369505%2fhow-do-i-display-correlation-matrix-as-percentage%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

3

corr <- round(cor(mtcars)^2,3)
corr <- corr * 100

diag(corr) = NA
corr[upper.tri(corr)] = NA

library(reshape2)
d = melt(corr)
d = d[!is.na(d$value),]

library(ggplot2)
ggplot(d, aes(x = Var1,
 y = Var2,
 fill = value,
 label = ifelse(is.na(value), "", paste0(value,"%")))) +
 geom_tile(color = "white") +
 scale_fill_gradientn(colors = c("green", "white", "red"), na.value = NA) +
 geom_text() +
 theme_bw()

share|improve this answer

edited Mar 28 at 15:19

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot for your response. Is there a way I can paste% in the value column of d
  
  – AnalyticsTeam
  Mar 27 at 4:15
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot that for the response, worked like magic. This is exactly what I was looking for
  
  – AnalyticsTeam
  Mar 27 at 4:27
  

  
  
  
  

add a comment | 

3

corr <- round(cor(mtcars)^2,3)
corr <- corr * 100

diag(corr) = NA
corr[upper.tri(corr)] = NA

library(reshape2)
d = melt(corr)
d = d[!is.na(d$value),]

library(ggplot2)
ggplot(d, aes(x = Var1,
 y = Var2,
 fill = value,
 label = ifelse(is.na(value), "", paste0(value,"%")))) +
 geom_tile(color = "white") +
 scale_fill_gradientn(colors = c("green", "white", "red"), na.value = NA) +
 geom_text() +
 theme_bw()

share|improve this answer

edited Mar 28 at 15:19

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot for your response. Is there a way I can paste% in the value column of d
  
  – AnalyticsTeam
  Mar 27 at 4:15
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot that for the response, worked like magic. This is exactly what I was looking for
  
  – AnalyticsTeam
  Mar 27 at 4:27
  

  
  
  
  

add a comment | 

corr <- round(cor(mtcars)^2,3)
corr <- corr * 100

diag(corr) = NA
corr[upper.tri(corr)] = NA

library(reshape2)
d = melt(corr)
d = d[!is.na(d$value),]

library(ggplot2)
ggplot(d, aes(x = Var1,
 y = Var2,
 fill = value,
 label = ifelse(is.na(value), "", paste0(value,"%")))) +
 geom_tile(color = "white") +
 scale_fill_gradientn(colors = c("green", "white", "red"), na.value = NA) +
 geom_text() +
 theme_bw()

share|improve this answer

edited Mar 28 at 15:19

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

corr <- round(cor(mtcars)^2,3)
corr <- corr * 100

diag(corr) = NA
corr[upper.tri(corr)] = NA

library(reshape2)
d = melt(corr)
d = d[!is.na(d$value),]

library(ggplot2)
ggplot(d, aes(x = Var1,
 y = Var2,
 fill = value,
 label = ifelse(is.na(value), "", paste0(value,"%")))) +
 geom_tile(color = "white") +
 scale_fill_gradientn(colors = c("green", "white", "red"), na.value = NA) +
 geom_text() +
 theme_bw()

share|improve this answer

edited Mar 28 at 15:19

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges

answered Mar 27 at 4:02

d.bd.b

21.8k44 gold badges1919 silver badges5050 bronze badges