data(Context)
Context <- within(Context, Pc <- NumYes/(NumYes + NumNo))
lattice::xyplot(Pc ~ TargCntr | ContCntr, data = Context,
groups = Obs, type = c("l", "p"),
auto.key = list(space = "right"))
Run the code above in your browser using DataLab