[R] show 0 at y axis in xyplot lattice

[Jeff Newmiller]

I recommend that Maria read [1], [2] and especially [3], since the latter helps you verify that your example is in fact reproducible before sending it out for us to have problems with and complain about. 

[1] http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example

[2] http://adv-r.had.co.nz/Reproducibility.html

[3] https://cran.r-project.org/web/packages/reprex/index.html (read the vignette) 

-- 
Sent from my phone. Please excuse my brevity.

On September 11, 2017 3:50:29 PM PDT, Bert Gunter <bgunter.4567 at gmail.com> wrote:
>Not reproducible, as we have neither "example.csv" nor "Date" .
>
>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 Mon, Sep 11, 2017 at 2:38 PM, Maria Lathouri <mlathouri at yahoo.gr>
>wrote:
>
>> Dear Bert and all,
>>
>> I am really sorry. This is the full code:
>>
>> dat<-read.csv("example.csv")
>> attach(dat)
>>
>> sdate<-as.Date(Date, format="%Y-%m-%d")
>>
>> #change the colour of the strip background
>> my.settings <- canonical.theme(color=FALSE)
>> my.settings[['strip.background']]$col <- "blue"
>>
>> dat_key <- list(space="right",
>>                 lines = list(type = c("b", "b", "b"), pch=c(22, 21,
>22),
>> col = c("red", "black", "red"),
>>                              fill=c("red", "black", "red"), lwd=1,
>> lty=c(2, 1, 2)),
>>                 text = list((c("upper se",
>(expression(paste(Zn^paste(2,"+")))),
>> "lower se"))))
>>
>> xyplot(upper.zn + Zn2 + lower.zn ~ sdate | Location, type="b",
>> as.table=TRUE, data=dat, pch=c(22, 21, 22), lty=c(2, 1, 2),
>>        index.cond=list(c(3, 1, 2)), ylab="Percent (%)",
>> par.strip.text=list(col="white", font=2, lines=1.5),
>>        lattice.options = modifyList(lattice.options(),
>> list(skip.boundary.labels = 0)),
>>        par.settings=my.settings, col=c("red", "black", "red"),
>> fill=c("red", "black", "red"),
>>        key=dat_key, scales = list(x = list(at = sdate, labels =
>> format(sdate, "%b-%y")), y=list(at=c(0, 20, 40, 60, 80))),
>xlab="Date",
>>        panel = function(x, y, ...) {
>>          panel.grid(h = -1, v = 0, lwd=1, lty=3, col="grey")
>>          panel.abline(v=sdate, lwd=1, lty=3, col="grey")
>>          panel.xyplot(x, y, ...)
>>          }
>>          )
>>
>> Hope this helps.
>>
>> Kind regards,
>> Maria
>>
>>
>> Στις 10:15 μ.μ. Δευτέρα, 11 Σεπτεμβρίου 2017, ο/η Bert Gunter <
>> bgunter.4567 at gmail.com> έγραψε:
>>
>>
>> 1. Not reproducible since my.settings, dat_key, sdate not provided.
>>
>> 2. Why did you not try something like ylim = c(-5,80)  ?
>>
>>
>> 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 Mon, Sep 11, 2017 at 12:33 PM, Maria Lathouri via R-help <
>> r-help at r-project.org> wrote:
>>
>> Dear all
>> I am trying to make a plot in xyplot lattice by groups. I would like
>to
>> show "0" in y axis but I don't want to be aligned with the x axis. I
>want
>> to be a little bit above.
>> I have tried many options but I don't get what I want. I also tried
>> ylim=c(0, 80) but both 0 and 80 are fully aligned with the x-axis and
>the
>> upper boundary of the plot, respectively:
>> xyplot(upper.zn + Zn2 + lower.zn ~ sdate | Location, type="b",
>> as.table=TRUE, data=dat, pch=c(22, 21, 22), lty=c(2, 1, 2), ylim=c(0,
>80),
>>        index.cond=list(c(3, 1, 2)), ylab="Percent (%)",
>> par.strip.text=list(col=" white", font=2, lines=1.5),
>>        lattice.options = modifyList(lattice.options(),
>> list(skip.boundary.labels = 0)),
>>        par.settings=my.settings, col=c("red", "black", "red"),
>> fill=c("red", "black", "red"),
>>        key=dat_key, scales = list(x = list(at = sdate, labels =
>> format(sdate, "%b-%y"))), xlab="Date",
>>        panel = function(x, y, ...) {
>>          panel.grid(h = -1, v = 0, lwd=1, lty=3, col="grey")
>>          panel.abline(v=sdate, lwd=1, lty=3, col="grey")
>>          panel.xyplot(x, y, ...)
>>          }
>>          )
>> when I use the following, 80 is a bit lower than the upper boundary
>of the
>> plot, which is what I want, but 0 is not showing:
>> xyplot(upper.zn + Zn2 + lower.zn ~ sdate | Location, type="b",
>> as.table=TRUE, data=dat, pch=c(22, 21, 22), lty=c(2, 1, 2),
>>        index.cond=list(c(3, 1, 2)), ylab="Percent (%)",
>> par.strip.text=list(col=" white", font=2, lines=1.5),
>>        lattice.options = modifyList(lattice.options(),
>> list(skip.boundary.labels = 0)),
>>        par.settings=my.settings, col=c("red", "black", "red"),
>> fill=c("red", "black", "red"),
>>        key=dat_key, scales = list(x = list(at = sdate, labels =
>> format(sdate, "%b-%y")), y=list(at=c(0, 20, 40, 60, 80))),
>xlab="Date",
>>        panel = function(x, y, ...) {
>>          panel.grid(h = -1, v = 0, lwd=1, lty=3, col="grey")
>>          panel.abline(v=sdate, lwd=1, lty=3, col="grey")
>>          panel.xyplot(x, y, ...)
>>          }
>>          )I have also attached a reproducible example in case you
>want to
>> see in more detail my data.
>> I would very much appreciate any suggestions on this.
>> Thank you in advance.
>> Kind regards,Maria
>> ______________________________ ________________
>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/ listinfo/r-help
>> <https://stat.ethz.ch/mailman/listinfo/r-help>
>> PLEASE do read the posting guide http://www.R-project.org/
>> posting-guide.html <http://www.r-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>
>>
>>
>>
>
>	[[alternative HTML version deleted]]
>
>______________________________________________
>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.