This is my reproducible example
tv.ms<-structure(list(inq = structure(4:17, .Label = c("D4", "D5", "D6a",
"D6b", "D6c", "D7", "D8", "F4", "F5a", "F5b", "F6a", "F6b", "F6c",
"F6d", "F7a", "F7b", "F8"), class = "factor"), tv.km.median.iteq =
c(0.320000000000004,
0.239999999999998, 0.240000000000002, 0.0800000000000001, 0.989999999999995,
0.309999999999999, 4.47000000000003, 0.620000000000005, 0.620000000000005,
0.18, 0.790000000000006, 0.32, 0.0200000000000005, 0.01), ms.km.median.iteq
= c(0.420000000000002,
0.380000000000001, 0.33, 0.0900000000000001, 1.06999999999994,
0.559999999999974, 5.20000000000027, 1.5, 1.19, 0.469999999999999,
0.310000000000002, 0.459999999999999, 0.0400000000000003, 0.04
), type = c("PCDD", "PCDD", "PCDD", "PCDD", "PCDF", "PCDF", "PCDF",
"PCDF", "PCDF", "PCDF", "PCDF", "PCDF", "PCDF", "PCDF")), .Names = c("inq",
"tv.km.median.iteq", "ms.km.median.iteq", "type"), row.names = 4:17, class =
"data.frame")
I worked out the chart mainly with the hints of this great forum (thanks
again for that): what I’ve done so far accomplishes my needs except for that
now I need a little final tweaking in order to avoid the overlapping of some
specific labels (i.e. by looking at the plot the labels: F6b and F6a, F7a
and F5a)
xyplot(tv.km.median.iteq~ms.km.median.iteq|type, data=tv.ms,
layout=c(1,2),
aspect="xy",
xlab = expression(paste('ms [ fg/', m^3, ' ]', sep = '')),
ylab = expression(paste('tv [ fg/', m^3, ' ]', sep = '')),
scales= list(relation="free", log=10, cex=0.8),
prepanel = function(x, y, subscripts) {
rr<- range(cbind(x,y))
list(xlim = rr, ylim= rr)
},
panel = function(x, y , subscripts,...) {
panel.xyplot(x, y, cex=0.8,...)
panel.abline(a = 0, b = 1, lty = 2, col ="gray")
panel.text(x, y, labels=tv.ms$inq[subscripts],
cex = 0.7, pos=3, offset=1, srt=0, adj=c(1,1))
#alternative to the use of panel.text
#ltext(x=x, y=y, labels=tv.ms$inq[subscripts], pos=1, cex=0.8)
},
#subscripts=TRUE,
xscale.components = function(...) {
ans <- xscale.components.logpower(...)
range <- ans$num.limit
newtck <- round(seq(range[1],range[2],l=7),1)
ans$bottom$ticks$at <- newtck
ans$bottom$labels$at <- newtck
ans$bottom$labels$labels <-parse(text=paste('10^',newtck,sep=''))
ans
} ,
yscale.components = function(...) {
ans <- yscale.components.logpower(...)
range <- ans$num.limit
newtck <- round(seq(range[1],range[2],l=7),1)
ans$left$ticks$at <- newtck
ans$left$labels$at <- newtck
ans$left$labels$labels <-parse(text=paste('10^',newtck,sep=''))
ans
}
)
I’m thinking to sort out the problem by:
1 - plotting all labels except for those overlapping (i.e the above
mentioned points);
2 - plotting the remaining labels (i.e. the overlapping ones) by introducing
a “manual displacement”;
I know that’s probably not much efficient nor elegant resorting to a “manual
solution” involving at least two “plotting steps” (the first to see where to
tweak and the second to fix) but I can’t think to any other solution
Any help?
Thank you
max
--
View this message in context:
http://r.789695.n4.nabble.com/lattice-xyplot-point-labelling-tp4659798.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
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.
