barplot in loop in R
Here is my question: #data 1: lab1 <- 1:10 group <- rep(1:3, each = length (lab1)) label <- rep(lab1, 3) avar <- rep(c(0, 1, 4, 5, 6, 8, 10, 11, 12, 13), 3) myd <- data.frame (group, label, avar) # data 2 fillcol <- rep(rnorm(length(lab1)-1, 0.5, 0.2), 3) group1 <- rep(1:3, each = length(fillcol)/3) # this variable will be used to fill color in bars filld <- data.frame(group1, fillcol) # now plotting par(mfrow = c(3, 1)) par(mar = c(2.5, 1, 2.5, 1)) #plot1 myd1 <- myd[myd$group ==1,] filld1 <- filld[filld$group1 ==1,] blues <- colorRampPalette(c("yellow", "blue")) barplot(as.matrix(diff(myd1