r – uso do Sys.sleep

Question:

I can't make a point-to-point graph, the R plot the graph later is in the Sys.sleep count, can someone help me?

  n=1
  Cn=6.45
  x<-3
  t<- seq(1,20)
  for (i in 1:21) {
  flux  = round(Cn*sin(n*pi*x / 5)*exp(-(pi^2*n^2/25)*t), digits = 2)
  flux
  plot(flux, type = "o", col = "red4")
  Sys.sleep(.25)
  }

How can I increase the size of the chart?

Answer:

Is a point-by-point graph an animation type graph? If so, the code below will solve your problem:

# criacao as variaveis e calculo do flux

n  <- 1
Cn <- 6.45
x  <- 3
t  <- seq(1, 20)
flux  <- round(Cn*sin(n*pi*x / 5)*exp(-(pi^2*n^2/25)*t), digits=2)

# cria um grafico vazio com as dimensoes
plot(flux ~ t, type="n") 

for (i in 1:length(t)) {
  points(flux[i] ~ t[i], type="o", col="red4")
  Sys.sleep(.25)
}

The problem with the original code was using the command plot(flux, type = "o", col = "red4") . It was rotated 21 times, always creating a complete graph with all 20 points. By using the points command, I can add the points of the graph one by one, without deleting the previous ones.

Scroll to Top