====== Word clouds: monthly tf-idfs ======

<code>
for(j in 1:12){
  di <- ifelse(TF[,j+1]==0,0,TF[,j+1]/S[j+1]*log(12/P))
  or <- order(di,decreasing=TRUE)
  ro <- invPerm(or)
  names(di) <- N
  cat("\n",j,":\n")
  print(di[or][1:10])
  ff <- round(200000/sqrt(1+ro))
  df <- data.frame(N=N[or],f=ff[or])
  wc <- wordcloud2(df,size=0.8,minRotation=0,maxRotation=0)
  tmp <- paste("tmp",j,".html",sep="")
  pdf <- paste("fig",j,".pdf",sep="")
  png <- paste("fig",j,".png",sep="")
  saveWidget(wc,tmp,selfcontained=FALSE)
  webshot(tmp,pdf,delay=5,vwidth=800,vheight=600)
  webshot(tmp,png,delay=5,vwidth=800,vheight=600)
}
</code>

January, February

{{notes:imfm:corona:pics:wca1.png?400}} {{notes:imfm:corona:pics:wca2.png?400}}

March, April

{{notes:imfm:corona:pics:wca3.png?400}} {{notes:imfm:corona:pics:wca4.png?400}}

May, June

{{notes:imfm:corona:pics:wca5.png?400}} {{notes:imfm:corona:pics:wca6.png?400}}

July, August

{{notes:imfm:corona:pics:wca7.png?400}} {{notes:imfm:corona:pics:wca8.png?400}}

September, October

{{notes:imfm:corona:pics:wca9.png?400}} {{notes:imfm:corona:pics:wca10.png?400}}

November, December

{{notes:imfm:corona:pics:wca11.png?400}} {{notes:imfm:corona:pics:wca12.png?400}}

==== Some observations ====

  - synonyms: covid-19, covid19, sars-cov-2, cov2, ncov, 2019-ncov; U.S., USA; Italy, italian
  - "permanent" keywords: Italy, lockdown, distance, symptom, food, school, pandemia, virtual, multisystem, face, USA, ethnic, telemedicine, tocilizumab, medium
  - stopwords from German, French, Spanish: en, le, du, der, und, um, uma, por, il, une, da, mi, aux, con, mit, bei, com
  - numbers?
  - dashes: -, --, ---
  - unicode, latex