par(mfrow = c(2,1))
hist(ex4rank$rank[ex4rank$group==1],breaks = 10,xlim = c(0,30),
ylim = c(0,7),ylab = "Count",xlab = "",main = "Group 1",col = "blue")
hist(ex4rank$rank[ex4rank$group==2],breaks = 20,xlim = c(0,30),
ylim = c(0,7),ylab = "Count",xlab = "Rank",main = "Group 2",col = "blue")
Run the code above in your browser using DataLab