使用R语言生成4列向量，其中每一列向量的取值都为1或0，向量长度为n，并且每一列出现1的个数分别为0.4*n，0.3*n，0.2*n，0.1*n，并且同一行只能出现一个1，请问该如何写代码

可以使用以下代码生成符合要求的4列向量：

n <- 100 # 设定向量长度为100
v1 <- sample(c(rep(1, 0.4*n), rep(0, 0.6*n)))) # 生成长度为n的向量，其中1的个数为0.4*n
v2 <- sample(c(rep(1, 0.3*n), rep(0, 0.7*n)))) # 生成长度为n的向量，其中1的个数为0.3*n
v3 <- sample(c(rep(1, 0.2*n), rep(0, 0.8*n)))) # 生成长度为n的向量，其中1的个数为0.2*n
v4 <- sample(c(rep(1, 0.1*n), rep(0, 0.9*n)))) # 生成长度为n的向量，其中1的个数为0.1*n

# 确保同一行只有一个1
m <- matrix(c(v1, v2, v3, v4), ncol = 4) # 将4个向量合并成一个矩阵
m <- t(apply(m, 1, function(x) {ifelse(sum(x) > 1, sample(x), x)})) # 检测每一行是否有多个1，如果有则随机保留一个1，删除其他1

v1 <- m[, 1] # 将矩阵中的每一列重新赋值给4个向量
v2 <- m[, 2]
v3 <- m[, 3]
v4 <- m[, 4]

这段代码首先生成长度为n的4个向量，其中每个向量中1的个数分别为0.4*n，0.3*n，0.2*n，0.1*n。然后将这4个向量合并成一个矩阵，并检测每一行是否有多个1。如果有，则随机保留一个1，删除其他1。最后将矩阵中的每一列重新赋值给4个向量。