楼主: llb_321
3822 0

[程序分享] 【独家发布】R示例:igraph画日瓦戈医生人物关系图 [推广有奖]

  • 3关注
  • 49粉丝

教授VIP

已卖:595份资源

学科带头人

9%

还不是VIP/贵宾

-

TA的文库  其他...

LATEX & R 模板和代码

威望
2
论坛币
28191 个
通用积分
1739.6743
学术水平
410 点
热心指数
421 点
信用等级
355 点
经验
2099 点
帖子
1410
精华
1
在线时间
1035 小时
注册时间
2010-6-18
最后登录
2023-8-18

初级热心勋章 初级信用勋章 中级热心勋章 中级信用勋章 初级学术勋章

楼主
llb_321 在职认证  发表于 2020-7-15 09:23:35 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

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

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
实现:R
源数据: netchivago.rar (1.06 KB) 本附件包括:
  • netchivago.csv


library(dplyr)
library(igraph)
library(Cairo)

file<-read.csv("netchivago.csv",head=F,stringsAsFactors = F)
adjMtrx<-as.matrix(file[-1,-1])
rownames(adjMtrx)<-file[-1,1]
colnames(adjMtrx)<-file[-1,1]
udG<-graph_from_adjacency_matrix(adjMtrx,mode="undirected")
#l <- layout_with_kk(udG)
l <- layout_with_lgl(udG)


CairoPDF("chivago1.pdf",width = 12, height = 12)

plot(
  udG,
  vertex.size = 4,
  vertex.label.cex = 0.5,
  vertex.label.dist = 0.4,
  edge.color = "tomato",
  #edge.arrow.size = 0.7,
  #edge.curved = 0.3,
  layout = l,
  family = "GB1"
)

dev.off()


二维码

扫码加我 拉你入群

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

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

关键词:GRAPH GRAP APH RAP Library 网络图 人物关系

已有 1 人评分学术水平 热心指数 信用等级 收起 理由
Sunknownay + 3 + 3 + 3 鼓励积极发帖讨论

总评分: 学术水平 + 3  热心指数 + 3  信用等级 + 3   查看全部评分

本帖被以下文库推荐

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

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-3 20:53