How to add abline with lattice xyplot function?

r lattice
hn.phuong picture hn.phuong · Aug 14, 2012 · Viewed 20.2k times · Source

I am trying to plot two variables: Eeff vs Neff using xyplot function of lattice package. I would like to know how to add an line to this scatter plot (which is abline function in normal R graphic system).

xyplot(Neff ~ Eeff, data = phuong,
       xlab = "Energy efficiency (%)", 
       ylab = "Nitrogen efficiency (%)")

Answer

A5C1D2H2I1M1N2O1R2T1 picture A5C1D2H2I1M1N2O1R2T1 · Aug 14, 2012

The lattice package has several "panel functions", one of which is panel.abline.

Try this and see if it gives you what you're looking for:

xyplot(Neff ~ Eeff, data = phuong,
       panel = function(x, y) {
         panel.xyplot(x, y)
         panel.abline(lm(y ~ x))
       }, 
       xlab = "Energy efficiency (%)", 
       ylab = "Nitrogen efficiency (%)")

Related questions

How to save a plot as image on the disk?

I plot a simple linear regression using R. I would like to save that image as PNG or JPEG, is it possible to do it automatically? (via code) There are two different questions: First, I am already looking at the …

Read More
How to plot a function curve in R

What are the alternatives for drawing a simple curve for a function like eq = function(x){x*x} in R? It sounds such an obvious question, but I could only find these related questions on stackoverflow, but they are all …

Read More
How to add boxplots to scatterplot with jitter

I am using following commands to produce a scatterplot with jitter: ddf = data.frame(NUMS = rnorm(500), GRP = sample(LETTERS[1:5],500,replace=T)) library(lattice) stripplot(NUMS~GRP,data=ddf, jitter.data=T) I want to add boxplots over these points (one …

Read More