create a nested list of different lengths of type igraph.vs with different values of type integer and convert it to a dataframe, if the list is 0 put in nas in the new columns in r

main.r
# Install necessary libraries
install.packages(c("igraph", "dplyr"))

# Load necessary libraries
library(igraph)
library(dplyr)
library(tidyr)

# Create sample graphs
graph1 <- make_ring(5)
graph2 <- make_ring(3)
graph3 <- make_ring(4)

# Create vertex sequences
vs1 <- V(graph1)
vs2 <- V(graph2)
vs3 <- V(graph3)

# Create a list of vertex sequences with different lengths
list_vs <- list(vs1, vs2, vs2, vs3, vector("list", 0))

# Convert the list of vertex sequences to a dataframe
# Since vertex sequences have different lengths, we need to find the maximum length first
max_length <- max(sapply(list_vs, length))

# Initialize a dataframe with NA values
df <- data.frame(matrix(nrow = length(list_vs), ncol = max_length))

# Fill the dataframe with values from the vertex sequences
for (i in seq_along(list_vs)) {
  for (j in seq_along(list_vs[[i]])) {
    df[i, j] <- as.integer(list_vs[[i]][j])
  }
}

# Replace empty lists with NA
df[is.na(df)] <- NA

# Print the resulting dataframe
print(df)
1001 chars
41 lines