R 边权重问题：ggnet2中的网络

所以首先，我对网络分析和创建网络是新手。我很抱歉，如果这是一个非常简单的问题，但我无法在网上找到答案。 我试图从邻接矩阵中绘制一个网络。如果有必要，数据来自Philip Leifeld编写的话语网络分析软件包。但是，我正在尝试使用ggnet2创建网络。边缘大小应该代表演员之间的一致性，但我就是不知道怎么做

编辑：我的数据

> dput(nw)
structure(c(0, 51, 7, 56, 51, 0, 8, 23, 7, 8, 0, 3, 56, 23, 3, 
0), .Dim = c(4L, 4L), .Dimnames = list(c("A", 
"B", "C", "D"), c("A", "B", 
"C", "D")), start = structure(-2208992400, tzone = "", class = c("POSIXct", 
"POSIXt")), stop = structure(4102441199, tzone = "", class = c("POSIXct", 
"POSIXt")), call = dna_network(connection = conn, networkType = "onemode", 
    statementType = "DNA Statement", variable1 = "actor", 
    variable2 = "concept", qualifier = "agreement", qualifierAggregation = "congruence", 
    duplicates = "document"), class = c("dna_network_onemode", 
"matrix"))

到目前为止，我的代码是：

 library(ggplot2)
library(GGally)
library(network)
library(sna)
library(intergraph)
library(rJava)

library("rDNA")

dna_init()

conn <- dna_connection("data", verbose = FALSE)

nw <- dna_network(conn, networkType = "onemode",
                  statementType = "DNA Statement",
                  variable1 = "actor",
                  variable2 = "concept",
                  qualifier = "agreement",
                  qualifierAggregation = "congruence",
                  duplicates = "document")

nw_net <- network(nw, 
                  matrix.type = "adjacency")

nw_nett <- network.adjacency(nw, nw_net, names.eval = "weight")

ggnet2(nw_nett, size = 6, 
       color = c("chartreuse", "black", "darkgoldenrod1", "firebrick1"),
       label = c("A", "B", "C", "D"), 
       label.size = 3, 
       edge.size = "weight")

库（ggplot2）
图书馆（GGALY）
图书馆（网络）
图书馆（sna）
图书馆（图间）
图书馆（rJava）
图书馆（“rDNA”）
dna_init（）
conn Hi，请以可复制的格式提供数据，例如使用
dput
。请看这篇关于“谢谢你的提醒”的帖子。我加上去了。如果缺少任何其他内容，请告诉我：）您好，请以可复制的格式提供您的数据，例如使用
dput
。请看这篇关于“谢谢你的提醒”的帖子。我加上去了。如果还有什么遗漏，请告诉我：）