Я пытаюсь сделать диаграмму рассеяния, подобную этой, с gganimate в R:
введите описание изображения здесь
Но я не могу найти никакой функции, чтобы сделать то, что делает легенда в добавленном ранее сюжете.
Кто-нибудь знает, как я могу создать легенду, похожую на эту? Время отображается в строке легенды, и когда цвет изменяется в полосе, то же происходит и на фоне графика.
Если кто-нибудь знает, какая программа или язык использовалась для создания этого графика или знает, на каком языке программирования я мог бы сделайте аналогичную анимацию, я буду благодарен за то, что вы мне скажете.
Спасибо.
Изменить: это пример кода, с которым я работал, с набором данных Gapminder. Код, который я использовал для анимации с помощью gganimate, следующий:
library(ggplot2)
library(gapminder)
library(gganimate)
library(gifski)
p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size=pop,
color=country))+
geom_point(alpha = 0.6)+
scale_color_manual(values = country_colors)+
scale_size(range = c(2,15))+
scale_x_log10()+
facet_wrap(~continent)+
theme_bw()+
theme(legend.position = 'none')+
theme(axis.text = element_text(size=20),
axis.title = element_text(size = 22, face = 'bold'),
strip.text = element_text(size = 20))+
labs(title = "Year: {frame_time}", x = "GDP per capita", y = "Life expentancy")+
transition_time(year)
animate(p, nframes=120,
renderer = gifski_renderer("Gapminder.gif"),
height = 700, width = 1000)
Итак, я хочу создать легенду, такую как полоса на графике gif, который я добавил ранее, где проходят годы. в баре. Он также имеет цвета для каждого периода времени, и когда цвет изменяется на полосе, также меняется цвет фона графика.