R语言 gganimate未在定义的值处停止

0s7z1bwu 于 2023-01-22 发布在其他

关注(0)|答案(1)|浏览(151)

更新：抱歉，我忘记添加矢量：

time=1:100 
value = 1:67
fill = rep(max(value), 100-max(value))

我想做一个动画堆叠酒吧，这里是我的例子：

library(tidyverse)
library(gganimate)

#example data frame
df <- tibble(time = time, 
             value = c(value, fill),
             x = "A") %>% 
  mutate(fill_color = "gold") %>% 
  mutate(gold_nr = value) %>% 
  mutate(blue_nr = rev(gold_nr)) %>%
  pivot_longer(c(gold_nr, blue_nr),
               names_to = "color_group",
               values_to = "value_group")  

# the code:
p <- df %>% 
  ggplot(aes("", value_group, fill=color_group)) +
  geom_col(width = 0.3, position = position_fill())+
  scale_fill_manual(values = c("gold", "steelblue"))+
  theme_minimal()+
 # theme(legend.position="none")+
  transition_manual(value)+ 
  coord_flip()

animate(p, fps=24, renderer = gifski_renderer(loop = FALSE))

**我的问题是：为什么条形图不停留在67，而是跳过75？**我想我必须用另一种方式组织数据？

来源：https://stackoverflow.com/questions/75192777/gganimate-does-not-stop-at-the-defined-value

1条答案

按热度按时间

ars1skjm1#

您应该使用时间列来对帧进行分组。

tail(df, 4)
#     time fill_color color_group value_group
# 197   99       gold     gold_nr          67
# 198   99       gold     blue_nr           2
# 199  100       gold     gold_nr          67
# 200  100       gold     blue_nr           1

现在，该图正确显示了上一时间范围内的比例。

proportions(df[df$time == 100, ]$value_group)
# [1] 0.98529412 0.01470588

library('magrittr')

p <- df %>% 
  ggplot2::ggplot(ggplot2::aes("", value_group, fill=color_group)) +
  ggplot2::geom_col(width=0.3, position=position_fill()) +
  ggplot2::scale_fill_manual(values=c("steelblue", "gold")) +
  ggplot2::theme_minimal() +
  ggplot2::coord_flip() +
  gganimate::transition_manual(time)

a <- gganimate::animate(p, fps=24, renderer=gifski_renderer(loop=TRUE))
gganimate::anim_save('a.gif', a)

请注意，您的颜色被翻转。

赞(0）回复(0）举报 2023-01-22

我来回答

R语言 gganimate未在定义的值处停止

1条答案

相关问题

热门标签

最新问答