#generate data
set.seed(123)
seed <- sample(1:1000,length(letters))


d <- data.frame(matrix(NA, nrow = 40000, ncol = 26))
for (i in 1:26) {
  set.seed(seed[i])
  d[,i] <- sample(1:4, 40000, replace = T)
}

names(d) <- letters
write.csv(d,"data_26_40000.csv",row.names = F)

d <- data.frame(matrix(NA, nrow = 40000, ncol = 8))
set.seed(123)
seed <- sample(1:1000, ncol(d))

for (i in 1:ncol(d)) {
  set.seed(seed[i])
  d[,i] <- sample(1:2, 40000, replace = T)
  
}
names(d) <- letters[1:ncol(d)]
write.csv(d,'data_for_dot.csv',row.names = F)