楼主: lanhong1993
2418 8

[问答] 这种关系图怎么画? [推广有奖]

  • 1关注
  • 1粉丝

已卖:286份资源

博士生

54%

还不是VIP/贵宾

-

威望
0
论坛币
2701 个
通用积分
3.4261
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
12167 点
帖子
214
精华
0
在线时间
141 小时
注册时间
2016-11-1
最后登录
2024-3-26

楼主
lanhong1993 发表于 2017-6-9 18:09:23 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
微信图片_20170609180446.jpg
请教大家,这种关系图应该怎么画呢?圆圈大小代表数量,直线长短代表关系远近。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝


沙发
屋檐滴语 发表于 2017-6-9 19:00:41
有一本R Graphs cookbook,上面有相似的解决方案可以参考。
这本书貌似有中文版。
已有 1 人评分论坛币 热心指数 收起 理由
crystal8832 + 5 + 1 热心帮助其他会员

总评分: 论坛币 + 5  热心指数 + 1   查看全部评分

藤椅
李凯521 在职认证  发表于 2017-6-9 21:16:26 来自手机
lanhong1993 发表于 2017-6-9 18:09
请教大家,这种关系图应该怎么画呢?圆圈大小代表数量,直线长短代表关系远近。
不好意思,用ppt画图可否,插入……组织结构图或流程图,里面有这个图案。
已有 1 人评分论坛币 收起 理由
admin_kefu + 10 热心帮助其他会员

总评分: 论坛币 + 10   查看全部评分

板凳
lanhong1993 发表于 2017-6-9 21:17:48 来自手机
李凯521 发表于 2017-6-9 21:16
不好意思,用ppt画图可否,插入……组织结构图或流程图,里面有这个图案。
ppt不能精确体现数量关系(即圆圈大小和直线长短)

报纸
乌贼07 发表于 2017-6-9 22:44:03
我会用R的igraph包画,但是很抱歉,现在没有空教你。过了7月份再说吧。只能用直线的粗细或者权值大小表示远近关系,而不能(我不会)用长短表示。

地板
deephilla 发表于 2017-6-10 10:18:21
自己编程序画,我觉得问题不大

7
xugami 学生认证  发表于 2017-6-10 17:02:25 来自手机
igraph包可以

8
lanhong1993 发表于 2017-6-11 20:15:34 来自手机
xugami 发表于 2017-6-10 17:02
igraph包可以
新手求教。我只能用igraph画简单的关系图,却无法实现与安全的大小和线段的长短。

9
乌贼07 发表于 2017-6-12 21:13:41
今天刚好有空,帮您解答一下吧:

要求是:“圆圈大小代表数量,直线长短代表关系远近。”

附件是代码,数据和执行结果

RQuestion.rar (13.11 KB)


1、首先您得有节点信息文件nodes.csv和边的信息文件links.csv。

上述两个文件我随便设了一下参数。下载后把上述两个文件拷贝到E盘根目录下。

2、然后创建图对象。

3、最后画图。

“圆圈大小代表数量”,设置节点的大小=NodesProperty
“直线长短代表关系远近”,设置画图的方式为:layout_with_kk

这样就可以了。

#Start here:
#load data:
require(igraph);
mypath<-"E:";
edges_data<-"links.csv";
vertexs_data<-"nodes.csv";
edges_data<-paste(mypath,edges_data,sep="\\");
vertexs_data<-paste(mypath,vertexs_data,sep="\\");
links<-read.csv(edges_data,header=T,as.is=T);
nodes<-read.csv(vertexs_data,header=T,as.is=T);

#create graph
net<-graph_from_data_frame(d=links,directed=FALSE,vertices=nodes);

#plot graph
set.seed(2017);
plot(net,main="An Example",
     vertex.label.color="black",
     vertex.color="white",
     vertex.size = V(net)$NodesProperty*20,
     edge.width=E(net)$weight,
     layout=layout_with_kk
     );
# End
已有 1 人评分经验 论坛币 收起 理由
admin_kefu + 20 + 20 热心帮助其他会员

总评分: 经验 + 20  论坛币 + 20   查看全部评分

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-2-21 08:24