如何在ggnet2或ggnetwork中按顶点属性对节点进行分组

library(ggnet2)
# 或
library(ggnetwork)

library(igraph)
library(GGally)

# 创建一个简单的网络图对象
net <- graph_from_data_frame(data.frame(from = c(1, 2, 3, 4),
                                        to = c(2, 3, 4, 1)))

# 使用ggnet2创建网络图
ggnet2(net)

# 创建一个包含节点属性的数据框
node_attr <- data.frame(id = 1:4,
                        group = c("A", "B", "A", "B"))

# 使用ggnet2添加节点属性
ggnet2(net, node.size = 10, node.color = node_attr$group)

# 使用ggnet2按节点属性分组
ggnet2(net, node.size = 10, node.color = node_attr$group, by = "group")