我想用gganim
包装来制作动画条形图。条形图的坐标应通过coord_flip
(即水平条)翻转,x轴应根据条形长度通过view_follow
制作。
请考虑以下示例数据:
# Create example data
df <- data.frame(ordering = c(rep(1:3, 2), 3:1, rep(1:3, 2)),
year = factor(sort(rep(2001:2005, 3))),
value = round(runif(15, 0, 100)),
group = rep(letters[1:3], 5))
如果我创建一个没有coord_flip
的动画条形图,一切正常:
library("gganimate")
library("ggplot2")
# Create animated ggplot without coord_flip
ggp <- ggplot(df, aes(x = ordering, y = value)) +
geom_bar(stat = "identity", aes(fill = group)) +
transition_states(year, transition_length = 2, state_length = 0) +
view_follow(fixed_x = TRUE) # +
# coord_flip()
ggp
但是,如果我添加coord_flip
,轴没有任何理由从一侧移动到另一侧:
# Create animated ggplot with coord_flip
ggp2 <- ggplot(df, aes(x = ordering, y = value)) +
geom_bar(stat = "identity", aes(fill = group)) +
transition_states(year, transition_length = 2, state_length = 0) +
view_follow(fixed_x = TRUE) +
coord_flip()
ggp2
问题:如何翻转条形图的轴并启用灵活的轴?