Adding axis to marginal denstity plot and histograms about ggextra

[crew102]

Can you provide a reproducible example of how you created that plot? To my knowledge, ggMarginal does not even have the ability to overlay marginal plots like the graph you displayed.

[SebastianoCurreli]

Sure,
I'm not using the original dataset because it's quite big.
An example with some simulated data is as follows:

`set.seed(1234)
n = 500;
x1 = rbeta(n, .5, .4)
y1 = rnorm(n, 5, 2);
y2 = rnorm(n, 10, 1)
w = rbinom(n, 1, .5)
x2 = w*y1 + (1-w)*y2

df_ex1<-data.frame(x = x1, y = x2)
df_ex2<-data.frame(x = y1, y = y2)

p1 <- ggplot(df_ex1, aes(x, y)) + geom_point(color = "red") +
theme_cowplot() + xlim(0, 10) + ylim(0,15)

p2 <- ggplot(df_ex2, aes(x, y)) + geom_point(color = "blue") +
theme_cowplot() + xlim(0, 10) + ylim(0,15)

marg1<-ggMarginal(p1, color = "red")
marg2<-ggMarginal(p2, color = "blue")

ggdraw()+
draw_plot(marg1) +
draw_plot(marg2)`

What I'm interested in is to be able to visualize the "y" axis of each marginal plot in order to evaluate the differences in density distribution.

Thanks in advance!

[crew102]

Ah, I see what you are saying. This would require passing theme options into ggMarginal, as well as some additional changes to the function itself which would not be easy. I can point you to where in the source code you would have to make changes if you want.

[SebastianoCurreli]

That would be great!
I'll wait for your input then.

[crew102]

Take a look at some of the changes I made in this commit: 8f5e4ed. When you rebuild ggExtra with these new changes and run the following:

library(ggplot2)
library(ggExtra)

ggplot(data = mtcars) +
  geom_point(aes(x = mpg, y = wt)) +
  ylab("\nmpg") + # need to give extra space for labs with "\n"
  xlab("\nwt") -> p

ggMarginal(p = p, type = "density")

...You should get something like this:

The alignment of the plots is nice in the example above, but you may have to change the params I've hard-coded to make the alignment work for your specific plot. I've made notes by the diff view on Github here, to help you understand what I was doing.

I don't think we would want to incorporate the ability to customize the marginal plots to the extent that you need, so I would consider this issue closed. @daattali , your thoughts?

[daattali]

Thank you Chris for your discussion I completely agree, this kind of customization is out of scope for the package

…

--- Dean Attali President & CEO AttaliTech Ltd http://AttaliTech.com <http://attalitech.com>

On 17 May 2017 at 14:13, Chris Baker ***@***.***> wrote: Take a look at some of the changes I made in this commit: 8f5e4ed <8f5e4ed> When you rebuild ggExtra with these new changes and run the following: library(ggplot2) library(ggExtra) ggplot(data = mtcars) + geom_point(aes(x = mpg, y = wt)) + ylab("\nmpg") + # need to give extra space for labs with "\n" xlab("\nwt") -> p ggMarginal(p = p, type = "density") ...You should get something like this: [image: rplot] <https://cloud.githubusercontent.com/assets/11220793/26168687/0203b860-3b09-11e7-9abf-c5ccf3154081.png> The alignment of the plots is nice in the example above, but you may have to change the params I've hard-coded to make the alignment work for your specific plot. I've made notes by the diff view on Github here <crew102@8f5e4ed#diff-2d2dc5c77893c0b4d033117477af9abeR283>, to help you understand what I was doing. I don't think we would want to incorporate the ability to customize the marginal plots to the extent that you need, so I would consider this issue closed. @daattali <https://github.com/daattali> , your thoughts? — You are receiving this because you were mentioned. Reply to this email directly, view it on GitHub <#59 (comment)>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AA6IFJwVmgDlNYpcIQ1-zIgwsH14HBTJks5r6zjWgaJpZM4NcZb1> .

[SebastianoCurreli]

Thank you Chris for your prompt help!