在for循环中为data_frame_2的首个空列依次填充计算值

Got it, let's sort out this loop so it fills the empty columns in data_frame_2 one after another—starting with head 3 first, then head 4, and so on.

The Problem with Your Original Code #

Your current line data_frame_2[, "next_empty_column"] uses a fixed placeholder name, which means every loop iteration will overwrite the same column instead of moving to the next empty one. We need to dynamically find the first empty column each time the loop runs.

Modified Code with Explanations #

First, let's confirm the initial structure of data_frame_2 (here's a reproducible example matching your description):

# Example initialization of data_frame_2
data_frame_2 <- data.frame(
  `head 1` = c("a", "c", "e", "g"),
  `head 2` = c("b", "d", "f", "h"),
  `head 3` = rep(NA, 4),
  `head 4` = rep(NA, 4),
  `head 5` = rep(NA, 4),
  stringsAsFactors = FALSE
)

Now here's the updated loop that fills columns sequentially as needed:

for (product in products) {
  # Filter the subset based on price conditions
  # Important: If your price column is numeric, skip the string conversions!
  condition_1 <- datasets[[product]]$price >= 450
  condition_2 <- datasets[[product]]$price < 450 + 30 # Equivalent to < 480
  subset_data_frame <- datasets[[product]][condition_1 & condition_2, ]
  
  # Find the index of the FIRST completely empty column (all rows are NA)
  first_empty_col <- which(colSums(is.na(data_frame_2)) == nrow(data_frame_2))[1]
  
  # Only fill if there's still an empty column left to avoid errors
  if (!is.na(first_empty_col)) {
    # Calculate column means (add na.rm=TRUE to handle NAs in the subset)
    data_frame_2[, first_empty_col] <- colMeans(subset_data_frame, na.rm = TRUE)
  }
  
  writeLines(".", sep = "")
}

Key Changes Breakdown #

• Dynamic Empty Column Detection: colSums(is.na(data_frame_2)) == nrow(data_frame_2) checks which columns have NA values in every row. Adding [1] grabs the first of these columns, ensuring we always fill the leftmost empty column first.
• Numeric Price Handling: I removed quotes around 450 and replaced as.character(450+30) with 480—if your price column is numeric (which it should be for price data!), string comparisons can lead to weird results (like "50" being treated as larger than "100" because of string ordering).
• Error Prevention: The if (!is.na(first_empty_col)) check stops the code from trying to fill a column when all columns are already full, avoiding runtime errors.
• Robust Mean Calculation: Adding na.rm = TRUE to colMeans ensures that if your subset has any NA values, the mean will still compute correctly instead of returning NA.

Quick Side Note #

If your price column is stored as a character string for some reason, convert it to numeric first with as.numeric(datasets[[product]]$price) before applying the conditions—this is always better practice for numerical comparisons!

内容的提问来源于stack exchange，提问作者Ana Karla Nobre Dias