Как создать мономиальный сюжет в R?

Question

Я хочу создать функцию, результатом которой будет график с мономами (степень меньше «n»).

Я написал простой код.

Monomial=function(m){
  x=1:100
  y=1:100
  for(i in m) x2=x^m
  plot(y,x2,type="l",col="red",xlab="Arguments",ylab="Values",
       main=expression("Monomials"))

Но дляпример: моном (3) я получаю сюжет х ^ 3. Мне нужно еще х ^ 1 и х ^ 2. Как назвать каждую строку?

Answer 1

Вот что вам нужно:

Monomial <- function(m){
  x <- 1:100
  cols <- palette(rainbow(m))

  plot(x,x,type="l",col = cols[1],xlab="Arguments",ylab="Values",
       main=expression("Monomials"))

  for (d in 2:m){
      lines(x, x^d, type="l", col=cols[d])
  }

  legend(90, 60, legend=c(as.character(paste0("x",1:m))),
         col=cols, lty=1, cex=0.6)
}

Вам нужно генерировать цвета. Это то, что достигается переменной cols. lines добавляет новую кривую к существующим осям. Наконец, ledend добавляет легенду к сюжету.