(forgot to cc the list!) -- Bert
---------- Forwarded message ---------- From: Bert Gunter <bgunter.4...@gmail.com> Date: Sun, May 28, 2017 at 9:41 AM Subject: Re: [R] Spacing Between Elements in Lattice Legend To: Lorenzo Isella <lorenzo.ise...@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.ise...@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@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. ______________________________________________ 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.