4

几年前，我使用 UCINET 进行了一些社交网络分析。这些天我想再次使用 SNA——但这次我更喜欢一个统一的分析框架——对我来说就是 R。

我查看了 sna 和 statnet 文档，但有点不知所措。

我想做的事情：首先：加载直接从例如网络调查（通常很有价值）中提取的二分/发病矩阵。将此矩阵转换为两个邻接矩阵'（从属关系和个案个案）。它也可以是一个有指导的、有价值的个案矩阵。

第二：加载顶点属性的文件（也来自例如 websurvey 数据）。

第三：然后根据一些中心性度​​量，用顶点大小绘制图形，用一些顶点属性着色和标记，只绘制值超过某个阈值的边。

这是一个迷你关联矩阵：

data <- structure(list(this = c(0, 1, 0, 1, 1, 2, 0, 1, 3), 
 that = c(1, 1, 3, 0, 0, 0, 2, 1, 0), 
 phat = c(0, 0, 2, 1, 0, 0, 1, 2, 0)), 
 .Names = c("this", "that", "phat"), 
 row.names = c("a", "b", "c", "d", "e", "f", "g", "h", "i"), 
 class = "data.frame")

带有 som 属性数据：

att <-structure(list(sex = structure(c(1L, 1L, 2L, 2L, 1L, 2L, 1L, 
1L, 1L), .Label = c("F", "M"), class = "factor"), agegr = c(1L, 
1L, 3L, 1L, 3L, 1L, 1L, 3L, 1L), place = structure(c(1L, 2L, 
1L, 1L, 1L, 1L, 2L, 2L, 1L), .Label = c("Lower", "Upper"), 
class = "factor")), .Names  = c("sex", 
"agegr", "place"), row.names = c(NA, -9L), class = "data.frame")

ps 也许 SNA 会是这篇文章的好标签？我只是没有必要的善意:-)

4

3 回答 3

7

这是一个很好的问题，为进一步探索 R 中的 SNA 提供了一些机会。我对igraph 包比较熟悉，所以我将使用该库中的函数来回答您的问题。

您问题的第一部分有一个相当简单的解决方案：

# Convert data frame to graph using incidence matrix
G<-graph.incidence(as.matrix(data),weighted=TRUE,directed=FALSE)
summary(G)
# Vertices: 12 
# Edges: 30 
# Directed: TRUE 
# No graph attributes.
# Vertex attributes: type, name.
# Edge attributes: weight.

这会从关联矩阵返回一个带有无向和加权边的图形对象。要从二分图生成从属关系图，您有两个选择。快速简便的方法是：

proj<-bipartite.projection(G)

这将返回一个列表，其中每个投影索引为 $proj1 和 proj2，不幸的是这些项目不包含执行此操作时通常需要的边权重。要做到这一点，最好的解决方案是自己简单地执行矩阵乘法。

# Create the matrices, and set diagonals to zero
M<-as.matrix(data)
affil.matrix<-M%*%t(M)
diag(affil.matrix)<-0
cases.matrix<-t(M)%*%M
diag(cases.matrix)<-0
# Create graph objects from matrices
affil.graph<-graph.incidence(affil.matrix,weighted=TRUE)
cases.graph<-graph.incidence(cases.matrix,weighted=TRUE)

使用属性数据生成图有点棘手，需要更多编码，但我建议查看一些igraph 示例，甚至是我自己的一些示例，因为那里有很多可以帮助您入门。祝你好运！

于 2009-12-13T21:30:41.060 回答
2

这并不能直接回答您的问题，但如果您还没有看过 ，我强烈建议您观看Drew Conway 在 R 中关于 SNA 的演示文稿。

于 2009-12-12T23:11:42.680 回答
0

您可能还想查看R 和 SoNIA 中的社交网络分析实验室，特别是关联数据实验室。

于 2011-03-21T17:44:48.337 回答