为什么我的R图不绘制所有线条/颜色？

如何解决为什么我的R图不绘制所有线条/颜色？

我试图用不同的T值绘制方程的多条线。我通过一个for循环来做到这一点。我也尝试为每条线上色，所以我创建了一个向量以容纳五种颜色。当for循环遍历T值向量时，它应使用颜色向量为每行着色，但缺少第一行。程序代码可能比我解释的更好。我真的可以使用一些帮助。我对R非常陌生。谢谢！

# calculates the blackbody flux density,call graph function
Blackbody_Flux <- function(color,i,t,w,c1,c2) {
  print(t)
  BWave = (c1 * w^(-5)) / (exp(c2 / (w * t)) - 1)
  
  print(i)
  
  #Graph_Flux(BWave,w)
  points(w,BWave,col=color[i])
}

# create temperature variables
t1 = 5500
t2 = 5000
t3 = 4500
t4 = 4000
t5 = 3500
temperatures <- c(t1,t2,t3,t4,t5)

# create constant variables
h <- 6.626 * 10^(-34)
c <- 3.00 * 10^8
k <- 1.30648 * 10^(-23)
w = 0:2000
w = w * 1e-9 # 1 x 10^-9

# counter 
i = 0

# controls color of line
color <- c("red","blue","yellow","green","black")

plot(1,type="n",main="Blackbody Flux Density",xlab = "wavelength (nm)",ylab = "Blackbody Flux Density (kW/m2/nm)",xlim=c(0,2e-6),ylim=c(0,5e13))

# loop through temperatures vector,call Blackbody_Flux
for (temp in temperatures) {
  
  c1 <- 2 * pi * h * c^2
  c2 <- (h * c) / k
  
  # call formula method,pass this as parameter
  Blackbody_Flux(color,temp,c2)
  
  i = i+1
}