In[]:=
twitter=ServiceConnect["Twitter"]
Out[]=
ServiceObject
In[]:=
tweetfrequency[q_]:=Module[{ds,min,max},ds=twitter["TweetSearch","Query"q];{min,max}=MinMax[Map[AbsoluteTime,Normal[ds[All,"CreationDate"]]]];(max-min)/3600.]
In[]:=
tweetfrequency["chongqing"]
Out[]=
8.17111
tweetfrequency["chongqing"]
In[]:=
regions=Map[ToLowerCase[StringSplit[#["Name"],","][[1]]]&,Normal[ResourceData["Epidemic Data for Novel Coronavirus 2019-nCoV from Wuhan, China"][Select[#Country["Name"]==="China"&],"AdministrativeDivision"]]]
Out[]=
{hubei,zhejiang,guangdong,henan,hunan,anhui,jiangxi,chongqing,jiangsu,sichuan,shandong,beijing,shanghai,fujian,heilongjiang,shaanxi,guangxi,hebei,yunnan,hainan,shanxi,liaoning,tianjin,guizhou,gansu,jilin,ningxia,neimenggu,xinjiang,qinghai,xizang}
In[]:=
tmp=AssociationMap[tweetfrequency,regions]
Out[]=
hubei0.0797222,zhejiang4.94306,guangdong5.4375,henan1.1425,hunan4.98778,anhui17.5567,jiangxi16.47,chongqing8.31528,jiangsu17.3297,sichuan4.43194,shandong13.9764,beijing0.474722,shanghai0.386667,fujian8.56639,heilongjiang19.9036,shaanxi35.6453,guangxi2.87139,hebei31.8414,yunnan19.7014,hainan11.0028,shanxi37.9378,liaoning92.1425,tianjin8.55083,guizhou27.9642,gansu29.7642,jilin7.99611,ningxia55.3319,neimenggu29.1194,xinjiang2.00639,qinghai112.574,xizang185.308
In[]:=
Dataset[tmp][Sort]
Out[]=
In[]:=
6060
Out[]=
3600
In[]:=
29416/3600.
Out[]=
8.17111
In[]:=
Map[CellPrint[Cell[#,"Text"]]&,Normal[ds[All,"Text"]]]
In[]:=
tweets=Normal[ds[All,"Text"]];
In[]:=
hashtags=Flatten[Map[Select[TextWords[#],StringStartsQ["#"]]&,tweets]]
Out[]=
#coranovirus,#coronaviruswuhan,#Chongqing,#CINA,#Chongqing,#avgeek,#aviation,#aviationlovers,#avgeek,#aviation,#aviationlovers,#Zhejiang,#Guangdong,#Henan,#Hunan,#Jiangxi,#Anhui,#CINA,#Chongqing,#architecture,#building,#architexture,#buildings,#design,#art,#architecturelovers,#modernism,#beautiful,#archilovers,#architectureporn,#style,#bridge,#composition,#perspective,#china,#chongqing,#重庆市,#chinese,#szechuan,#sichuan,#四川,#cq,#中国,#PRC,#avgeek,#aviation,#aviationlovers,#coronaviruschina,#wuhan,#Chongqing,#CINA,#Chongqing,#coronavirus,#Chongqing,#chongqing,#china,#AngelJennieDay,#우리의,#JENNIE,#제니,#CINA,#Chongqing,#CINA,#Chongqing,#CINA,#Chongqing,#CINA,#Chongqing,#conoravirus,#Chongqing,#Chongqing,#Chongqing,#Chongqing,#Chongqing,#Chongqing,#Chongqing,#China,#XiaoZhan,#WangYibo,#garden,#modernism,#traditional,#trees,#view,#cityscape,#city,#urbanphotography,#architecture,#photography,#architecturephotography,#citylife,#streetphotography,#photooftheday,#skyline,#china,#chongqing,#重庆市,#chinese,#szechuan,#sichuan,#四川,#cq,#中国,#PRC,#CHINA,#Chongqing,#China,#Coronavirus,#MembersGetIt,#RewardsPoints,#FindYourRoute,#MRpoints,#ひるおび,#英語,#Wuhan,#NinePercent,#ToTheNines,#Chen,#NinePercent,#ToTheNines,#Ch,#지드래곤,#지디,#권지용,#GDRAGON,#GD,#IT,#LATEST,#WuhanPneumonia,#architecture,#姚琛,#YAOCHEN,#야오천,#R,#Coronavirus,#Cina,#Coronavirus,#Cina,#Coronavirus,#Cina,#Chongqing,#WuhanCoronavirusOutbreak,#姚琛,#YAOCHEN,#야오천,#R,#董思成,#윈윈,#winwin,#ウィンウィン,#WayV,#WeiShenV,#威神V
In[]:=
WordCloud[hashtags]
Out[]=
In[]:=
StringDrop["#abc",1]
Out[]=
abc
S
In[]:=
LanguageIdentify["董思成"]
Out[]=
In[]:=
Selecthashtags,LanguageIdentify[StringDrop[#,1]]===&
In[]:=
MapTextTranslationStringDrop[#,1],,Method"Google"&,"#重庆市","#四川","#中国","#重庆市","#四川","#中国","#英語","#姚琛","#姚琛","#董思成","#威神V"