R : geom_text() gganimate 出错
R : geom_text() goes wrong with gganimate
geom_text() 函数在 gganimate 中没有正确显示。 gganimate 可以正确打印线图的标签,但不能正确打印条形图的标签。请问我该如何解决这个问题?有没有其他方法可以使用 gganimate 在我的绘图上打印值?
library(tidyr)
library(dplyr)
library(ggplot2)
library(gganimate)
tramway_df <- data.frame(
stop_order = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17),
stop_id = c(9943, 5041, 5361, 2902, 2903, 5872, 5802, 5803, 5804, 5805,
5710, 5711, 5712, 1643, 5714, 521, 529),
stop_name = c("DA VINCI", "DA VINCI", "BORDET STATION", "VAN CUTSEM", "FONSON", "PAIX",
"TILLEUL", "HELMET", "FOYER SCHAERBEEK.", "WAELHEM", "VERBOEKHOVEN", "PAVILLON",
"RUBENS", "LIEDTS", "THOMAS", "GARE DU NORD", "ROGIER"),
stop_in = c(27, 102, 153, 141, 190, 317, 379, 438, 328, 214, 278, 298, 154, 144, 162, 185, 0),
stop_out = c(0, 7, 3, 10, 22, 37, 81, 122, 143, 168, 291, 230, 149, 301, 412, 707, 821),
stop_charge = c(27, 121, 271, 402, 571, 851, 1149, 1465, 1650, 1696, 1682, 1745, 1750, 1592, 1342, 821, 0)
)
plot <- tramway_df %>%
gather(movement, value, stop_in:stop_out) %>%
mutate(stop_id = factor(stop_id, levels = unique(stop_id)),
value = ifelse(movement == "stop_out", -value, value)) %>%
ggplot(aes(x = stop_id)) +
geom_col(aes(y = value, fill = movement), position = "dodge", width = 1) +
geom_point(aes(y = stop_charge), color = "green") +
geom_line(aes(y = stop_charge, group=1), color = "green") +
geom_text(aes(label = value, y = value), hjust = 1, vjust = 0) +
geom_text(aes(label = stop_charge, y = stop_charge), hjust = 1, vjust = 1) +
scale_x_discrete(breaks = tramway_df$stop_id,
labels = tramway_df$stop_name) +
theme_bw() +
theme(axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1))
animation <- plot + transition_reveal(stop_order)
animate(animation, height = 500, width = 800)
通过添加 position = position_dodge2(width = 0.9, preserve = "single")
和更多参数,它可以正确打印。您可能需要更多参数来定位条形图的文本。
plot <- tramway_df %>%
gather(movement, value, stop_in:stop_out) %>%
mutate(stop_id = factor(stop_id, levels = unique(stop_id)),
value = ifelse(movement == "stop_out", -value, value)) %>%
ggplot(aes(x = stop_id)) +
geom_col(aes(y = value, fill = movement), position = "dodge", width = 1) +
geom_point(aes(y = stop_charge), color = "green") +
geom_line(aes(y = stop_charge, group=1), color = "green") +
geom_text(position = position_dodge2(width = 0.9, preserve = "single"), aes(label = value, y = value + 30 * sign(value), fill = movement, hjust = 0.5)) +
geom_text(aes(label = stop_charge, y = stop_charge), hjust = 1, vjust = 1) +
scale_x_discrete(breaks = tramway_df$stop_id,
labels = tramway_df$stop_name) +
theme_bw() +
theme(axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1))
animation <- plot + transition_reveal(stop_order)
animate(animation, height = 500, width = 800)
geom_text() 函数在 gganimate 中没有正确显示。 gganimate 可以正确打印线图的标签,但不能正确打印条形图的标签。请问我该如何解决这个问题?有没有其他方法可以使用 gganimate 在我的绘图上打印值?
library(tidyr)
library(dplyr)
library(ggplot2)
library(gganimate)
tramway_df <- data.frame(
stop_order = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17),
stop_id = c(9943, 5041, 5361, 2902, 2903, 5872, 5802, 5803, 5804, 5805,
5710, 5711, 5712, 1643, 5714, 521, 529),
stop_name = c("DA VINCI", "DA VINCI", "BORDET STATION", "VAN CUTSEM", "FONSON", "PAIX",
"TILLEUL", "HELMET", "FOYER SCHAERBEEK.", "WAELHEM", "VERBOEKHOVEN", "PAVILLON",
"RUBENS", "LIEDTS", "THOMAS", "GARE DU NORD", "ROGIER"),
stop_in = c(27, 102, 153, 141, 190, 317, 379, 438, 328, 214, 278, 298, 154, 144, 162, 185, 0),
stop_out = c(0, 7, 3, 10, 22, 37, 81, 122, 143, 168, 291, 230, 149, 301, 412, 707, 821),
stop_charge = c(27, 121, 271, 402, 571, 851, 1149, 1465, 1650, 1696, 1682, 1745, 1750, 1592, 1342, 821, 0)
)
plot <- tramway_df %>%
gather(movement, value, stop_in:stop_out) %>%
mutate(stop_id = factor(stop_id, levels = unique(stop_id)),
value = ifelse(movement == "stop_out", -value, value)) %>%
ggplot(aes(x = stop_id)) +
geom_col(aes(y = value, fill = movement), position = "dodge", width = 1) +
geom_point(aes(y = stop_charge), color = "green") +
geom_line(aes(y = stop_charge, group=1), color = "green") +
geom_text(aes(label = value, y = value), hjust = 1, vjust = 0) +
geom_text(aes(label = stop_charge, y = stop_charge), hjust = 1, vjust = 1) +
scale_x_discrete(breaks = tramway_df$stop_id,
labels = tramway_df$stop_name) +
theme_bw() +
theme(axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1))
animation <- plot + transition_reveal(stop_order)
animate(animation, height = 500, width = 800)
通过添加 position = position_dodge2(width = 0.9, preserve = "single")
和更多参数,它可以正确打印。您可能需要更多参数来定位条形图的文本。
plot <- tramway_df %>%
gather(movement, value, stop_in:stop_out) %>%
mutate(stop_id = factor(stop_id, levels = unique(stop_id)),
value = ifelse(movement == "stop_out", -value, value)) %>%
ggplot(aes(x = stop_id)) +
geom_col(aes(y = value, fill = movement), position = "dodge", width = 1) +
geom_point(aes(y = stop_charge), color = "green") +
geom_line(aes(y = stop_charge, group=1), color = "green") +
geom_text(position = position_dodge2(width = 0.9, preserve = "single"), aes(label = value, y = value + 30 * sign(value), fill = movement, hjust = 0.5)) +
geom_text(aes(label = stop_charge, y = stop_charge), hjust = 1, vjust = 1) +
scale_x_discrete(breaks = tramway_df$stop_id,
labels = tramway_df$stop_name) +
theme_bw() +
theme(axis.text.x = element_text(angle = 60, hjust = 1, vjust = 1))
animation <- plot + transition_reveal(stop_order)
animate(animation, height = 500, width = 800)