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"
. I have a larger dataset dput for a subset of which is shown at the bottom.
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
. Then i use package igraph
and graph_from_incidence_matrix
to create a unique network for each species for each week.
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))
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
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