登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

生活也是大事业

阿波的学习、工作和生活

 
 
 
 
 

日志

 
 
关于我

江浙沪,数学系,天蝎座O型,懒洋洋,傻乎乎

文章分类

社会网络分析(SNA)的第一次尝试  

2010-05-10 00:54:48|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

个人感觉,社会网络分析(sna)研究中最关键并且最困难的还是数据来源。不过其实社会网络分析的根本思想(或者说方法)其实与一般网络分析并没有本质区别,因此我针对手机做了我的第一个sna尝试。这次尝试基本不涉及分析的具体方法,只是试着做网络图以便从直观上了解网络的概貌。

本次试验的对象是诺基亚从1998年到2004年生产的74款手机,涉及的变量包括:外观(直板,翻盖,滑盖),屏幕(单色,128*128,128*160,176*208,640*200),无线传输(红外线,蓝牙),输入方式(T9键盘,qwerty键盘),摄像头(有,无),系统(S60v1,S60v2,EPOC)。

之所以选择这个试验对象,一方面因为我在05年06年的时候对手机无限感兴趣(所以搜集数据这么枯燥的工作我也不觉得无聊),另一方面是阿摸最近也准备买手机,所以我来做个决策支持系统(囧)。上次原本想直接去店里搜集数据的,不过下雨没去成。这次就用老型号的手机做个试验,好在我对老型号的比较熟悉。

从younet网上找了诺基亚的手机数据,做成excel表格。列号为各个手机的型号,行号为上述的各种属性,0表示不具备相应属性,1表示具备相应属性。

将数据读入R。

a=read.table("clipboard",head=T)

将第一列的手机型号数据去掉,得到发生阵。

b=a[,-1]

数据框格式变为矩阵格式。

b=as.matrix(b)

由发生阵计算邻接阵。

g=b%*%t(b)

给邻接阵的行与列加上标签。

colnames(g)=a[,1];rownames(g)=a[,1]

观察邻接阵g,确定以2为分界点(阈值),将多值矩阵g变为二值0-1矩阵。

g2=1*(g>=2)

加载sna包。

library(sna)

做网络图。

gplot(g2)

社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

可以看出明显的群聚特征。加上型号标签。

gplot(g2,displaylabels=T)

社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

虽然有点乱(还没研究怎么画好看一些),但是基本能够看出一点信息了。很显然,9210c这只手机很不合群,我当年也用过这个,吃饭时候往桌上一摆,确实能够吓人一跳。NG、QD和7650也显然地是比较牛B的与众不同的创新之作。8910、8855和8810这几只滑盖很经典,与作为典型代表的8850也保持较近的距离,而8910i则相对较远,或许是因为升级到彩屏?相比之下,8310、8250和8210这三个都是曾经的经典街机,却泯然众人矣。

上述分析是将2作为邻接阵的阈值。当然也可以采用其他数值,但是效果可能不一样。应该视问题需求进行选择。

(事实上,gplot函数中的thresh参数就是对阈值的选择。)

若用3和4做阈值,结果分别为

(为了较好地显示结构特征,此处不显示孤立点。displayisolates=F

社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

若不做二值处理,用原始的多值邻接阵做出的网络图为

 社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

 

如本文开头所说,这次试验没有定量的分析,只是从图示直观地看一下各种机型之间的相似性,以便找出其中比较不一般的那些型号。当然咯,其实用简单的肉眼或者简单的聚类也可以做这个事情,不过既然最近在看社会网络分析,我就来sna一把。

事实上,默认的系统聚类得到的结果为

社会网络分析(SNA)的第一个尝试 - 皮皮米菲兔 - 生活也是大事业

  评论这张
 
阅读(1216)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018