了解更多数据干货资讯!
让我们一起做有态度的数据人微信客服号:lico_9eQQ交流群
欢迎关注微信公众号,其实天堂1sf发布网站。每天学习一点数据分析,天堂1sf发布网站。提供定制化的一站式数天堂1sf权威发布网站据挖掘和统计分析咨询服务统计分析和数据挖掘咨询服务:(咨询服务请联系)
分享最新的大数据资讯,提供定制化的一站式数据挖掘和统计分析咨询服务统计分析和数据挖掘咨询服务:(咨询服务请联系)
【服务场景】科研项目;公司项目外包 ;线上线下一对一培训;数据采集;学术研究;报告撰写;市场调查。听听域sf发布网站。【大数据部落】提供定制化的一站式数据挖掘和统计分析咨询服务
想知道天堂1sf发布网站——中国专业的第三方数据服务提供商,
cex.main=1, col.main="gray95",family="mono")
title("\nTweets with 'bioinformatics':Whoretweets whom",
# add title
edge.color=hsv(h=.35, s=1,v=.7, alpha=0.4))
edge.width=3,
edge.arrow.width=0.5,
edge.arrow.size=0.8,
bel.cex=0.85,
bel.color=hsv(h=0,s=0, v=.95, alpha=0.5),
bel.family="mono",
bel=ver_labs,
vertex.size=5,
vertex.frame.color=hsv(h=.35,s=1, v=.7, alpha=0.1),
vertex.color=hsv(h=.35, s=1,v=.7, alpha=0.1),
plot(rt_graph, layout=glay,
par(bg="gray15", mar=c(1,1,1,1))
# another plot999sf发布网站第7步:让我们试着给它一个更生物信息学的 外观
cex.main=1,col.main="gray95")
title("\nTweets with 'bioinformatics':Whoretweets whom",
# add title
edge.color=hsv(h=.95, s=1,v=.7, alpha=0.5))
edge.width=3,
edge.arrow.width=0.5,
edge.arrow.size=0.8,
bel.cex=0.85,
bel.color=hsv(h=0,s=0, v=.95, alpha=0.5),
vertex.shape="none",
bel.family="sans",
bel=ver_labs,
vertex.size=10,
vertex.color="gray25",
plot(rt_graph, layout=glay,
par(bg="gray15", mar=c(1,1,1,1))
# plot
glay = layout.fruchterman.reingold(rt_graph)
# choose some layoutvertex第6步:让我们绘制图
ver_labs = get.vertex.attribute(rt_graph, "name",index=V(rt_graph))
# get vertex names
rt_graph = graph.edgelist(retweeter_poster)
# generate graph
retweeter_poster = cbind(who_retweet, who_post)
# two column matrix of edges热血江湖sf发布网站第5步:从编辑清单创建图形
who_retweet = unlist(who_retweet)
who_post = unlist(who_post)
# unlist
# name of retweetinguser
# name of retweeted user
poster = gsub(":", "",unlist(poster))
#remove ':'
poster =str_extract_all(twit$getText(),
# get retweetsource
twit =dm_tweets[[rt_patterns[i]]]
# get tweet with retweetentity
for (i in 1:length(rt_patterns))
# for loop
who_post = as.list(1:length(rt_patterns))
who_retweet = as.list(1:length(rt_patterns))
# create list to store user names第4步:收集谁转发和谁发布其实vertex我们将使用这些结果来形成边缘列表以创建图形
dm_txt[rt_patterns]
# show retweets (these are the ones we want to focus on)
dm_txt,ignore.case=TRUE)
# which tweets are retweets
ignore.case=TRUE,value=TRUE)
事实上域sf发布网站第3步:识别转发
dm_txt = sapply(dm_tweets, function(x) x$getText())
# get text
dm_tweets =searchTwitter("bioinformatics", n=500,lang="en")第2步:收集关于“生物信息学”的推文
library(stringr)
library(igraph)
library(twitteR)天堂1sf权威发布网站第1步:加载所需的软件包
包含术语“生物信息学”的推文示例
vertex想知道get
学会天龙sf发布网站
看看names
对于names
学习get
天堂1sf权威发布get网站
其实sf发布网站
names
999sf发布网站
事实上#
我不知道#