在各种大小的矩阵上创建空行答案

【问题标题】：Creating empty rows on matrix of various size在各种大小的矩阵上创建空行
【发布时间】：2016-04-26 01:39:34
【问题描述】：

我正在尝试使用以下数据生成矩阵，有没有办法创建空行以使矩阵大小相同？

#Generating original data
n <- c(12,24)
mu <- c(6.573,6.5)
sigma <- sqrt(0.25)
Diseased.Data <- round(rnorm(n[1],mu[1],sigma),4)
Healthy.Data <- round(rnorm(n[2],mu[2],sigma),4)
g <- c(2,3,4)

cstar.pool <- (mu[1]+mu[2])/2
#generating pooled data
for(i in 1:3){
  assign(paste("pool.dis.data",i,sep = ""),replicate(n[1]/g[i],mean(sample(Diseased.Data,g[i]))))
  assign(paste("pool.hel.data",i,sep = ""),replicate(n[2]/g[i],mean(sample(Healthy.Data,g[i]))))
}

#generating the pooled diseased data matrix
dis.mat1<- matrix(data = pool.dis.data1,length(pool.dis.data1),1)
dis.mat2 <- matrix(data = pool.dis.data2,length(pool.dis.data2),1)
dis.mat3 <- matrix(data = pool.dis.data3,length(pool.dis.data3),1)
dis.mat2 <- rbind(dis.mat2,NA)
dis.mat2 <- rbind(dis.mat2,NA)
dis.mat3 <- rbind(dis.mat3,NA)
dis.mat3 <- rbind(dis.mat3,NA)
dis.mat3 <- rbind(dis.mat3,NA)
dis.matrix <- matrix(NA, max(length(pool.dis.data1),length(pool.dis.data2),length(pool.dis.data3)),3)
dis.matrix[,1] <- cbind(dis.mat1)
dis.matrix[,2] <- cbind(dis.mat2)
dis.matrix[,3] <- cbind(dis.mat3)

【问题讨论】：

不确定你在问什么，但如果你想要一个空的 6X3 矩阵，你可以试试：matrix(nrow = 6, ncol = 3) -> dis.matrix

标签： r matrix rbind cbind

【解决方案1】：

我想说你最好的选择是从一个你需要的大小的空矩阵开始。您可以告诉矩阵在创建时指定尺寸，如下所示：

new <- matrix( data = NA, nrow = 10, ncol = 20 )

因此，您只需根据输入数据为每个维度创建一个值：

num.rows <- max( length(n), length(mu), ... )
num.columns <- [ I'd just enter a numeric value here ]
new <- matrix( data = NA, nrow = num.rows, ncol = num.columns )

然后您可以根据需要填充列，确保将多余的部分留空。例如：

new[(1:length(n)),3] <- n

那里的“1:length(n)”部分将告诉 R 在输入您给它的值后停止填充该列。否则 R 将继续填充，你会得到重复的值，我猜你不想要。

【讨论】：

谢谢你，new[(1:length(n)),3]