R Повтор цикла соответствует условию разрыва, но не разрывается
У меня есть список из 29 матриц с именем «M», и если в матрице меньше 227 строк, я хочу продолжать добавлять строки NA, пока в ней не будет 227 строк.
У меня есть код, который производит именно то, что я хочу, однако мне нужно остановить R вручную, так как перерыв не работает.
library(tibble)
repeat{
for(i in 1:29){
if (dim(M[[i]])[1] < 227){ # if a matrix has less than 227 rows, I want to add a row
M[[i]] <- M[[i]] %>% add_row
if (dim(M[[29]])[1] == 227){ # if the final matrix has 227 rows, I want it to break
break
}
}
}
}
Я проверил условие разрыва после, и это правда.
identical(dim(M[[29]])[1], 227)
[1] TRUE
Любая помощь будет принята с благодарностью, спасибо!
Ответы 3
Можно динамически получить количество строк с помощью sapply, взять max («mx»). Используйте это, чтобы проверить каждый из элементов «M», if он меньше, чем «mx», затем назначьте новые строки как NA и верните матрицу.
mx <- max(sapply(M, nrow))
M1 <- lapply(M, function(x) {
if (nrow(x) < mx) {
x[(nrow(x) + 1):mx,] <- NA
}
x})
Вы разрываете внутреннюю петлю for (i in 1:29). Вы никогда не разорвете внешнюю repeat петлю.
Спасибо за объяснение, знаете ли вы, как быстро изменить приведенный выше код, чтобы он разорвал цикл повторения?
На самом деле, на это был дан ответ в другом ответе, все равно спасибо!
Разорвите петлю перед концом внешней repeat петли. Тогда код работает.
Сначала я составлю набор данных.
Он попытается создать матрицы с не более чем max_rows строками.
library(magrittr)
library(tibble)
df <- tibble(x = 1:3, y = 3:1)
M <- list(df, df, df)
max_rows <- 8
n <- length(M)
repeat{
for(i in seq_along(M)){
if (nrow(M[[i]]) < max_rows){ # if a matrix has less than 227 rows, I want to add a row
M[[i]] <- M[[i]] %>% add_row
}
}
if (nrow(M[[n]]) == max_rows){ # if the final matrix has 227 rows, I want it to break
break
}
}
nrow(M[[n]])
#[1] 8
Интересно, спасибо за это! Глядя на ваш код сейчас, я смог просто переместить скобки, как вы, и он отлично работает. Кажется, теперь я понимаю, что происходит с перерывом, теперь он указывает на повтор.
Спасибо! Это отличная альтернатива, спасибо за подробное объяснение