On Mar 27, 2014, at 8:11 AM, el_alisio wrote:
> Hi Kevin,
>
> thanks for the advice! The code is now reproducible. Sorry!
No, it is not, since you can only read it on Nabble, yecch. There is some sort
of weird format stuff that Nabble does that prevents code from appearing on
Rhelp copies.
> Actually I wanted to print only one x-label ("All Postdoctorates") in bold
> face, not all of them. This would be easily achieved, if "All
> Postdoctorates" appeared always in the same row of each panel, but this is
> not the case here.
>
p1 <- dotplot(prop.table(postdoc, margin = 1), groups = FALSE,
xlab = "Proportion", layout = c(1, 5), aspect = 0.6,
scales = list(y = list(relation = "free", rot = 0) ),
prepanel = function(x, y) {
list(ylim = levels(reorder(y, x)))
},
panel = function(x, y, ...) {
panel.dotplot(x, reorder(y, x), ...)
},
yscale.components = function(...){
temp <- yscale.components.default(...)
loc <- temp$left$labels$at
print( temp$left$labels$labels <-
sapply( temp$left$labels$labels,
function(x) if(grepl("All", x)){
as.expression(bquote( bold(.(x))))
}else{
as.expression(bquote(.(x)))} ))
temp }
)
print(p1)
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/lattice-change-font-of-one-specific-axis-label-in-each-panel-tp4687638p4687663.html
> Sent from the R help mailing list archive at Nabble.com.
Nabble si not an archive. It throws stuff away. It is not the Rhelp mailing
list either.
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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
______________________________________________
R-help@r-project.org mailing list
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.
