转自gganimate: How to Create Plots with Beautiful Animation in R
library(ggplot2)
library(gganimate)
theme_set(theme_bw())
library(gapminder)
head(gapminder)
p <- ggplot(
gapminder,
aes(x = gdpPercap, y=lifeExp, size = pop, colour = country)
) +
geom_point(show.legend = FALSE, alpha = 0.7) +
scale_color_viridis_d() +
scale_size(range = c(2, 12)) +
scale_x_log10() +
labs(x = "GDP per capita", y = "Life expectancy")
p
image.png
p + transition_time(year) +
labs(title = "Year: {frame_time}")
1.gif
p + facet_wrap(~continent) +
transition_time(year) +
labs(title = "Year: {frame_time}")
2.gif
p + transition_time(year) +
labs(title = "Year: {frame_time}") +
view_follow(fixed_y = TRUE)
view_follow.gif
p + transition_time(year) +
labs(title = "Year: {frame_time}") +
shadow_wake(wake_length = 0.1, alpha = FALSE)
shadow_wake.gif
p + transition_time(year) +
labs(title = "Year: {frame_time}") +
shadow_mark(alpha = 0.3, size = 0.5)
shadow_mark.gif
p <- ggplot(
airquality,
aes(Day, Temp, group = Month, color = factor(Month))
) +
geom_line() +
scale_color_viridis_d() +
labs(x = "Day of Month", y = "Temperature") +
theme(legend.position = "top")
p
gganimate-line-plot-1.png
p + transition_reveal(Day)
let-data-gradually-appear.gif
p +
geom_point() +
transition_reveal(Day)
let-data-gradually-appear-show-points.gif
p +
geom_point(aes(group = seq_along(Day))) +
transition_reveal(Day)
let-data-gradually-appear-keep-points.gif
library(dplyr)
mean.temp <- airquality %>%
group_by(Month) %>%
summarise(Temp = mean(Temp))
mean.temp
## # A tibble: 5 x 2
## Month Temp
## <int> <dbl>
## 1 5 65.5
## 2 6 79.1
## 3 7 83.9
## 4 8 84.0
## 5 9 76.9
p <- ggplot(mean.temp, aes(Month, Temp, fill = Temp)) +
geom_col() +
scale_fill_distiller(palette = "Reds", direction = 1) +
theme_minimal() +
theme(
panel.grid = element_blank(),
panel.grid.major.y = element_line(color = "white"),
panel.ontop = TRUE
)
p
image.png
p + transition_states(Month, wrap = FALSE) +
shadow_mark()
transition_states.gif
