setwd<- "path/xxxx"
subfolder_names<- (a, b, c, d)
for (j in1: length(subfolder_names)){
folder<-dir.create("path/xxxx/", paste(j))}