Aimin Yan
2018-Sep-13 21:31 UTC
[R] Change the position of label when using R package eulerr
I am using eulerr to get venn.
My code is like:
fit1 <- euler(c("ciLAD" = 785, "LAD" = 565,
"nonXL_MEF" = 167,
"ciLAD&LAD" = 3,
"ciLAD&nonXL_MEF" = 101,
"LAD&nonXL_MEF" = 541,
"ciLAD&LAD&nonXL_MEF" = 2),shape =
"ellipse")
plot(fit1,quantities = TRUE,fill = rainbow(7),lty = 1:2,labels = list(font
= 1),alpha=0.7)
After I get the figure, I find the position of some labels need to be
adjusted.
Does anyone has some idea about how to process this?
Thank you,
Aimin
[[alternative HTML version deleted]]
David Winsemius
2018-Sep-14 01:56 UTC
[R] Change the position of label when using R package eulerr
> On Sep 13, 2018, at 2:31 PM, Aimin Yan <aimin.at.work at gmail.com> wrote: > > I am using eulerr to get venn. > My code is like: > > fit1 <- euler(c("ciLAD" = 785, "LAD" = 565, "nonXL_MEF" = 167, > "ciLAD&LAD" = 3, "ciLAD&nonXL_MEF" = 101, > "LAD&nonXL_MEF" = 541, > "ciLAD&LAD&nonXL_MEF" = 2),shape = "ellipse") > > plot(fit1,quantities = TRUE,fill = rainbow(7),lty = 1:2,labels = list(font > = 1),alpha=0.7) > > After I get the figure, I find the position of some labels need to be > adjusted. > > Does anyone has some idea about how to process this?Looking at the code of plot.euler we see that the plotting paradigm is grid. So you could assign the output to a data.object name, search for list items that match the names of the labels you want to reposition, and modify the position values. You would need to be more specific, if you want a worked example. As far as I can see the lables and postions are fairly deep inside a list structure: $ children :List of 1 ..$ GRID.gTree.12:List of 5 .. ..$ children $ diagram.grob.1 $children .. .. .. .. ..$ labels.grob :List of 11 .. .. .. .. .. ..$ label : chr [1:3] "ciLAD" "LAD" "nonXL_MEF" .. .. .. .. .. ..$ x : 'unit' num [1:3] -18.1native 69.2native 11.9native .. .. .. .. .. .. ..- attr(*, "valid.unit")= int 4 .. .. .. .. .. .. ..- attr(*, "unit")= chr "native" .. .. .. .. .. ..$ y : 'unit' num [1:3] -17.86native 5.24native 27.86native .. .. .. .. .. .. ..- attr(*, "valid.unit")= int 4 .. .. .. .. .. .. ..- attr(*, "unit")= chr "native" -- David.> > > Thank you, > > Aimin > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code.David Winsemius Alameda, CA, USA 'Any technology distinguishable from magic is insufficiently advanced.' -Gehm's Corollary to Clarke's Third Law
Aimin Yan
2018-Sep-14 21:03 UTC
[R] Change the position of label when using R package eulerr
Thank you,
I figure out a way like this:
fit1 <- euler(c("ciLAD" = 785, "LAD" = 565,
"nonXL_MEF" = 167,
"ciLAD&LAD" = 3,
"ciLAD&nonXL_MEF" = 101,
"LAD&nonXL_MEF" = 541,
"ciLAD&LAD&nonXL_MEF" = 2),shape =
"ellipse")
plot(fit1,quantities = TRUE,fill = rainbow(7),lty = 1:2,labels = list(font
= 1),alpha=0.7)
grid.ls()
t <- grid.get("quantities.grob")
names(t)
# Change these value will change the location of label.
grid.edit("quantities.grob",x=unit.c(unit(-14.9884684724791,
"native"),
unit(-14.883684319653,
"native"),
unit(13.9805892820006,
"native"),
unit(-12.8808987356981,
"native"),
unit(-11.488226371243,
"native"),
unit(-9.51474016085318,
"native"),
unit(-1.00436055190216,
"native")))
grid.edit("quantities.grob",y=unit.c(unit(-8.07672595120493,
"native"),
unit(4.78718651828883,
"native"),
unit(0.25941593099694,
"native"),
unit(-4.32200781461293,
"native"),
unit(25.7349463488991,
"native"),
unit(-22.7610031110325,
"native"),
unit(14.5001560838519,
"native")))
However, here I just want to change the x and y value of 4th label, does
anyone know how to set it?
Aimin
On Thu, Sep 13, 2018 at 9:56 PM David Winsemius <dwinsemius at
comcast.net>
wrote:
>
> > On Sep 13, 2018, at 2:31 PM, Aimin Yan <aimin.at.work at
gmail.com> wrote:
> >
> > I am using eulerr to get venn.
> > My code is like:
> >
> > fit1 <- euler(c("ciLAD" = 785, "LAD" = 565,
"nonXL_MEF" = 167,
> > "ciLAD&LAD" = 3,
"ciLAD&nonXL_MEF" = 101,
> > "LAD&nonXL_MEF" = 541,
> > "ciLAD&LAD&nonXL_MEF" = 2),shape
= "ellipse")
> >
> > plot(fit1,quantities = TRUE,fill = rainbow(7),lty = 1:2,labels >
list(font
> > = 1),alpha=0.7)
> >
> > After I get the figure, I find the position of some labels need to be
> > adjusted.
> >
> > Does anyone has some idea about how to process this?
>
> Looking at the code of plot.euler we see that the plotting paradigm is
> grid. So you could assign the output to a data.object name, search for list
> items that match the names of the labels you want to reposition, and modify
> the position values. You would need to be more specific, if you want a
> worked example.
>
> As far as I can see the lables and postions are fairly deep inside a list
> structure:
>
> $ children :List of 1
> ..$ GRID.gTree.12:List of 5
> .. ..$ children
> $ diagram.grob.1
> $children
> .. .. .. .. ..$ labels.grob :List of 11
> .. .. .. .. .. ..$ label : chr [1:3] "ciLAD"
"LAD" "nonXL_MEF"
> .. .. .. .. .. ..$ x : 'unit' num [1:3] -18.1native
> 69.2native 11.9native
> .. .. .. .. .. .. ..- attr(*, "valid.unit")= int 4
> .. .. .. .. .. .. ..- attr(*, "unit")= chr "native"
> .. .. .. .. .. ..$ y : 'unit' num [1:3] -17.86native
> 5.24native 27.86native
> .. .. .. .. .. .. ..- attr(*, "valid.unit")= int 4
> .. .. .. .. .. .. ..- attr(*, "unit")= chr "native"
>
> --
> David.
> >
> >
> > Thank you,
> >
> > Aimin
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
>
> David Winsemius
> Alameda, CA, USA
>
> 'Any technology distinguishable from magic is insufficiently
advanced.'
> -Gehm's Corollary to Clarke's Third Law
>
>
>
>
>
>
[[alternative HTML version deleted]]