如何在 r 中制作多个图，一个用于需要与另一个向量创建坐标的每个向量？答案

【问题标题】：How do make multiple plots in r, one for each vector that needs to create coordinates with another one?如何在 r 中制作多个图，一个用于需要与另一个向量创建坐标的每个向量？
【发布时间】：2021-06-02 12:20:03
【问题描述】：

所以，我有一个有序列表，例如：

(1, 2, 3, 4, 5, 6, 7, 8)

然后我有多个排列，比如说：

(3, 2, 5, 4, 1, 6, 7, 8),

(7, 2, 4, 1, 3, 5, 8, 6),

...

现在，我需要使用相同的有序列表分别绘制每个排列（在一个新的绘图中），这样我就形成了一个坐标散点图。

所以，对于第一个排列，我需要绘制 (1,3), (2,2), (3,5), (4,4), ...
对于第二个排列，我需要绘制 (1,7), (2,2), (3,4), (4,1), ...

类似这样的：

Example, where 'a' is the ordered list and 'b' is the first permutation

我为一对 + 排列对创建了这个，但我不知道如何使用多个排列对其进行缩放。我只是每次手动替换排列，但这样需要很长时间：

library(tidyverse)

ordered <- c(1, 2, 3, 4, 5, 6, 7, 8, 9)
permutation <- c(5, 7, 8, 6, 9, 4, 1, 3, 2)

coord.permutations <- data.frame(ordered,permutation)

ggplot(data=coord.permutations)+
  geom_point(aes(ordered,permutation,size=3))+
  scale_x_continuous(breaks = seq(0,(length(ordered)+1)), minor_breaks = seq(0,(length(ordered)+1)), expand = c(0,0), limits= c(0,(length(ordered)+1)))+
  scale_y_continuous(breaks = seq(0,(length(ordered)+1)), minor_breaks = seq(0,(length(ordered)+1)), expand = c(0,0), limits= c(0,(length(ordered)+1)))+
  coord_fixed()

提前感谢您的帮助！

【问题讨论】：

标签： r ggplot2 vector coordinates permutation

【解决方案1】：

假设您已将排列保存在列表 coord.permutations 中，那么您可以使用 map 遍历此列表并将每个图也保存在列表中。

library(tidyverse)
coord.permutations <- list(c(5, 7, 8, 6, 9, 4, 1, 3, 2), c(2, 9, 1, 6, 5, 4, 7, 3, 8))
plots <- map(coord.permutations, ~ggplot(tibble(ordered, permutation=.))+
        geom_point(aes(ordered,permutation,size=3))+
        coord_fixed())
plots[[1]]

使用 10 个排列的动画

library(gganimate)
ggplot(data.frame(ordered = rep(ordered, 10), permutation = unlist(map(1:10, ~sample(1:10, 9))), n_per = rep(1:10, each=9))) + 
  geom_point(aes(ordered,permutation)) +
  transition_states(n_per, transition_length = 2, state_length = 1) +
  ggtitle('Permutation {closest_state}')

【讨论】：