[R] Fwd: Spacing Between Elements in Lattice Legend

[Bert Gunter]

(forgot to cc the list!)

-- Bert



---------- Forwarded message ----------
From: Bert Gunter <bgunter.4567 at gmail.com>
Date: Sun, May 28, 2017 at 9:41 AM
Subject: Re: [R] Spacing Between Elements in Lattice Legend
To: Lorenzo Isella <lorenzo.isella at gmail.com>


See the "border" and "lwd" arguments in ?panel.barchart (checking the
panel function help for your display is always a good idea for such
questions).

Adding:

border = "lightgray", lwd=1,

to your call would seem to give what you want. (modify appropriately
to meet your aesthetic preferences).

Cheers,
Bert
Bert Gunter

"The trouble with having an open mind is that people keep coming along
and sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )


On Sun, May 28, 2017 at 8:26 AM, Lorenzo Isella
<lorenzo.isella at gmail.com> wrote:
> Dear All,
> Please consider the short code at the end of the email.
> It generates a barchart where everything is as I want, apart from some
> minor tuning of the legend.
> I can control the spacing between the text in the two rows of the
> legend, but how do I force some separation between the red and the
> blue rectangles in the legend?
> Any suggestion is welcome.
> Cheers
>
> Lorenzo
>
> ###############################################
>
> library(lattice)
> library(latticeExtra)
>
>
> df_tot<-structure(list(country = structure(c(13L, 1L, 3L, 21L, 12L, 6L,
> 22L, 14L, 19L, 20L, 4L, 16L, 9L, 11L, 18L, 17L, 7L, 8L, 2L, 15L,
> 10L, 5L, 13L, 1L, 23L, 21L, 12L, 6L, 22L, 14L, 19L, 20L, 4L,
> 16L, 9L, 11L, 24L, 18L, 25L, 28L, 26L, 17L, 7L, 8L, 2L, 27L,
> 15L, 10L), .Label = c("BE", "PT", "CZ", "EL", "TR", "EE", "NO",
> "PL", "IE", "SI", "IL", "DK", "AT", "FI", "SE", "HU", "NL", "IT",
> "FR", "UK", "DE", "ES", "CY", "IS", "LT", "MT", "RS", "LV"), class =
> "factor"),
>    number = c(12L, 1L, 2L, 42L, 11L, 4L, 78L, 12L, 35L, 41L,
>        2L, 21L, 8L, 9L, 25L, 24L, 4L, 4L, 1L, 12L, 8L, 3L, 5L, 1L,
>             1L, 32L, 16L, 3L, 75L, 20L, 16L, 29L, 3L, 9L, 10L, 5L, 1L,
>                 33L, 1L, 2L, 1L, 6L, 7L, 2L, 3L, 1L, 11L, 3L), year =
>                 c(2015,
>                     2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015,
>                     2015, 2015,
>                         2015, 2015, 2015, 2015, 2015, 2015, 2015,
>                         2015, 2015, 2015,
>                             2015, 2016, 2016, 2016, 2016, 2016, 2016,
>                             2016, 2016, 2016,
>                                 2016, 2016, 2016, 2016, 2016, 2016,
>                                 2016, 2016, 2016, 2016,
>                                     2016, 2016, 2016, 2016, 2016,
>                                     2016, 2016)), .Names =
>                                     c("country",
>                                     "number", "year"), row.names =
>                                     c(NA, -48L), class = "data.frame")
>
>
> p1 <- barchart(number ~ country ,
>              groups= as.factor(year),
>                              data = df_tot## ,
>                                             , origin=0, spect="fill",
>
>             par.settings = c(ggplot2like(col=c("blue", "red"))),
>                             axis = axis.grid, xlab=list("Number of
>                             Beneficiaries", cex=1.2),
>                             ylab=list("Country", cex=1.2),##
>                             main=NULL,
>                                            main=list(NULL),between =
>                             list(x = 1),
>                               scales=list(cex=1), auto.key =
>                             list(title = "Year",
>                             columns=1,space="right",padding.text=3)
>                                            )
>                                            pdf("beneficiaries_all2.pdf",
>                             width=15, height=5)
>                             print(p1)
>                             dev.off()
>
> ______________________________________________
> 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.