The colors represent phenotypes: healthy (pink), obese + severe diabetes (green), obese + well controled diabetes (blue), and obese only (purple). Unfortunately, there is no information on the batch effect.
I started with raw cel files and did the following:
data = ReadAffy(celfile.path=celpath)
data.rma.norm = affy::rma(data)
rma = exprs(data.rma.norm)
Then I used prcomp for the PCA.
You should use the raw p-values, not the adjusted p-values, to inspect the histogram