如何基于时间序列数据在 R 中创建网络列表
[英]How to create a list of Networks in R based on Time Series Data
问题描述
I'm attempting to look at networks of individuals and site visits over a time series.
我试图在一个时间序列中查看个人网络和站点访问。 Essentially, the end result I'd like to achieve is similar to the "beaches" dataset found in package "dnr" .从本质上讲，我想要实现的最终结果类似于包"dnr"的"beaches"数据集。 I have a larger dataset dput for a subset of which is shown at the bottom.我有一个更大的数据集 dput，其中的一个子集显示在底部。
Basically I would like to split() this table by both Species and Week and then create an incidence matrix with rows of distinct values from TagID and columns based on distinct values in SiteVisits .基本上我想通过Species和Week来split()这个表，然后创建一个关联矩阵，其中包含来自TagID的不同值的行和基于SiteVisits不同值的列。 Then i use package igraph and graph_from_incidence_matrix to create a unique network for each species for each week.然后我使用包igraph和graph_from_incidence_matrix为每周的每个物种创建一个独特的网络。
I started with an attempt to split the main table by species and then create new tables for each species for each week:我开始尝试按物种拆分主表，然后每周为每个物种创建新表：
DFsplit <- split(DF, DF$Species)
DFsplit_cf <- split(DFsplit$Catfish, DFsplit$Catfish$Week)
this worked fine, but when I attempted to write a loop to build a network using this dataframe这工作正常，但是当我尝试编写一个循环来使用此数据框构建网络时
network_builder <- function(data) {
for(i in 1: length(data)) {
adjacency <- xtabs(~ data[[i]][,3] + data[[i]][,4])
network[i] <- graph_from_incidence_matrix(adjacency)
}
}
network_builder(DFsplit_stb)
I received我收到了
Error in model.frame.default(formula = ~data[[i]][, 3] + data[[i]][, 4]) :
invalid type (list) for variable 'data[[i]][, 3]'
I'm guessing there's a way to get around this error, but nothing I've tried is working.我猜有一种方法可以解决此错误，但我尝试过的任何方法都不起作用。 Also, if there is a cleaner way to do this, I'm all ears.另外，如果有一种更清洁的方法可以做到这一点，我会全力以赴。
dput:输入：
structure(list(Species = c("Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Largemouth Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Catfish", "Catfish", "Catfish",
"Catfish", "Catfish", "Catfish", "Catfish", "Catfish", "Catfish",
"Catfish", "Catfish", "Catfish", "Catfish", "Catfish", "Catfish",
"Catfish", "Catfish", "Catfish", "Catfish", "Catfish", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Largemouth Bass", "Largemouth Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Largemouth Bass",
"Largemouth Bass", "Largemouth Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass", "Striped Bass", "Striped Bass",
"Striped Bass", "Striped Bass"), Week = c(74, 74, 75, 76, 77,
77, 77, 77, 77, 77, 78, 78, 79, 79, 79, 79, 79, 79, 79, 80, 80,
80, 80, 81, 83, 83, 83, 83, 83, 84, 84, 84, 84, 84, 85, 85, 85,
85, 85, 86, 86, 86, 86, 87, 88, 89, 90, 91, 92, 92, 92, 93, 93,
93, 93, 93, 94, 94, 94, 95, 95, 95, 95, 95, 96, 96, 96, 96, 96,
96, 96, 96, 97, 97, 97, 97, 98, 99, 99, 99, 99, 99, 100, 101,
101, 101, 101, 101, 101, 101, 101, 102, 103, 103, 103, 103, 103,
104, 104, 104, 104, 105, 105, 105, 105, 106, 106, 106, 106, 107,
107, 107, 107, 108, 109, 110, 54, 54, 55, 55, 55, 56, 56, 56,
57, 57, 57, 58, 60, 60, 60, 61, 61, 68, 68, 68, 69, 70, 70, 71,
72, 73, 74, 74, 75, 76, 76, 77, 78, 78, 79, 80, 80, 81, 84, 86,
86, 87, 88, 89, 90, 90, 91, 91, 92, 92, 93, 93, 94, 97, 97, 98,
98, 98, 100, 100, 100, 101, 101, 101, 103, 103, 103, 164, 165,
165, 165, 165, 166, 166, 166, 167, 168, 168, 168, 57, 58, 58,
59, 60, 61, 61, 61, 62, 62, 63, 63, 63, 66, 70, 71, 74, 75, 76,
76, 76, 76, 77, 78, 79, 80, 81, 82, 83, 84, 84, 20, 6, 7, 8,
8, 8, 9, 9, 9, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13,
14, 14, 14, 15, 15, 16, 16, 17, 17, 17, 204, 204, 204, 205, 205,
206, 206, 206, 207, 207, 207, 208, 208, 208, 209, 209, 209, 210,
216, 228, 233, 233, 233, 234, 235, 236, 237, 239, 239, 240, 241,
241, 242, 242, 243, 244, 244, 244, 245, 245, 64, 64, 64, 65,
66, 67, 68, 69, 70, 71, 72, 72, 73, 73, 73, 74, 75, 76, 76, 76,
77, 77, 77, 78, 78, 78, 79, 79, 79, 79, 80, 80, 81, 81, 83, 83,
83, 84, 84, 84, 85, 86, 86, 87, 94, 95, 97, 97, 97, 97, 98, 99,
99, 99, 100, 102, 103, 103, 103, 105, 106, 107, 107, 107, 107,
108, 108, 108, 108, 109, 109, 109, 110, 110, 110, 110, 111, 111,
111, 111, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
98, 99, 100, 101, 102, 102, 102, 153, 154, 155, 156, 157, 158,
159, 160, 161, 161, 161, 162, 162, 163, 163, 163, 164, 165, 166,
49, 14, 14, 185, 47, 74, 74, 75, 75, 75, 76, 76, 76, 78, 78,
78, 79, 80, 81, 82, 83, 83, 84, 84, 85, 85, 3, 3, 146, 147, 148,
149, 149, 149, 150, 150, 150, 150, 150, 150, 109, 77, 78, 79,
20, 20, 21, 21, 21, 22, 22, 22, 23, 23, 23, 23, 24, 25, 26, 27,
27, 40, 40, 40, 40, 41, 41, 45, 45, 45, 50, 50, 50, 52, 52, 52,
45, 45, 45, 46, 46, 46, 48, 48), TagID = c(5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24, 5004.24,
5004.24, 5004.24, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04,
5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5010.04, 5011.03,
5011.03, 5011.03, 5011.03, 5011.03, 5011.03, 5011.03, 5011.03,
5011.03, 5011.03, 5011.03, 5011.03, 5011.07, 5011.07, 5011.07,
5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07,
5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07,
5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07,
5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07, 5011.07,
5017.06, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22,
5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22,
5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22,
5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22, 5025.22,
5025.22, 5025.22, 5025.22, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26, 5025.26,
5025.26, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24, 5032.24,
5032.24, 5032.24, 5032.24, 5032.24, 5038.04, 5038.04, 5038.04,
5038.04, 5038.04, 5038.04, 5038.04, 5038.04, 5038.04, 5038.04,
5038.04, 5038.04, 5038.04, 5038.04, 5038.04, 5038.04, 5038.04,
5038.04, 5038.04, 5038.04, 5039.03, 5039.03, 5039.03, 5039.03,
5039.03, 5039.03, 5039.03, 5039.03, 5039.03, 5039.03, 5039.03,
5039.03, 5039.03, 5039.03, 5039.03, 5039.03, 5039.03, 5039.03,
5039.03, 5039.07, 5045, 5045, 5053.26, 5066.04, 5067.07, 5067.07,
5067.07, 5067.07, 5067.07, 5067.07, 5067.07, 5067.07, 5067.07,
5067.07, 5067.07, 5067.07, 5067.07, 5067.07, 5067.07, 5067.07,
5067.07, 5067.07, 5067.07, 5067.07, 5067.07, 5073.06, 5073.06,
5074.16, 5074.16, 5074.16, 5074.16, 5074.16, 5074.16, 5074.16,
5074.16, 5074.16, 5074.16, 5074.16, 5074.16, 5088.11, 5094.04,
5094.04, 5094.04, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06,
5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06,
5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06,
5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06,
5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5101.06, 5116.24,
5116.24, 5116.24, 5116.24, 5116.24, 5116.24, 5116.24, 5116.24
), SiteVisits = c("IC1", "RGD1", "RGD1", "RGD1", "RGD1", "RGU1",
"ORS1", "WC1", "WC2", "WC3", "WC2", "WC3", "IC3", "RGD1", "RGU1",
"ORS1", "WC1", "WC2", "WC3", "RGD1", "RGU1", "WC2", "WC3", "WC3",
"RGU1", "ORS1", "WC1", "WC2", "WC3", "RGU1", "ORS1", "WC1", "WC2",
"WC3", "RGU1", "ORS1", "WC1", "WC2", "WC3", "RGD1", "RGU1", "ORS1",
"WC1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "IC3", "IC1",
"RGD1", "RGD1", "RGU1", "ORS1", "WC1", "WC2", "RGU1", "ORS1",
"WC1", "RGU1", "ORS1", "WC1", "WC2", "WC3", "IC3", "IC1", "RGD1",
"RGU1", "ORS1", "WC1", "WC2", "WC3", "RGD1", "WC1", "WC2", "WC3",
"WC3", "RGD1", "RGU1", "WC1", "WC2", "WC3", "RGD1", "IC3", "IC2",
"IC1", "RGD1", "RGU1", "WC1", "WC2", "WC3", "WC3", "RGD1", "RGU1",
"WC1", "WC2", "WC3", "IC3", "IC2", "IC1", "RGD1", "IC3", "IC2",
"IC1", "RGD1", "IC3", "IC2", "IC1", "RGD1", "IC3", "IC2", "IC1",
"RGD1", "RGD1", "RGD1", "RGD1", "IC2", "IC1", "IC3", "IC2", "IC1",
"IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "IC1", "IC3", "IC2",
"IC1", "IC2", "IC1", "IC3", "IC2", "IC1", "IC2", "IC3", "IC2",
"IC1", "IC1", "IC1", "IC3", "IC1", "IC1", "IC3", "IC1", "IC1",
"IC1", "RGD1", "RGD1", "IC3", "RGD1", "IC3", "IC2", "IC2", "IC1",
"IC1", "IC1", "IC1", "IC3", "IC1", "IC3", "IC1", "IC3", "IC1",
"IC3", "IC1", "IC1", "IC3", "IC1", "IC3", "IC2", "IC1", "IC3",
"IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "RGD1",
"IC3", "IC2", "IC1", "RGD1", "IC3", "IC2", "IC1", "RGD1", "IC2",
"IC1", "RGD1", "IC1", "IC1", "RGD1", "IC1", "IC1", "IC3", "IC2",
"IC1", "IC3", "IC1", "IC3", "IC2", "IC1", "RGD1", "RGD1", "RGD1",
"RGD1", "RGD1", "IC3", "IC2", "IC1", "RGD1", "RGD1", "IC1", "RGD1",
"RGD1", "RGD1", "RGD1", "RGD1", "IC2", "RGD1", "IC1", "IC1",
"RGD1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2",
"IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2",
"IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC3", "IC2", "IC3",
"IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC3", "IC2",
"IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2",
"IC1", "IC1", "IC1", "IC1", "IC3", "IC2", "IC1", "IC1", "IC1",
"IC1", "IC1", "IC2", "IC1", "IC1", "IC2", "IC1", "IC2", "IC1",
"IC1", "IC3", "IC2", "IC1", "IC2", "IC1", "IC3", "IC2", "RGD1",
"RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "IC1",
"RGD1", "IC2", "IC1", "RGD1", "RGD1", "RGD1", "IC3", "IC1", "RGD1",
"IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1",
"RGD1", "IC3", "RGD1", "IC3", "RGD1", "IC3", "IC2", "RGD1", "IC3",
"IC2", "RGD1", "RGD1", "IC2", "RGD1", "RGD1", "RGD1", "RGD1",
"IC3", "IC2", "IC1", "RGD1", "RGD1", "IC2", "IC1", "RGD1", "RGD1",
"IC1", "IC3", "IC2", "IC1", "RGD1", "RGD1", "IC3", "IC2", "IC1",
"RGD1", "IC3", "IC2", "IC1", "RGD1", "IC3", "IC2", "IC1", "IC3",
"IC2", "IC1", "RGD1", "IC3", "IC2", "IC1", "RGD1", "RGD1", "RGD1",
"RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1",
"RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1",
"RGU1", "ORS1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1", "RGD1",
"RGD1", "RGD1", "IC2", "IC1", "RGD1", "IC2", "IC1", "IC2", "IC1",
"RGD1", "RGD1", "RGD1", "RGD1", "IC1", "IC2", "IC1", "RGD1",
"IC2", "IC3", "IC1", "IC3", "IC1", "RGD1", "IC2", "IC1", "RGD1",
"IC3", "IC2", "IC1", "RGD1", "IC3", "IC3", "IC3", "IC3", "IC2",
"IC3", "IC2", "IC3", "IC2", "IC2", "IC1", "RGD1", "RGD1", "RGD1",
"RGD1", "RGU1", "ORS1", "RGU1", "ORS1", "WC1", "WC2", "GL1",
"WC3", "RGD1", "IC1", "IC1", "IC1", "IC3", "IC2", "IC3", "IC2",
"IC1", "IC3", "IC2", "IC1", "IC3", "IC2", "IC1", "RGD1", "RGD1",
"RGD1", "RGD1", "RGD1", "RGU1", "ORS1", "WC1", "WC2", "WC3",
"RGU1", "ORS1", "WC1", "WC2", "WC3", "WC1", "WC2", "WC3", "WC1",
"WC2", "WC3", "IC2", "IC1", "RGD1", "IC3", "IC2", "IC1", "IC3",
"IC2")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-500L))
1 个解决方案
解决方案1
1 已采纳 2020-01-22 20:43:16
I'm not sure if this is what you mean by an incidence table but we can do a lot of this at once with dplyr , tidyr and magrittr我不确定这是否是您所说的发生率表的意思，但我们可以使用dplyr 、 tidyr和magrittr一次完成很多magrittr
x$count <- 1
x2 <- split(x, x$Species)
x2 <- lapply(x2, function(x){split(x,x$Week)})
x3 <- lapply(x2, function(x){lapply(X=x, function(y){
y <- y %>% spread(key = "SiteVisits",
value = "count",
fill =0) %>%
select(-Species, -Week) %>% as.data.frame()
rownames(y) <- y$TagID
y <- y[,-1]
y <- graph_from_incidence_matrix(y)
return(y)
})})
x3 will be a list structure where the final elements are the returned values of graph_from_incidence_matrix x3将是一个列表结构，其中最终元素是graph_from_incidence_matrix的返回值
声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.
相关问题
如何在 R 中为 .data 格式创建时间序列？ - How to create an time series in R for the .data format?
在R中创建一系列时间数据 - Create series of time data in R
如何将基于时间的数据或值添加到 r 中的时间序列 - how to add data or values based on time to the time series in r
如何在R中的大文件列表中基于模式匹配输出生成连续时间序列数据？ - How to generate continuous time series data based on pattern matching output in large file list in R?
如何在 R 中使用 neura.net 创建一系列神经网络？ - How to create a series of neural networks using neuralnet in R?
基于 R 中的时间序列列提取数据 - Extract data based on a time series column in R
在 R 中，基于正则表达式对时间序列数据进行分类 - In R, categorize time series data based on regex
如何从 R 中的时间序列列表中访问数据名称？ - How to access data name from a list of time-series in R?
将function聚合到R中，创建时序数据 - Aggregate function in R to create time series data
在R Shiny中使用MySQL数据创建时间序列 - Create Time series with MySQL data in R Shiny
相关标签