据根据用户分享的歌曲,使用协同过滤算法计算歌手之间的关联关系。使用了R语言的可视化包igraph
library(igraph)#读取数据,注意编码格式是utf-8singer <- read.csv('c:/data/tmp/singers-sub.csv', head=T,fileEncoding='UTF-8',stringsAsFactors=F)#加载数据框
g <- graph.data.frame(singer)
#生成图片,大小是800*800pxjpeg(filename='singers.jpg',width=800,height=800,units='px')plot(g,
vertex.size=5, #节点大小
layout=layout.fruchterman.reingold, #布局方式
vertex.shape='none', #不带边框
vertex.label.cex=1.5, #节点字体大小
vertex.label.color='red', #节点字体颜色
edge.arrow.size=0.7) #连线的箭头的大小
#关闭图形设备,将缓冲区中的数据写入文件
dev.off()
点击下载程序使用的数据文件
结果如下: