Hi
The 'x' component of the 't' grob that you get back from grid.get() is a
unit object, which you can subset and assign to a subset, for example
this code nudges the fourth label up and to the right 1mm in each
direction ...
x <- t$x
y <- t$y
x[4] <- t$x[4] + unit(1, "mm")
y[4] <- t$y[4] + unit(1, "mm")
grid.edit("quantities.grob", x=x, y=y)
... is that the sort of thing you were looking for ?
Paul
On 15/09/18 09:03, Aimin Yan wrote:
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 <dwinsem...@comcast.net>
wrote:
On Sep 13, 2018, at 2:31 PM, Aimin Yan <aimin.at.w...@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@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]]
______________________________________________
R-help@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.
--
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
p...@stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/
______________________________________________
R-help@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.
