# NOT RUN {
adj_matrix <- cor(iris[,-5])
legend <- data.frame(name = colnames(iris[,-5]),
title = colnames(iris[,-5]))
graph_iris <- graph_from_matrix(adj_matrix, legend, main_title = "Iris graph")
# Save to a in a temporary file location
save_graph(graph_iris, tempfile(fileext = ".png"))
# }
Run the code above in your browser using DataLab