如何在R语言中生成指定形式矩阵？全零矩阵循环填充方法问询

Hey there! Let's tackle your matrix-related questions in R, starting from the basics and moving to your specific for loop need.

There are several straightforward ways to create matrices depending on what you need:

• All-zero matrix: As you already know, use matrix() with 0 as the fill value. Your code a <- 10; m <- matrix(0, a, a) works perfectly for a 10x10 zero matrix.
• All-one matrix: Swap 0 with 1: matrix(1, nrow=5, ncol=5) creates a 5x5 all-one matrix.
• Random value matrix: Use functions like runif() for uniform random numbers or rnorm() for normal distribution values:

  # 3x3 matrix with random values between 0 and 1
  random_mat <- matrix(runif(9), nrow=3)
  

• Diagonal matrix: Use diag() to make a matrix with values only on the main diagonal:

  # 4x4 diagonal matrix with 2s on the diagonal
  diag_mat <- diag(2, nrow=4)
  

• From existing vectors: Reshape a vector into a matrix if you have pre-defined values:

  vec <- c(1,2,3,4,5,6)
  mat_from_vec <- matrix(vec, nrow=2, ncol=3)
  

Great that you've already got the zero matrix setup! Let's walk through how to use for loops to target specific regions while keeping the rest as 0. We'll use your 10x10 matrix as an example.

Example 1: Fill the main diagonal with 1s #

If you want to set each element where the row index matches the column index to 1:

a <- 10
m <- matrix(0, a, a)

# Loop through each index (row and column are the same for diagonal)
for (i in 1:a) {
  m[i, i] <- 1
}

After running this, your matrix will have 1s along the diagonal and 0s everywhere else.

Example 2: Fill a rectangular sub-region with a specific value #

Suppose you want to fill rows 3 to 7, columns 2 to 6 with the value 5. Use nested loops to target this area:

a <- 10
m <- matrix(0, a, a)

# Outer loop for rows, inner loop for columns
for (row in 3:7) {
  for (col in 2:6) {
    m[row, col] <- 5
  }
}

This will set exactly that 5x5 sub-section to 5, leaving all other positions as 0.

Example 3: Fill every other row with a pattern #

Say you want even-indexed rows to have values matching their column indices (1 to 10):

a <- 10
m <- matrix(0, a, a)

# Loop through even rows only
for (row in seq(2, a, by=2)) {
  for (col in 1:a) {
    m[row, col] <- col
  }
}

Now rows 2,4,6,8,10 will have 1-10 in their columns, while odd rows stay 0.

A quick side note: While for loops work perfectly here, R is a vectorized language—so you can often skip loops for efficiency (e.g., m[3:7, 2:6] <- 5 does the same as the nested loop in Example 2 without loops). But if you specifically need to use for loops (for learning or more complex conditional logic), the examples above should serve you well!

内容的提问来源于stack exchange，提问作者Berry