Dear All:
Greetings!
I am able to produce an "xyplot" in R; But I am not able to put
multiple
legends on it! So for that matter, I have saved the "xyplot" and
reproduced
the same using the simple "plot" option. Then using the
"legend" option I
successfully placed the require text and its corresponding value over it.
Now, when I try to copy it as a Meta file, it shows error and R terminates
abruptly. So I will be grateful if somebody could guide me to overcome this
since I am interested in saving the graphs as a Meta file than any other
file!
Below furnished is the R Code that I have used for the same.
CorrCoeff <- 0
Corr <- cor.test(FCV, FCV_Fitted)
CorrCoeff <- as.numeric(round(Corr$estimate,4))
myPlot <- xyplot(FCV + FCV_Fitted ~ Year, data=Tobacco,
col=c("orange","blue4"), freq=TRUE,
main="FCV Tobacco Production & Forecasted Figures Over The
Years
: India", font=2, type="b",
auto.key = list (type = "", points=F, lines = F, border =
F,
text = c("Observed Production Figures", "Fitted Values"),
font=2,
col=c("orange","blue4"), x = 0, y = 0.95),
xlab=list("Year",
font=2), ylab=list("'000 Metric Tones", font=2))
old.prompt <- grid::grid.prompt(TRUE)
detach(package:lattice)
plot.new()
par(new=TRUE, font=4)
plot(myPlot, xlab = "", ylab = "", ann=FALSE,
xaxt="n", yaxt="n")
legend(x="bottomright", bty="n", lty=c(0),
col=c("black"),
title= ("Correlation Coefficient"), legend=c(CorrCoeff))
Many Thanks in advance,
Prasanth VP,
Global Manager - Biometrics,
Delta Technology & Management Services Pvt Ltd,
Plot No: 13/2, Sector - I,
Third Floor, HUDA Techno Enclave,
Madhapur, Hyderabad - 500 033.
Office: +91-40-3024 9508.
Mobile : +91-9848 290025
<http://www.deltaintech.com/> www.deltaintech.com
****************************************************************************
**************
'The information contained in this email is confidential and may contain
proprietary information. It is meant solely for the intended recipient.
Access to this email by anyone else is unauthorized. If you are not the
intended recipient, any disclosure, copying, distribution or any action
taken or omitted in reliance on this, is prohibited and may be unlawful. No
liability or responsibility is accepted if information or data is, for
whatever reason corrupted or does not reach its intended recipient. No
warranty is given that this email is free of viruses. The views expressed in
this email are, unless otherwise stated, those of the author and not those
of DELTA Technology and Management Services pvt ltd or its management. DELTA
Technology and Management Services pvt ltd reserves the right to monitor
intercept and block emails addressed to its users or take any other action
in accordance with its email use policy'
Thank you in advance for your cooperation.
****************************************************************************
**************
P Please don't print this e-mail unless you really need to.
[[alternative HTML version deleted]]
