R语言：处理字符矩阵并将迭代结果存储为独立向量

Hey there! Let's work through your matrix processing task step by step with R code that hits all your requirements. I'll break it down clearly so you can follow along easily.

Step 1: Define Your Forbidden Characters #

First, let's formalize that list of forbidden values you mentioned. We'll store them in a vector for easy checking:

# Define the set of forbidden characters/strings
forbidden_chars <- c("Z", "B", "E", "V", "D", "VS", "VZ")

Step 2: Clean Up NA Values #

Assuming your matrix has either R's native NA values or string "NA" entries, we'll first standardize them to R's NA for consistent handling. If your matrix already uses R's NA, you can skip this first line:

# Convert string "NA" entries to R's native NA (skip if your matrix already uses NA)
my_matrix[my_matrix == "NA"] <- NA

Step 3: Remove Columns With Forbidden Values #

Next, we'll identify and drop any column that contains at least one of the forbidden values. We use apply() to check each column against our forbidden list:

# Identify columns that DON'T contain any forbidden values
valid_cols <- !apply(my_matrix, 2, function(col) {
  any(col %in% forbidden_chars, na.rm = TRUE)
})

# Keep only the valid columns (drop forbidden ones)
clean_matrix <- my_matrix[, valid_cols, drop = FALSE]

Step 4: Convert to Independent Vectors (No NA Values) #

Finally, we'll iterate over the cleaned matrix (either row-wise or column-wise, your call) to create separate vectors with all NA values removed. Here's how to do it row-wise:

# Iterate over each row, remove NA values, and save as a named vector
for (row_num in 1:nrow(clean_matrix)) {
  # Extract the row, filter out NA values
  cleaned_row <- clean_matrix[row_num, !is.na(clean_matrix[row_num, ])]
  # Assign to a global variable like my_vector1, my_vector2, etc.
  assign(paste0("my_vector", row_num), cleaned_row, envir = .GlobalEnv)
}

If you prefer column-wise storage instead, just swap out the loop with this version:

# Iterate over each column, remove NA values, and save as a named vector
for (col_num in 1:ncol(clean_matrix)) {
  # Extract the column, filter out NA values
  cleaned_col <- clean_matrix[, col_num][!is.na(clean_matrix[, col_num])]
  # Assign to a global variable like my_vector1, my_vector2, etc.
  assign(paste0("my_vector", col_num), cleaned_col, envir = .GlobalEnv)
}

Quick Notes #

• The drop = FALSE in clean_matrix ensures we keep the matrix structure even if only one column remains.
• na.rm = TRUE in the column check makes sure NA values don't interfere with detecting forbidden characters.
• The assign() function saves each cleaned row/column to your global environment with the naming convention you requested.

内容的提问来源于stack exchange，提问作者Satria Arief Wicaksono Bakri