カテゴリごとにラベルを張り替える

category1label<-c(0,0,0,0,1,1)
category2label<-c(0,0,0,1,1,1,1)
categoryall<-c(category1label,category2label)
newcategoryall<-c(category1label[order(runif(length(category1label)))],category2label[order(runif(length(category2label)))])

categoryall
[1] 0 0 0 0 1 1 0 0 0 1 1 1 1
newcategoryall
[1] 1 0 0 0 1 0 1 1 0 1 0 0

newcategoryall<-c(category1label[order(runif(length(category1label)))],category2label[order(runif(length(category2label)))])

newcategoryall
[1] 0 0 1 0 1 0 0 1 1 1 1 0 0