Почему не работает else if?

Question

[meburka]

У меня есть такой кусок кода:

for ( i in 1:length(a$y) ) {
	if (a$y[i] > 2000) {
		fill_colors <- c(fill_colors, "#71b84f")
	}
	else if (a$y[i] > 10000) {
		fill_colors <- c(fill_colors, "#821122")
	} else {
		fill_colors <- c(fill_colors, "#cccccc")
	}
}

Но он плохо работает, ибо часть с else if - нерабочая, ведь на отрывках которые больше 10000 всё равно цвет "#71b84f".

Answer 1

[otdameskapizm]

Потому что у тебя проваливается в первое условие всегда.
Ведь то, что больше 10000, одновременно больше и 2000. В первом if сделай интервал от 2000 до 10000 и должно заработать

Comments

[meburka]

Что-что по типу

for ( i in 1:length(a$y) ) {
	if (a$y[i] > 0 & a$y[i] >= 2000) {
		fill_colors <- c(fill_colors, "#71b84f")
		if (a$y[i] >= 10000 & a$y[i] > 2000) {
			fill_colors <- c(fill_colors, "#9e1515")
			}
		} else {
		fill_colors <- c(fill_colors, "#cccccc")
	}
}

?

[otdameskapizm]

Что-то по типу:

• if (a$y[i] >= 2000 & a$y[i] <= 10000) {} - Это будет "#71b84f"
  
• else if (a$y[i] > 10000) {} - Это будет "#821122"
  
• else {} - Это будет все остальное, что меньше 2000
  

[meburka]

otdameskapizm, Спасибо!