英文:
How to make the arrows animate in R
问题
如何使箭头从一端移动到另一端。我想表示能量流动。
plot <- ggplot(combined_total_active_2, aes(x = 0, y = 0)) +coord_fixed() +theme_void() +theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a"))# 添加连接圆圈的线段plot <- plot +geom_curve(aes(x = 0, y = 0, xend = -1, yend = 0),curvature = 0, arrow = arrow(length = unit(0.21, "inches")),color = "#ffc559", size = 1.2, alpha = 0.6) +geom_segment(aes(x = -3, y = 0, xend = 3, yend = 0), color = "#ffc559",size = 1.5, lineend = "round") +geom_segment(aes(x = 0, y = -3, xend = 0, yend = 3), color = "#ffc559",size = 1.5, lineend = "round")plot
输出：
两条线段和1个箭头
英文:
How can I make the arrow move from one end to other. I want to represent an energy flow.
plot <- ggplot(combined_total_active_2, aes(x = 0, y = 0)) +coord_fixed()+theme_void()+theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a"))# Add lines connecting the circlesplot <- plot +geom_curve(aes(x = 0, y = 0, xend = -1, yend = 0),curvature = 0, arrow = arrow(length = unit(0.21, "inches")),color = "#ffc559", size = 1.2, alpha = 0.6)+geom_segment(aes(x = -3, y = 0, xend = 3, yend = 0), color = "#ffc559",size = 1.5, lineend = "round") +geom_segment(aes(x = 0, y = -3, xend = 0, yend = 3), color = "#ffc559",size = 1.5, lineend = "round")plot
Output:
Two line segments and 1 arrow
答案1
得分: 1
使用gganimate，您可以执行以下操作：
library(gganimate)p <- ggplot(data.frame(val = seq(3, -3, -0.1), time = 1:61)) +geom_segment(arrow = arrow(length = unit(0.21, "inches")),color = "#ffc559", linewidth = 1.2, alpha = 0.6,aes(x = 3, y = 0, xend = val, yend = 0)) +geom_hline(color = "#ffc559", linewidth = 1.2, yintercept = 0) +geom_vline(color = "#ffc559", linewidth = 1.2, xintercept = 0) +coord_fixed(xlim = c(-3, 3), ylim = c(-3, 3)) +theme_void() +theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a")) +transition_manual(time)animate(p, fps = 61)
要更改为填充的圆圈，只需执行以下操作：
p <- ggplot(data.frame(val = seq(3, -3, -0.1), time = 1:61)) +geom_point(aes(x = val, y = 0), size = 8, color = "#ffc559") +geom_hline(color = "#ffc559", linewidth = 1.2, yintercept = 0) +geom_vline(color = "#ffc559", linewidth = 1.2, xintercept = 0) +coord_fixed(xlim = c(-3, 3), ylim = c(-3, 3)) +theme_void() +theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a")) +transition_manual(time)animate(p, fps = 61)
您提供的R代码已经被翻译成中文。
英文:
Using gganimate you could do:
library(gganimate)p <- ggplot(data.frame(val = seq(3, -3, -0.1), time = 1:61)) +geom_segment(arrow = arrow(length = unit(0.21, "inches")),color = "#ffc559", linewidth = 1.2, alpha = 0.6,aes(x = 3, y = 0, xend = val, yend = 0)) +geom_hline(color = "#ffc559", linewidth = 1.2, yintercept = 0) +geom_vline(color = "#ffc559", linewidth = 1.2, xintercept = 0) +coord_fixed(xlim = c(-3, 3), ylim = c(-3, 3)) +theme_void() +theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a")) +transition_manual(time)animate(p, fps = 61)
EDIT
To change to a filled circle we can just do
p <- ggplot(data.frame(val = seq(3, -3, -0.1), time = 1:61)) +geom_point(aes(x = val, y = 0), size = 8, color = "#ffc559") +geom_hline(color = "#ffc559", linewidth = 1.2, yintercept = 0) +geom_vline(color = "#ffc559", linewidth = 1.2, xintercept = 0) +coord_fixed(xlim = c(-3, 3), ylim = c(-3, 3)) +theme_void() +theme(panel.background = element_rect(fill = "#11141a"),plot.background = element_rect(fill = "#11141a")) +transition_manual(time)animate(p, fps = 61)
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论