R中的迁移（或转换）路径映射

我需要在R中制作迁移（或转换）路径图

下面是我的data.frame示例

ID order state
1      1     a
1      2     b
1      3     b
2      1     b
2      2     b
2      3     c
3      1     b
3      2     c
4      1     a
4      2     b
5      1     c

在此data.frame中，ID1已按照顺序移动到a->b->b

在相同的透视图中，ID2已移动到b->b->c，ID3已移动到b->c，ID4已移动到a->b。ID5没有移动

在聚合级别，我们可以制作如下所示的迁移（或转换）路径映射

在此地图中，箭头具有路径的频率信息。圆圈有状态的频率信息

---

如何在R中制作此路径图？是否有用于此的软件包？

这里有一种可能性，可以使用

图表

软件包。这里的大部分工作只是将数据重塑成一种好的格式。也许有更有效的方法，但这至少似乎是可行的。首先，你的数据。我还想确保我们将

order

列视为一个因子，而不是一个数值

#sample input data
dd<-structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 
    5L), order = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L), 
    state = structure(c(1L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 1L, 2L, 3L), 
    .Label = c("a", "b", "c"), class = "factor")),
    .Names = c("ID", "order", "state"), 
    class = "data.frame", row.names = c(NA, -11L))
dd$order<-factor(dd$order)

#示例输入数据
dd这里有一个使用
图表
包的可能性。这里的大部分工作只是将数据重塑成一种好的格式。也许有更有效的方法，但这至少似乎是可行的。首先，你的数据。我还想确保我们将
order
列视为一个因子，而不是一个数值

#sample input data
dd<-structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 
    5L), order = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L), 
    state = structure(c(1L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 1L, 2L, 3L), 
    .Label = c("a", "b", "c"), class = "factor")),
    .Names = c("ID", "order", "state"), 
    class = "data.frame", row.names = c(NA, -11L))
dd$order<-factor(dd$order)

#示例输入数据
dd这里有一个使用
图表
包的可能性。这里的大部分工作只是将数据重塑成一种好的格式。也许有更有效的方法，但这至少似乎是可行的。首先，你的数据。我还想确保我们将
order
列视为一个因子，而不是一个数值

#sample input data
dd<-structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 
    5L), order = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L), 
    state = structure(c(1L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 1L, 2L, 3L), 
    .Label = c("a", "b", "c"), class = "factor")),
    .Names = c("ID", "order", "state"), 
    class = "data.frame", row.names = c(NA, -11L))
dd$order<-factor(dd$order)

#示例输入数据
dd这里有一个使用
图表
包的可能性。这里的大部分工作只是将数据重塑成一种好的格式。也许有更有效的方法，但这至少似乎是可行的。首先，你的数据。我还想确保我们将
order
列视为一个因子，而不是一个数值

#sample input data
dd<-structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 
    5L), order = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L), 
    state = structure(c(1L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 1L, 2L, 3L), 
    .Label = c("a", "b", "c"), class = "factor")),
    .Names = c("ID", "order", "state"), 
    class = "data.frame", row.names = c(NA, -11L))
dd$order<-factor(dd$order)

#示例输入数据
ddIt要求我们为您查找软件包/库被认为是离题的。请编辑以使这个问题更加集中于编程任务或考虑在其他地方发布。我建议您尝试用<代码> Trime< /Cord>实现这一点，然后返回到一个特定的编程问题。请确保在问题中包含您尝试过的代码。要求我们为您查找包/库被认为是离题的。请编辑以使这个问题更加集中于编程任务或考虑在其他地方发布。我建议您尝试用<代码> Trime< /Cord>实现这一点，然后返回到一个特定的编程问题。请确保在问题中包含您尝试过的代码。要求我们为您查找包/库被认为是离题的。请编辑以使这个问题更加集中于编程任务或考虑在其他地方发布。我建议您尝试用<代码> Trime< /Cord>实现这一点，然后返回到一个特定的编程问题。请确保在问题中包含您尝试过的代码。要求我们为您查找包/库被认为是离题的。请编辑以使这个问题更加集中于编程任务或考虑在其他地方发布。我建议您尝试用<代码> Trime< /Cord>实现这一点，然后返回到一个特定的编程问题。确保在你的问题中包含你尝试过的代码。这很好！谢谢你的帮助。特别是，这种方法的要点对我很有帮助，很好！谢谢你的帮助。特别是，这种方法的要点对我很有帮助，很好！谢谢你的帮助。特别是，这种方法的要点对我很有帮助，很好！谢谢你的帮助。特别是，这种方法的要点对我很有帮助。