Add legend inside each panel with Lattice in R -

-

i wanna make scatter plot connecting lines different groups , different individuals. make panels conditioned group variable , groups conditioned individual variables. now, add legend inside each panels(see code below). in plots, have legends of individuals grp==1 in first panel, grp==2 in second panel, on forth. legends located in upper left corner of panel belong to. how shall code? 

library(lattice) mydata   <- data.frame(id = rep(1: 20, each = 10),                        grp = rep(1: 4, each = 50),                         x = rep(0: 9, 20)) mydata$y <- 1.2 * mydata$grp * mydata$x +              rnorm(nrow(mydata), sd = mydata$grp)  xyplot(y~ x | factor(grp), data = mydata,      groups = id,      type = "b",      as.table = t,      layout = c(2, 2),      panel = panel.superpose,      panel.groups = function (x, y, ...) {          panel.xyplot(x, y, ...)      }  )

try this. note subset command comes in data statement in xyplot. on purpose. if call subset xyplot argument, plots have shown 20 labels in each plot.

library(lattice) mydata <- data.frame(id = rep(1:20, each = 10), grp = rep(1:4, each = 50), x = rep(0:9, 20)) mydata$y <- 1.2 * mydata$grp * mydata$x + rnorm(nrow(mydata), sd = mydata$grp)  i=1; j=1 for(grp in 1:4) {       <- xyplot(y~x|factor(grp), data=subset(mydata, grp==grp),                   groups = factor(id),                   type = "b",                   auto.key=list(columns=4,space="inside")                   )   print(a, split=c(i,j,2,2), more=t)   i=i+1; if(i>2){i=1;j=j+1} # basically, tell plots quadrant go in }

Comments

Post a Comment

Popular posts from this blog

ruby on rails - Is it the correct way to implement belongs_to relation with factory girl? -

-
i have realy easy model. user have role_id depends of role table (id, name) role reference. i want create users of types on rspec test, factory girl. my first idea factory :role name "guest" factory :role_admin name "admin" end factory :role_supervisor name "supervisor" end etc... have lot different roles end factory :user email password '123456' password_confirmation '123456' association :role, factory: :role factory :admin association :role, factory: :role_admin end factory :supervisor association :role, factory: :role_supervisor end etc... have lot different roles end in model have simple method : def is(role_name) return self.role.name == role_name end it's correct way to? realy need create factory role? can make stub function in factory girl each role? i realy new test stuff, thanks. factories should reflect models. class user has_many :products en
Read more

geolocation - Windows Phone 8 - Keeping background location tracking active beyond four hours -

-
i'm in process of developing wp8 app makes use of background location tracking abilities provided os. idea monitor users position , notify them when near types of places. so far seems work fine , when running location tracking works expect. the problem is, seems phone times out background apps after around 4 hours, stopping location tracking. i can understand why microsoft did it, preserve battery life etc. there's not point having background location tracking app has manually restarted every 4 hours! if user chooses run app , made aware of potential battery hit, surely should able run indefinitely - point of course, if system runs out of resources or similar that's fair enough. does have experience this? there must hundreds of others apps in store have run issue have thought? , presumably there must way of keeping location tracking running? i've tried periodically updating live tile (using dispatchertimer) while tracking running doesn't seem enough ke
Read more

Uncaught TypeError: Cannot read property 'parentNode' of null javascript -

-
this code should make element disappear list when dropped on element (called cookiemonster) addevent(cookiemonster, 'drop', function (e) { if (e.stoppropagation) e.stoppropagation(); var el = document.getelementbyid(e.datatransfer.getdata('text')); el.parentnode.removechild(el); return false; }); create auxiliar variable this addevent(cookiemonster, 'drop', function (e) { if (e.stoppropagation) e.stoppropagation(); var el = document.getelementbyid(e.datatransfer.getdata('text')); var aux = el.parentnode; aux.removechild(el); return false; });
Read more