I am trying to plot some data from my swim team from the last competitions.
Анимированный сюжет здесь: https://imgur.com/aoNs1HC
(1) Чтобы улучшить внешний вид, я вставил фоновое изображение. Однако это фоновое изображение каким-то образом перекрывает оригинальную анимацию. Вы можете увидеть это в анимации ниже. Это фоновое изображение уже имеет непрозрачность 70%, но я все еще не могу правильно увидеть анимированную линию.
Я пытался изменить непрозрачность фонового изображения, но безуспешно
library(ggplot2)
library(gganimate)
library(png)
data <- tibble::tribble(~Heat, ~Performance,
8.1, 5.6,
8.2, 5.9,
8.3, 5.5,
8.4, 6.2,
8.5, 6.8,
8.6, 7.2,
8.7, 7.6,
)
url <- "https://i.imgur.com/mREnnlF.png"
download.file(url, destfile = "background_image.png")
background_image <-readPNG("background_image.png")
p <- ggplot(data, aes(Heat, Performance)) +
geom_line(color='coral', size = 1) +
geom_point(color= "steelblue", size = 3) +
background_image(background_image) +
transition_reveal(Heat) +
ease_aes('cubic-in-out')
animate(p, fps = 10, end_pause=10, width = 800, height = 400)
Ястремление к тому, чтобы анимированная линия четко отображалась спереди, в то время как фоновое изображение настроено на 100% непрозрачность и, таким образом, явно отличается от анимированной линии на переднем плане.