Displaying 2 results from an estimated 2 matches for "myset2".
Did you mean:
myset
Barchart in lattice - wrong order of groups, data labels on top of each other, and a legend question
2009 May 18
1
Barchart in lattice - wrong order of groups, data labels on top of each other, and a legend question
...pective bar?
3. Is there any way to make the legend group items horizontally as
opposed to now (vertically - taking up too much space)
Thanks a lot!
Dimitri
### Section 1: generates my data set "data" - just run: #####
N<-100
myset1<-c(1,2,3,4,5)
probs1<-c(.05,.10,.15,.40,.30)
myset2<-c(0,1)
probs2<-c(.65,.30)
myset3<-c(1,2,3,4,5,6,7)
probs3<-c(.02,.03,.10,.15,.20,.30,.20)
group<-unlist(lapply(1:4,function(x){
out<-rep(x,25)
return(out)
}))
set.seed(1)
a<-sample(myset1, N, replace = TRUE,probs1)
a[which(rbinom(100,2,.01)==1)]<-NA
set.seed(12)
b<-sa...
2009 May 16
1
barplot in a loop not printing out to directory
...plotted to the screen but does not print the plots themselves
anywhere (and not in the directory).
Thank you very much for your help!
Dimitri
### Section 1. This section generates my data set "data" - no problems there:
N<-100
myset1<-c(1,2,3,4,5)
probs1<-c(.05,.10,.15,.40,.30)
myset2<-c(0,1)
probs2<-c(.65,.30)
myset3<-c(1,2,3,4,5,6,7)
probs3<-c(.02,.03,.10,.15,.20,.30,.20)
group<-as.factor(sapply(1:4,function(x){
out<-rep(x,25)
out
}))
set.seed(1)
a<-sample(myset1, N, replace = TRUE,probs1)
a[which(rbinom(100,2,.01)==1)]<-NA
set.seed(12)
b<-sample(...