Я пытаюсь разработать al oop для построения графика каждого столбца из набора данных под названием chr с использованием кода, который я использую, a для l oop, обусловленного некоторыми критериями, для сохранения графиков в list
desired_length <- 8
plot_list <- vector(mode = "list", length = desired_length)
for(i in 3:10) {
{lot_list[[i-2]] <- ggplot(chr) +
geom_point(data = chr, aes(x = chr[,1], y = chr[,i], color = ponto),
size = 2) +
geom_hline(yintercept = as.double(cla[1,i-1]), size = 2, linetype = "dashed", color = "black") +
ylim(0,max(chr[,i], na.rm = TRUE)) +
labs(title = glue("Resultados analíticos no corpo receptor do empto para {(colnames(chr))[i]}"),
subtitle = glue("Padrão de c3 ={cla[,i-1]} mg/L"), y = glue("{(colnames(chr))[i]} (mg/L)"), x = "Período de análise", caption = glue("Número de amostras = {sum(!is.na(chr[,i]))}")) +
theme_minimal()
}
}
, если я сохраняю, если вручную, например, например:
plot_list[[1]] <- ggplot(chr) +
geom_point(data = chr, aes(x = chr[,1], y = chr[,3], color = ponto),
size = 2) + ...
, он отлично отображается, когда я запускаю
plot_list[[1]]
but when i run the plot after running the loop, also with plot_list[ 1 ], он отображает, что все значения отсутствуют, и показывает только этот график с предупреждением: Удалено 142 строки, содержащие отсутствующие значения (geom_point).
график с пропущенными значениями
Что могло пойти не так? заранее спасибо за помощь