>source

수백 줄의 줄거리가 있습니다. 시간이 지남에 따라 이러한 줄이 표시되기를 바랍니다. 먼저 천천히, 청중에게 무슨 일이 일어나고 있는지 설명할 시간을 갖습니다. 더 빠르고 더 빠르게.

아래의 최소한의 예는 애니메이션이 현재 어떻게 보이는지에 대한 예를 제공합니다. 내가 원하는 것은 첫 번째 프레임에 몇 초가 있고, 두 번째 프레임은 대략 절반, 세 번째 프레임은 그 절반 등입니다. 기본적으로 지속 시간은 기하급수적으로 작아야 합니다.

하지만 기간을 변경하는 방법을 알 수 없습니다. 옵션이라고 생각했는데easy_aes()다음과 같은 기능을 허용하므로 수행해야 합니다.exponential_in. 이 옵션을 사용해도 저에게는 아무것도 바뀌지 않는 것 같습니다.

또한 특정 프레임의 속도를 늦추는 것을 발견했기 때문에 이 code를 제 사용 사례에 적용할 수 있어야 한다고 생각했습니다. 다시 말하지만 전환 지속 시간은 프레임 간에 동일하게 보입니다. (마지막 예는 이전 줄이 사라지는 문제가 있다는 점에 유의하십시오. 이 또한 내가 원하지 않습니다. 지속 시간이 변경되지 않음을 설명하기 위한 것입니다.)

내가 무엇을 놓치고 있습니까?

library(data.table)
library(gganimate)
DT <-data.table(x= rep(1:10,  times=100),
                 y= rep(1:10,  times=100) + rnorm(1000),
                 id= rep(1:100, each=10))
anim <-ggplot(DT) +
  geom_line(aes(x=x, y=y, group=id)) +
  transition_reveal(id)
animate(anim, nframes= 100)
####Playing around with eas_aes does not work for me
anim <-ggplot(DT) +
  geom_line(aes(x=x, y=y, group=id)) +
  transition_reveal(id) +
  ease_aes("exponential-in")
animate(anim, nframes= 100)
####Transition states also doesn't work:
# https://stackoverflow.com/questions/66923904/how-to-make-the-transition-time-between-2-frames-longer-in-gganimate
anim <-ggplot(DT) +
  geom_line(aes(x=x, y=y, group=id)) +
  transition_states(id,
                    state_length= 0,
                    transition_length= 100:1)
animate(anim, nframes= 100)

  • 답변 # 1

    만들면시각연속 시간 사이에 기하급수적으로 떨어지는 간격이 있는 열에 따라 표시합니다.

    DT <-data.table(x= rep(1:10,  times=100),
                     y= rep(1:10,  times=100) + rnorm(1000),
                     id= rep(1:100, each=10),
                     time= rep(cumsum(100 /1:100), each= 10))
    anim <-ggplot(DT) +
      geom_line(aes(x=x, y=y, group=id)) +
      transition_reveal(time)
    animate(anim, nframes= 200)
    

  • 이전 javascript : Vue 테스트에서 컴포넌트가 표시되는지 확인하는 방법
  • 다음 matrix : Stata 공간 자기회귀 모델: `spatwmat` 및 `spatreg`에서 `spset` 및 `spreg`로