This file is the technical appendix to an article on the place of science in Franco-Canadian media during the first wave of the COVID-19 pandemic.

Its main function, in the spirit of an open science, is to show how our results are produced. If you need data to reproduce some results, please contact François.

The secondary function of this appendix is to give additional results that did not fit in the main paper.

1 Preliminary tasks

Loading packages:

package_list <- c("ggplot2","dplyr","mongolite","data.table","tidyr","stringr","ggrepel","fuzzyjoin",
                  "anytime","topicmodels","tm","knitr","tidytext","doParallel","zoo","lubridate",
                  "udpipe","splitstackshape","Matrix","text2vec", "stargazer", "sandwich", "mgcv", "viridis", "directlabels", "kableExtra")
for(p in package_list){
  if (p %in% installed.packages()==FALSE){install.packages(p,dependencies = TRUE)}
  library(p,character.only=TRUE)
}

Creating global variables:

data_folder <- "/data/covid/"

#Connections
DB_connection_this_year <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01122019_30062020")
DB_connection_2019 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01122018_30062019")
DB_connection_2018 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01012018_30062018")
DB_connection_2017 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01012017_30062017")
#Query to get articles that talk about COVID
query_keywords <- paste0('{ "$or" : [ {"full_article_text": {"$regex": "COVID","$options": "i"}},
                                      {"full_article_text": {"$regex": "virus", "$options": "i"}},
                                      {"full_article_text": {"$regex": "SARS-CoV", "$options": "i"}},
                                      {"full_article_text": {"$regex": "SRAS-CoV", "$options": "i"}}]}')

olivier_data_folder <- "/home/olivier/my_data/"

liste_media <- read.csv(paste0(data_folder,"liste_finale_medias.csv")) %>% data.table()
liste_media <- liste_media[dans_oci == TRUE]

size_axis_text <- 11
pos_vline <- as.Date("2020-03-14")

Loading functions:

source("FCT_util.R")

2 Information on corpus

2.1 OCI corpus of media articles

load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))

dt_full_text <- dt_full_text[month(date) %in% 1:6 & year(date) %in% 2017:2020] # first half of years
dt_full_text[is_science == TRUE & year(date) ==2020, Status := "Science during COVID"]
dt_full_text[is_science == TRUE & year(date) <2020, Status := "Science before COVID"]
dt_full_text[is_science == FALSE & year(date) <2020, Status := "Not Science before COVID"]
dt_full_text[is_science == FALSE & year(date) ==2020, Status := "Not Science during COVID"]

count <- dt_full_text[,list(doc_ID, Status)] %>% unique()

kable(count[,.N, by = Status], caption = "Breakdown of the OCI article corpus by combinations of the two main dichotomous variables")  %>%  kable_styling("hover")
Breakdown of the OCI article corpus by combinations of the two main dichotomous variables
Status N
Not Science before COVID 665520
Science before COVID 32996
Not Science during COVID 247001
Science during COVID 17310
dt_full_text[,list(`Total number of articles` = .N, `Science related` = sum(is_science),
               `During COVID` = sum(is_covid)),by = root_url][order(-`Total number of articles`)]  %>% 
  kable(caption = "Breakdown of the OCI corpus by media") %>%  kable_styling() %>%
    scroll_box(width = "100%", height = "200px")
Breakdown of the OCI corpus by media
root_url Total number of articles Science related During COVID
www.lapresse.ca 112937 7233 9755
www.journaldemontreal.com 103204 5020 10179
www.journaldequebec.com 101236 4900 9715
ici.radio-canada.ca 84064 4877 12249
journalmetro.com 50518 2624 2589
www.ledevoir.com 40893 4681 2967
www.tvanouvelles.ca 40377 2189 6395
www.lesoleil.com 29470 2088 4853
www.latribune.ca 22984 1387 3856
quebec.huffingtonpost.ca 20752 2084 2881
www.lenouvelliste.ca 20473 1149 3720
www.lequotidien.com 19196 1181 3246
www.lavoixdelest.ca 18397 1342 3606
www.lanouvelle.net 13997 343 1366
lactualite.com 12368 1504 2939
www.fm93.com 12089 109 457
www.fm1069.ca 11167 109 528
www.lecourrierdusud.ca 8488 281 547
www.lavantage.qc.ca 7833 161 53
www.lereflet.qc.ca 7614 156 569
www.journalexpress.ca 7280 226 703
www.cybersoleil.com 6819 146 535
www.infodimanche.com 6449 196 518
www.cihofm.com 5824 65 442
www.lhebdojournal.com 5337 206 366
www.enbeauce.com 4807 133 666
www.chga.fm 4754 33 176
www.fm1033.ca 4699 75 46
chipfm.com 4644 37 229
www.lecourriersud.com 4629 142 567
www.courrierfrontenac.qc.ca 4536 134 372
www.lhebdodustmaurice.com 4394 145 348
www.laction.com 4186 95 401
www.journallenord.com 3936 136 237
www.lerefletdulac.com 3762 82 233
www.lavoixdusud.com 3702 90 279
www.leplacoteux.com 3632 118 312
lenord-cotier.com 3614 87 691
courrierlaval.com 3568 109 12
www.lechodemaskinonge.com 3559 116 343
www.granbyexpress.com 3486 99 367
www.lemanic.ca 3409 115 700
www.les2rives.com 3390 119 24
www.lechodelatuque.com 3387 75 337
www.leclaireurprogres.ca 3362 88 412
www.fm1047.ca 3317 41 443
www.larevue.qc.ca 3254 85 27
www.hebdorivenord.com 3248 68 302
www.lecharlevoisien.com 3246 78 80
www.journaldechambly.com 3150 103 274
www.nordinfo.com 3001 87 48
www.leveil.com 2938 93 36
www.letincelle.qc.ca 2872 79 169
www.journalleguide.com 2843 95 327
www.leprogres.net 2830 70 154
www.nouvelleshebdo.com 2780 80 191
www.letoiledulac.com 2776 84 197
www.laveniretdesrivieres.com 2741 88 328
www.lelacstjean.com 2678 70 213
www.coupdoeil.info 2672 85 306
www.lactiondautray.com 2493 62 263
www.canadafrancais.com 2396 71 114
www.radiogaspesie.ca 2334 68 348
www.lareleve.qc.ca 2330 125 54
linformationdunordmonttremblant.ca 2314 65 134
www.courrierdeportneuf.com 2309 54 186
ckmn.fm 2173 58 115
journaldesvoisins.com 2160 167 243
beauce.tv 2155 11 10
www.quebechebdo.com 2139 83 66
www.rcinet.ca 2127 368 131
www.lapetitenation.com 2040 47 144
www.estrieplus.com 2022 75 0
www.journalsaint-francois.ca 2022 49 0
www.oeilregional.com 1992 60 125
www.beaucemedia.ca 1936 47 215
linformationdunordvalleedelarouge.ca 1768 56 103
www.chamblyexpress.ca 1475 55 311
www.radio-acton.com 1460 10 16
www.lejournaldejoliette.ca 1426 52 55
lautjournal.info 1422 224 184
www.tvrs.ca 1415 32 185
www.lechodelaval.ca 1336 95 52
www.lechodelarivenord.ca 1112 24 55
www.carrefourdequebec.com 1103 66 11
www.lechodetroisrivieres.ca 1091 60 62
echodefrontenac.com 1074 22 33
www.lepeuplelotbiniere.ca 967 44 130
radiox.com 848 8 56
www.sorel-tracyexpress.ca 793 24 59
www.lecantonnier.com 747 19 68
www.1031fm.ca 727 3 5
www.lattisee.com 695 26 27
mediat.ca 685 7 111
www.journallereflet.com 684 30 103
www.lavantagegaspesien.com 673 9 11
www.journalhorizon.com 653 21 212
www.leradar.qc.ca 595 10 25
autourdelile.com 580 15 64
lametropole.com 571 53 26
www.indicebohemien.org 524 33 13
monlimoilou.com 501 23 7
www.lecourrier.qc.ca 481 2 27
www.lavantposte.ca 473 12 5
www.journal-le-sentier.ca 445 26 30
radio-centreville.com 436 30 95
tremblantexpress.com 425 18 9
www.journal-ensemble.org 419 14 24
journaloutremont.com 418 23 27
lapensee.qc.ca 401 9 72
journalmobiles.com 397 46 9
www.lasentinelle.ca 328 5 5
laviedici.com 317 5 17
www.lelavalois.com 310 14 9
www.ckrl.qc.ca 305 3 3
monsaintroch.com 279 14 11
csur.tv 275 1 16
929cfut.com 274 4 17
echodenhaut.org 274 8 4
www.lebulletindeschenaux.com 266 7 5
www.entreelibre.info 255 20 17
www.droitdeparole.org 235 16 24
www.lexpressmontcalm.com 230 1 46
www.moutonnoir.com 223 32 8
www.leclairon.qc.ca 222 6 49
graffici.ca 205 15 8
monsaintsauveur.com 202 8 7
www.tvr9.org 197 3 25
ski-se-dit.info 184 10 10
tvc.qc.ca 181 1 27
echosmontreal.com 146 11 4
www.lecitoyenrouynlasarre.com 135 5 59
cfmf.rocks 117 0 48
cfim.ca 102 9 14
www.versants.com 89 0 39
ctbtv.ca 57 3 35
www.via905.fm 46 0 8
tcfrontenac.org 33 0 1
www.gaboteur.ca 10 3 4
n_media_OCI <- dt_full_text$root_url %>% unique() %>% length()

rm(dt_full_text)

The total number of media in this corpus is 139.

2.2 Facebook corpus

fb_2017 <- read.csv("/data/jhr/postsFBcovid-2017.csv") %>% data.table()
fb_2018 <- read.csv("/data/jhr/postsFBcovid-2018.csv") %>% data.table()
fb_2019 <- read.csv("/data/jhr/postsFBcovid-2019.csv") %>% data.table()
fb_2020 <- read.csv("/data/jhr/postsFBcovid-2020.csv") %>% data.table()

fb_2017$year <- 2017
fb_2018$year <- 2018
fb_2019$year <- 2019
fb_2020$year <- 2020

fb_posts <- rbind(fb_2017, fb_2018, fb_2019, fb_2020)
rm(fb_2017,fb_2018,fb_2019,fb_2020)

fb_posts[grepl("(\\s)scien", texteComplet) | grepl("(\\s)chercheu", texteComplet),
         is_science := TRUE][is.na(is_science), is_science := FALSE]


# binary variable for the COVID period
fb_posts[year>=2020, since_COVID := TRUE][is.na(since_COVID), since_COVID := FALSE]

## Dividing between four cases:
 fb_posts[is_science == TRUE & since_COVID == TRUE, Status := "Science during COVID"]
 fb_posts[is_science == TRUE & since_COVID == FALSE, Status := "Science before COVID"]
 fb_posts[is_science == FALSE & since_COVID == FALSE, Status := "Not Science before COVID"]
 fb_posts[is_science == FALSE & since_COVID == TRUE, Status := "Not Science during COVID"]

 # making sure that the scope is okay.
 fb_posts <- fb_posts[month(as.Date(jour)) %in% 1:6 & year(as.Date(jour)) %in% 2017:2020]
  
kable(fb_posts[,.N, by = Status], caption = "Breakdown of the Facebook corpus by combinations of the two main dichotomous variables")   %>%  kable_styling("hover")
Breakdown of the Facebook corpus by combinations of the two main dichotomous variables
Status N
Not Science before COVID 102166
Science before COVID 1046
Not Science during COVID 60100
Science during COVID 562
# keeping an object with the names of all media having at least one post in our data.
fb_posts[,list(`Total number of posts` = .N, `Science related` = sum(is_science),
               `During COVID` = sum(since_COVID)),by = media][order(-`Total number of posts`)] %>% 
  kable(caption = "Breakdown of the Facebook corpus by media") %>%  kable_styling() %>%
    scroll_box(width = "100%", height = "200px")
Breakdown of the Facebook corpus by media
media Total number of posts Science related During COVID
Le Journal de Québec 13346 80 3533
Le Journal de Montréal 10885 101 3334
La Presse 8877 176 2726
TVA Nouvelles 8727 72 2819
HuffPost Québec 8690 88 1653
Le Soleil 8027 108 2970
Le Devoir 6304 174 2084
Radio-Canada Information 5604 130 1937
Le Nouvelliste 5492 55 2248
Le Quotidien 4646 66 2008
La Tribune 4564 63 2319
Journal Métro 3993 64 1020
La Voix de l’Est 3123 37 1597
ICI Québec 2586 27 1033
www.lanouvelle.net 2289 2 880
ICI Mauricie Centre-du-Québec 1985 18 804
TVA Gatineau-Ottawa 1842 4 870
98,5 FM 1764 9 599
ICI Ottawa Gatineau 1750 6 527
ICI Saguenay–Lac-Saint-Jean 1546 4 672
ICI Estrie 1542 9 663
ICI Grand Montréal 1458 27 465
FM Charlevoix - CIHO 96,3 1267 1 655
Le Charlevoisien 1267 1 796
L’actualité 1232 63 379
Le Courrier du Sud 1215 1 502
ICI Côte-Nord 1195 17 457
104,7 Outaouais 1179 5 812
Le Citoyen Rouyn - La Sarre 1168 2 436
ICI Abitibi-Témiscamingue 1145 7 562
L’Avantage 1089 5 218
L’Hebdo du St-Maurice 1075 4 315
ICI Bas-Saint-Laurent 1075 22 493
EnBeauce.com 1059 5 468
Les 2 Rives 1043 2 322
Journal Mobiles 1034 7 464
Le Courrier Sud 1032 4 249
ICI Gaspésie-Les-Îles 1016 6 445
Le Nord-Côtier 999 2 485
Journal L’Express de Drummondville 971 2 562
CFIM, la radio des Îles de la Madeleine 954 16 484
Info Dimanche 948 3 493
TVA Québec 890 3 437
Journal Le Reflet 884 0 609
FM 103,3 - La radio allumée 884 33 329
L’Éclaireur Progrès 824 3 245
Journal Le Manic 798 2 446
TVA Nouvelles Abitibi-Témiscamingue 780 1 335
Le Soleil de Châteauguay 778 0 572
TVA Est-du-Québec 712 2 298
TVA Saguenay-Lac-St-Jean 705 2 382
FM93 Québec 672 1 269
MédiAT 662 0 314
Écho de La Tuque 613 0 268
Journal Saint-François 588 1 437
L’Écho de Maskinongé 568 0 219
TVA Sherbrooke 568 2 309
Journal L’Action 557 0 272
Journal Le Lac-St-Jean 542 0 229
Courrier Laval 540 3 336
L’Hebdo Journal 530 2 200
Courrier Frontenac 528 1 175
L’info du Nord Mont-Tremblant 517 0 226
L’info de la Basse-Lièvre 516 2 193
Journal de Chambly 498 0 148
Le Reflet du Lac 487 0 162
CHGA FM, la radio de la Vallée-de-la-Gatineau 480 0 270
L’Avantage Gaspésien 461 6 123
Beauce Média 458 0 122
Hebdomadaire La Revue de Terrebonne 434 0 236
Journal Nouvelles Hebdo 427 2 174
Journal La Voix du Sud 420 0 188
Le Placoteux 417 3 221
Radio X - CHOI 98,1 407 0 256
Hebdo Rive Nord 405 2 195
Journal Coup d’oeil 391 2 157
BeauceTV 389 0 185
Radio Gaspésie 389 3 264
GranbyExpress.com 380 0 119
L’info Petite Nation 378 0 119
Québec Hebdo 365 1 117
Journal L’Étoile du Lac 363 0 148
VIA 90.5 FM 358 2 229
Journal Le Canada Français 350 1 131
EstriePlus.com Le Journal Internet 349 4 103
Journal La Pensée de Bagot 338 0 117
TVR9 309 1 79
L’OEil Régional 304 0 121
Radio Acton 297 0 123
Monlimoilou 291 2 86
Journal Le Nord 275 1 144
106.9 FM Mauricie 273 2 169
Le Courrier de Saint-Hyacinthe 269 0 110
Le Journal de Joliette 266 1 153
L’Avant-Poste 266 1 94
Country Pop 103,1 261 0 83
La Sentinelle 251 0 37
Journal L’Express Montcalm 251 0 104
L’Écho de Laval 249 0 86
Monsaintroch 248 1 65
L’info du Nord Vallée de la Rouge 243 0 124
CKRL 89,1 242 1 39
Courrier de Portneuf 240 0 124
Monsaintsauveur 215 0 57
Le Progrès de Coaticook 209 1 72
JournalLeGuide.com 189 0 38
L’Indice bohémien 186 4 81
L’Écho de Frontenac 185 0 31
Le Peuple Lotbinière 163 0 49
Actualités - L’Étincelle du Val SF 157 0 56
lAvenirEtDesRivieres.com 157 1 61
Journal Ski-se-Dit 157 1 31
L’aut’journal 156 1 59
Journal L’Action D’Autray 154 0 44
Bulletin des Chenaux 152 1 55
Radio Canada International 148 4 106
Le Radar, l’hebdomadaire des Îles 146 0 33
Journaldesvoisins.com 138 1 53
Journal L’Éveil 136 1 44
92,9 CFUT 131 0 26
CKMN.FM 125 0 40
Journal Autour de l’Île 123 0 94
Journal l’Écho d’en Haut Inc. 98 0 13
TVC Basse-Lièvre 98 0 45
Journal L’Horizon, presse coopérative des Basques 97 1 33
Csur la télé 93 0 13
Journal Le Carrefour de Québec 92 0 29
Le Nord Info 85 0 38
L’Écho de Trois-Rivières 84 0 35
Tremblant Express 75 1 36
Journal Le Sentier 71 0 15
JOURNAL GRAFFICI 67 1 14
Journal Le Mouton Noir 64 0 25
L’Écho de la Rive-Nord 60 0 23
Sorel-Tracy Express.ca 59 0 19
Journal La Relève 56 0 38
CTBTV 55 0 18
Journal Entrée Libre 50 0 27
CFMF 103,1 FM 50 0 24
Le Gaboteur 47 0 13
La Métropole 47 0 6
Journal Le Lavalois 46 0 13
CHIP 101.9 45 0 45
Chambly Express.ca 42 0 10
Journal Communautaire Le Cantonnier 41 0 22
Versants du Mont-Bruno 35 0 27
Journal Droit de Parole 34 0 8
Journal Outremont 34 1 17
Journal communautaire Ensemble pour bâtir 24 0 12
Television Rive-Sud-TVRS 22 0 17
La Vie d’Ici 19 0 3
TCFTV Montréal 11 0 9
Radio Centre-ville 8 0 2
n_media_FB <- fb_posts$media %>% unique() %>% length()
#names_media_FB <-  fb_posts$media %>% unique() %>% sort()

 rm(fb_posts)

The total number of media in the Facebook corpus is 153.

3 The progression of the pandemic in Quebec

With data from the Institut national de santé publique du Québec (here), we can produce a graph of the number of confirmed cases of COVID-19 in Quebec:

dt_covid_cases <- fread(paste0(data_folder,"nb_cas_COVID_qc.csv"))
dt_covid_cases <- dt_covid_cases[ , list(date = as.Date(`Date de déclaration du cas`), 
                       nb_cases = `Par lien épidémiologique` + `En laboratoire`)]


ggplot(dt_covid_cases, aes(x= date, y = nb_cases)) + geom_smooth(span = .1, se= FALSE) + theme_classic() +
  labs(x= "", y = "Number of new cases") + scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text))
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

5 More Science?

The first big question is whether science-related articles have been more present in the media during the pandemic. We look at this proportion with a week-long rolling mean and then with a smoothing using local polynomial regression (because the rolling mean still gives us too much noise).

### FETCHING THE DATA AGAIN ####

#Connections
DB_connection_2020 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01122019_30062020")
DB_connection_2019 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01122018_30062019")
DB_connection_2018 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01012018_30062018")
DB_connection_2017 <- mongolite::mongo(db = "projetThinkTank", collection = "all_articles_01012017_30062017")


fields = '{"scraped_on" : true, "media_url" : true, "full_article_text" : true,
           "scraped_on" : true, "original_article_url" : true, "title" : true}'

dt_articles_2020 <- DB_connection_2020$find(query = "{}", fields = fields) %>% data.table()
dt_articles_2020[, date := as.Date(as.POSIXct(scraped_on, origin="1970-01-01"))]
DB_connection_2020$disconnect()
#dt_articles_2020 <- dt_articles_2020[date >= as.Date("2020-03-01")]

dt_articles_2019 <- DB_connection_2019$find(query = "{}", fields = fields) %>% data.table()
dt_articles_2019[, date := as.Date(as.POSIXct(scraped_on, origin="1970-01-01"))]
DB_connection_2019$disconnect()

#dt_articles_2019 <- dt_articles_2019[date >= as.Date("2019-03-01")]

dt_articles_2018 <- DB_connection_2018$find(query = "{}", fields = fields) %>% data.table()
dt_articles_2018[, date := as.Date(as.POSIXct(scraped_on, origin="1970-01-01"))]
DB_connection_2018$disconnect()

#dt_articles_2018 <- dt_articles_2018[date >= as.Date("2018-03-01")]

dt_articles_2017 <- DB_connection_2017$find(query = "{}", fields = fields) %>% data.table()
dt_articles_2017[, date := as.Date(as.POSIXct(scraped_on, origin="1970-01-01"))]
DB_connection_2017$disconnect()

#dt_articles_2017 <- dt_articles_2017[date >= as.Date("2017-03-01")]

dt_articles_2017_2019 <- rbind(dt_articles_2017, dt_articles_2018, dt_articles_2019)
rm(dt_articles_2017); rm(dt_articles_2018); rm(dt_articles_2019)
gc()

liste_media <- read.csv(paste0(data_folder,"liste_finale_medias.csv")) %>% data.table()
liste_media <- liste_media[dans_oci == TRUE]

#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#### Nettoyage pour usage général ####
#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dt_articles_2017_2019$corpus <- 1
dt_articles_2020$corpus <- 2
dt_full_text <- rbind(dt_articles_2017_2019, dt_articles_2020)
rm(dt_articles_2017_2019); rm(dt_articles_2020); gc()
setnames(dt_full_text, "_id", "doc_ID")
#D'abord on met la date dans le bon format

dt_full_text[, date := as.Date(as.POSIXct(scraped_on, origin="1970-01-01"))][,scraped_on := NULL]

#On garde seulement les articles de plus de 200 caractères
dt_full_text[,text_length := str_length(full_article_text)]
dt_full_text <- dt_full_text[text_length > 200][,text_length := NULL]


#On prend seulement les médias que l'on veut dans notre corpus
dt_full_text <- take_medias_in_list(dt_full_text, liste_media)
#Certaines sections de média (sections affaires, argent, etc.) ne sont pas retirés par notre fonction
other_media_to_take_off <- c("https://www.985fm.ca/sports",
                             "https://www.tvanouvelles.ca/argent",
                             "http://www.lapresse.ca/techno/",
                             "https://www.lapresse.ca/affaires/",
                             "http://affaires.lapresse.ca/dossiers/la-presse-affaires-magazine/",
                             "http://affaires.lapresse.ca/",
                             "https://www.journalsaint-francois.ca/the-gleaner-changed-hands-wednesday/",
                             "http://www.estrieplus.com/section-0404040431353537-actualites.html")

dt_full_text <- dt_full_text[!media_url %in% other_media_to_take_off][,media_url := NULL]


# Les acronymes qui reviennent souvent dans le corpus (CHSLD, SRAS, OMS, PCU)
# On veut éviter que des parties de la forme longue se retrouve dans les bigrams.
dt_full_text[,full_article_text := str_replace_all(full_article_text, 
                                                   pattern = "[Cc]entre[s]?(\\s)(d['’]hébergement|hospitaliers)(\\s)(et )?(de|en)(\\s)soins(\\s)(de(\\s))?longue(\\s)durée", 
                                                   replacement = "CHSLD")]
dt_full_text[,full_article_text := str_replace_all(full_article_text, 
                                                   pattern = "[Pp]restation(\\s)canadienne(\\s)d[’']urgence", 
                                                   replacement = "PCU")]
dt_full_text[,full_article_text := str_replace_all(full_article_text, 
                                                   pattern = "[Ss]yndrome(\\s)respiratoire(\\s)aigu(\\s)sévère", 
                                                   replacement = "SRAS")]
dt_full_text[,full_article_text := str_replace_all(full_article_text, 
                                                   pattern = "[Oo]rganisation(\\s)[Mm]ondiale(\\s)de(\\s)la(\\s)[Ss]anté", 
                                                   replacement = "OMS")]

dt_full_text[(grepl("covid", full_article_text, ignore.case = TRUE) | 
                grepl("virus", full_article_text, ignore.case = TRUE) |
                grepl("sars-cov", full_article_text, ignore.case = TRUE) |
                grepl("sras-cov", full_article_text, ignore.case = TRUE))
             & corpus == 2, #Ils ne peuvent être que dans le second corpus (2020)
             is_covid := TRUE][is.na(is_covid), is_covid := FALSE]


dt_full_text[grepl("(\\s)scien", full_article_text, ignore.case = TRUE) |
               grepl("(\\s)chercheu", full_article_text, ignore.case = TRUE),
             is_science := TRUE][is.na(is_science), is_science := FALSE]

dt_full_text <- dt_full_text[,list(doc_ID, date, root_url, is_covid, is_science, n_char_text = nchar(full_article_text))]

# La dernière partie prend du temps, donc on sauvegarde ici
save(dt_full_text, file = paste0(data_folder, "dt_full_text_for_count_sci.RData"))
load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))

#On compte d'abord le nombre d'article total par jour, et le nombre d'article qui mentionnent la science chaque jour
dt_plot <- dt_full_text[, list(total_art = .N, total_sci = sum(is_science)), by = date]

#Pour que les lignes soient superposées, on leur met tous la même année
dt_plot <- dt_plot[month(date) < 7]
dt_plot[,year := substr(date,1,4)]
dt_plot[year == 2017, date := as.Date(date) %m+% years(3)]
dt_plot[year == 2018, date := as.Date(date) %m+% years(2)]
dt_plot[year == 2019, date := as.Date(date) %m+% years(1)]

dt_plot[year %in% 2017:2019, corpus := 1][is.na(corpus), corpus := 2]

dt_plot[, proportion := sum(total_sci)/sum(total_art), by = .(year, date)]
#On utilise la moyenne sur 7 jours (3 jour avant et 3 jours après)
#Pour les 3 premiers jours de la période et les 3 derniers, on prend respectivement les 6 jours suivant et les 6 jours précédents.
window_size = 7
dt_plot[, `:=`(week_mean = rollmean(proportion, window_size, align = "center", na.pad = TRUE),
               first_nas = rollmean(proportion, window_size, align = "left", na.pad = TRUE),
               last_nas = rollmean(proportion, window_size, align = "right", na.pad = TRUE)), by = year]
dt_plot[is.na(week_mean) & is.na(first_nas), week_mean := last_nas]
dt_plot[is.na(week_mean) & is.na(last_nas), week_mean := first_nas]


dt_plot[corpus == 1, corpus_years := "2017-2019"]
dt_plot[corpus == 2, corpus_years := "2020"]
dt_plot[,corpus_years := as.factor(corpus_years)]


title_g <- "Science-related articles in Franco-Canadian media"

ggplot(dt_plot[date > as.Date("2020-01-01")], aes(x=date, y=week_mean, col = year)) + 
  geom_line(size = .8) + 
  theme_classic() + 
  scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") +
  ggtitle(title_g) +
    theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text)) +
  ylab("Proportion") +
   labs(color = "Year", subtitle = "(Lines are seven-day rolling means)") + xlab("") +
  scale_color_viridis(discrete=TRUE, end = .9, direction = -1) + 
  geom_segment(aes(x = pos_vline,xend=pos_vline,y=.03,yend=.083), 
               linetype="dashed", colour = "black", size=.8, alpha = .6) + 
  geom_text(aes(x=pos_vline, y= Inf, label = "Start of\npublic health\nemergency"), colour = "black", vjust = 1.2, size = 3)

p_more_sci <- ggplot(dt_plot[date > as.Date("2020-01-01")], aes(x=date, y=proportion, col = year)) + 
  geom_smooth(span = .2, se = FALSE) + 
  theme_classic() + 
  scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") +
  ggtitle(title_g) + #ylim(0, NA) + 
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text)) +
  ylab("Proportion") +
  labs(color = "Year", subtitle = "(Curves smoothed by local polynomial regression)") + xlab("") +    scale_color_viridis(discrete=TRUE, end = .9, direction = -1) + 
  geom_segment(aes(x = pos_vline,xend=pos_vline,y=.03,yend=.078), 
               linetype="dashed", colour = "black", size=.8, alpha = .6) + 
  geom_text(aes(x=pos_vline, y= Inf, label = "Start of\npublic health\nemergency"), colour = "black", vjust = 1.2, size = 3)

p_more_sci
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

prop_sci_first_half_y <- dt_plot[, list(annual_proportion = sum(total_sci)/sum(total_art)), by = year]

prop_sci_pandemic <- dt_plot[date > as.Date("2020-03-14"), 
                                      list(annual_proportion = sum(total_sci)/sum(total_art)), by = year]


# Preparing data for use below
n_dt_covid_cases <-  "New COVID-19 cases"
n_dt_science_prop <- "Proportion of science-\nrelated articles"

dt_p <- rbindlist(list(dt_covid_cases[,list(date, y = nb_cases, type_dt =  n_dt_covid_cases)], 
                       data.table(date = as.Date(as.Date("2020-01-01"):(min(dt_covid_cases$date)-1)),
                                  y = 0,  type_dt =  n_dt_covid_cases),
               dt_plot[year == 2020, list(date, y = proportion,type_dt = n_dt_science_prop)]
),fill = TRUE)


rm(dt_plot, dt_full_text)

We see that the proportion of science-related posts is trending upward from year to year:

nb_round = 3
prop_sci_first_half_y[, `Growth_rate` := round(c(NA, diff(annual_proportion)/annual_proportion[1:(.N-1)]),nb_round)]

prop_sci_first_half_y[,list(Year = year, `Proportion` = round(annual_proportion,nb_round), `Growth rate` = Growth_rate)] %>%
  kable(caption = "Proportion of science-related articles in the first half of the year") %>%  kable_styling("hover")
Proportion of science-related articles in the first half of the year
Year Proportion Growth rate
2017 0.041 NA
2018 0.048 0.179
2019 0.055 0.137
2020 0.065 0.200
prop_sci_pandemic[, `Growth_rate` := round(c(NA, diff(annual_proportion)/annual_proportion[1:(.N-1)]),3)]

prop_sci_pandemic[,list(Year = year, `Proportion` = annual_proportion, `Growth rate` = Growth_rate)] %>%
  kable(caption = "Proportion of science-related articles from March 14 (announcement of the public health emergency by Quebec's government in 2020) to the end of June") %>%  kable_styling("hover")
Proportion of science-related articles from March 14 (announcement of the public health emergency by Quebec’s government in 2020) to the end of June
Year Proportion Growth rate
2017 0.0376806 NA
2018 0.0497736 0.321
2019 0.0554646 0.114
2020 0.0673893 0.215

This result is surprising. We can legitimately wonder if it is an artefact of a change in the database. As a robustness check, we computed:

  1. The annual proportion for the main media:
load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))

dt_full_text[root_url %in% c("www.lapresse.ca", "www.journaldemontreal.com","ici.radio-canada.ca", "www.ledevoir.com","www.tvanouvelles.ca"), list(Proportion = sum(is_science)/.N ), by = year(date)]
rm(dt_full_text)
  1. The annual proportion for articles with more than 1000 characters (since the average length of articles is also trending up):
load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))

dt_full_text[n_char_text > 1000, list(Proportion = sum(is_science)/.N), by = year(date)]
rm(dt_full_text)
  1. A combination of the two previous restrictions:
load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))

dt_full_text[n_char_text > 1000 & 
root_url %in% c("www.lapresse.ca", "www.journaldemontreal.com","ici.radio-canada.ca", "www.ledevoir.com", "www.tvanouvelles.ca"),
list(Proportion = sum(is_science)/.N), by = year(date)]
rm(dt_full_text)

The upward trend is present under all of these restrictions. Hence, it does not appear to be an artefact of the database.

The similitude in the temporal patterns of daily COVID cases and of science-related articles is striking:

ggplot(dt_p[date <= as.Date(dt_p[type_dt == n_dt_science_prop, max(date)])], aes(x = date, y = y)) + geom_smooth(span = .2, se = FALSE) + 
  facet_grid(rows = vars(type_dt), scales="free_y") + 
#  theme_classic() + 
  scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text), strip.text = element_text(size = size_axis_text)) + 
  labs(x= "", y = "", subtitle = "(Curves smoothed by local polynomial regression)", 
       title = "Number of COVID-19 cases and proportion of science-related articles") 
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Although unlikely, this timing could be a coincidence. Are articles about COVID more likely to be flagged by our indicator as related to science?

load(paste0(data_folder, "dt_full_text_for_count_sci.RData"))
 
dt_full_text$is_covid <- factor(dt_full_text$is_covid , levels = c("TRUE", "FALSE")) 
ggplot(
  dt_full_text[year(date) == 2020, sum(is_science)/.N, by = .(date, is_covid)],
  aes(x=date, y = V1, color = is_covid)) + geom_smooth(span = .4, se = FALSE) + 
  theme_classic() + ylim(0,NA) + 
  scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text)#, legend.position="none"
        ) +
  labs(y = "Proportion", x = "", title = title_g, 
       subtitle = "(Curves smoothed by local polynomial regression)", color = "About COVID") + 
  geom_segment(aes(x = pos_vline,xend=pos_vline,y=0,yend=.26), 
               linetype="dashed", colour = "black", size=.8, alpha = .6) + 
  geom_text(aes(x=pos_vline, y= Inf, label = "Start of\npublic health\nemergency"), colour = "black", vjust = 1.2, size = 3)  + scale_color_viridis( discrete=TRUE, end = .6, direction = 1) # +
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

#print("Proportion of science-related articles in the first half of 2020")
dt_full_text[year(date) == 2020, list(proportion_of_science = sum(is_science)/.N), by = is_covid] %>% 
  kable(caption = "Proportion of science-related articles in the first half of 2020") %>%  kable_styling("hover", full_width = F)
Proportion of science-related articles in the first half of 2020
is_covid proportion_of_science
FALSE 0.047272
TRUE 0.095466
dt_full_text[between(date, as.Date("2020-01-01"), as.Date("2020-02-29")), list(proportion_of_science = sum(is_science)/.N), by = is_covid] %>% 
  kable(caption = "Proportion of science-related articles in January and February of 2020") %>%  kable_styling("hover", full_width = F)
Proportion of science-related articles in January and February of 2020
is_covid proportion_of_science
FALSE 0.0576441
TRUE 0.1693911
#print("Proportion of science-related articles in March to June of 2020")
dt_full_text[date > as.Date("2020-02-29"), list(proportion_of_science = sum(is_science)/.N), by = is_covid] %>% 
  kable(caption = "Proportion of science-related articles in March to June of 2020") %>%  kable_styling("hover", full_width = F)
Proportion of science-related articles in March to June of 2020
is_covid proportion_of_science
FALSE 0.0383117
TRUE 0.0922036
rm(dt_full_text)

6 What Science?

6.1 Morphosyntactic analysis

#### Préparation des données ####
load(paste0(data_folder, "dt_full_text.RData"))

#On enlève les '*' dans le full_article_text
dt_full_text[,full_article_text := str_replace_all(full_article_text, "\\*", "")]
#On veut utiliser que les articles qui parlent de science
dt_science <- dt_full_text[is_science == TRUE, list(art_ID, full_article_text, corpus)] %>% unique()
#On divise par paragraphe
dt_science <- cSplit(dt_science[,c("art_ID", "corpus", "full_article_text")], 
                     "full_article_text", "\n\n", direction = "long") %>% data.table()

setnames(dt_science, "full_article_text", "paragraphe")
#On ne prend que les paragraphes qui mentionnent scien ou chercheu
dt_science <- dt_science[grepl("(\\s)scien", paragraphe) | grepl("(\\s)chercheu", paragraphe)]
#On fait des identifiants de paragraphe pour la recherche sémantique ensuite
dt_science[,paragraphe_ID := paste0(art_ID, c(1:.N)), by = art_ID]

save(dt_science, file = paste0(data_folder, "dt_science.RData"))


#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#### Analyse morphosyntaxique du corpus science ####
#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#Importation du modèle de langue 

model_dir <- paste0(getwd(),'/Udpipe_model')
if (!dir.exists(model_dir)) {dir.create(model_dir)}

# 3 Télécharger du modèle de langue
udtarget <- udpipe_download_model(language = "french-gsd", model_dir = model_dir)

udmodel <- udpipe_load_model(file = udtarget$file_model)

#On crée la table avec de tokens annotés
dt_tagged_tokens_science <- 
  #Appliquer le partitionnement et l'analyse morphosyntaxique
udpipe_annotate(
  udmodel,
  dt_science$paragraphe,
  doc_id = dt_science$paragraphe_ID) %>%
as.data.table(.) %>%
# on retire les tokens sans annotation
.[!is.na(upos)]

dt_tagged_tokens_science <- merge(dt_tagged_tokens_science[,list(doc_id, token_id, token, lemma, upos)],
                                  dt_science[,list(art_ID, paragraphe_ID, corpus)],
                                  by.x = "doc_id", by.y = "paragraphe_ID",
                                  all.x = TRUE, all.y = FALSE)

save(dt_tagged_tokens_science, file = paste0(data_folder, "dt_tagged_tokens_science.RData"))

6.2 Specific verbs in COVID period

load(paste0(data_folder, "dt_tagged_tokens_science.RData"))

dt_lemmas <- dt_tagged_tokens_science[upos == "VERB"]

dt_chi_sqr <- dt_lemmas[lemma != "<unknown>",.N, by = .(lemma, corpus)]
dt_chi_sqr <- merge(dt_chi_sqr[corpus == 1], dt_chi_sqr[corpus == 2], by = "lemma", all = TRUE)
dt_chi_sqr[is.na(corpus.x), `:=`(corpus.x = 1, N.x = 0)]
dt_chi_sqr[is.na(corpus.y), `:=`(corpus.y = 2, N.y = 0)]
setnames(dt_chi_sqr, c("corpus.x", "corpus.y", "N.x", "N.y"),
         c("corpus_1", "corpus_2", "Lemma_count_1", "Lemma_count_2"))
#Éviter les divisions par zéro
dt_chi_sqr[, `:=`(Lemma_count_1 = Lemma_count_1 + 1, Lemma_count_2 = Lemma_count_2 + 1)]

res_chi <- chisq.test(dt_chi_sqr[,list(Lemma_count_1,Lemma_count_2)])
## Warning in chisq.test(dt_chi_sqr[, list(Lemma_count_1, Lemma_count_2)]):
## Chi-squared approximation may be incorrect
dt_chi_sqr[, residual := res_chi$stdres[,2]]
setorder(dt_chi_sqr, residual)
lemmas_that_are_not_verbs <- c("quir", "unrir", "hydroxychloroquiner", "infecté", "influenzer", "éternir",
                              "immuniter", "épidémie", "ne", "professeurer", "âgé", "professeur")
dt_chi_sqr <- dt_chi_sqr[!lemma %in% lemmas_that_are_not_verbs]

nb_words <- 30
dt_plot <- rbind(dt_chi_sqr[, list(lemma, residual)] %>% head(nb_words), 
                 dt_chi_sqr[, list(lemma, residual)] %>%  tail(nb_words))

dt_plot[residual > 0, corpus_title := "2020"][is.na(corpus_title), corpus_title := "2017-2019"]
dt_plot[corpus_title == "2017-2019", residual := -residual]
ggplot(dt_plot, aes(x = reorder(lemma, residual), y = residual, fill = corpus_title), col = corpus_title) + 
  geom_bar(stat = "identity") + ylab("Chi-square residual") + xlab("Lemma") + 
  facet_wrap(~corpus_title, scales = "free_y") +
  scale_x_reordered() +
  scale_y_continuous(expand=c(0,0)) + guides(fill=FALSE) + 
  theme_bw() + coord_flip() + scale_fill_viridis( discrete=TRUE, end = .6, direction = -1) 

6.3 Semantic search engine

The characteristic verbs in the image above can be hard to interpret. We thus build a search engine to find paragraphs that are most characteristics of the general usage of one or more verbs.

#Ces deux tables ont été produites dans 03-Analyse_morphosyntaxique.R
load(paste0(data_folder, "dt_tagged_tokens_science.RData"))
load(paste0(data_folder, "dt_science.RData"))

search_most_similar_paragraph <- function(request_words, corpus_, nombre_article = 5)
{
  dt_lemmas <- dt_tagged_tokens_science[upos %in% c('VERB','NOUN','ADJ','ADV','PROPN') & corpus == corpus_, 
                                        list(lemma, art_ID, doc_id)]

  #La fonction itoken de text2vec veut ce format, c'est-à-dire, une liste de token (ou lemme) par document
  dt_lemmas <- dt_lemmas[,.(lemma = list(lemma)), by =doc_id]
  
  #Structure de donnée qui permet de travailler avec nos données sans faire de copies
  iterateur <- text2vec::itoken(dt_lemmas$lemma,
                           ids = dt_lemmas$doc_id,
                           progressbar = FALSE)
  
  vocabulaire <- text2vec::create_vocabulary(iterateur,
                                       ngram=c(ngram_min = 1,
                                               ngram_max = 1))
  
  vocabulaire <- text2vec::prune_vocabulary(vocabulaire,
                                      term_count_min = 2,
                                      term_count_max = Inf,
                                      doc_proportion_min = 0.0001,
                                      doc_proportion_max = 0.5,
                                      doc_count_min = 1,
                                      doc_count_max = Inf,
                                      vocab_term_max = Inf)
  
  setDT(vocabulaire)
  
  #Permet de vectoriser nos documents. Le vectorizer et utilisé par create_dtm (voir la doc si ce n'est pas clair)
  vectorizer <- text2vec::vocab_vectorizer(vocabulaire)
  
  dtm <- text2vec::create_dtm(iterateur,
                             vectorizer,
                             type = "dgCMatrix")
  
  #On transforme le dtm pour que les cellules contiennent les valeurs tf-idf
  dtm_tfidf_initialisation <- text2vec::TfIdf$new()
  dtm_tfidf <- dtm_tfidf_initialisation$fit_transform(dtm)
  rm(dtm_tfidf_initialisation)
  
  n_dimensions_M_originale <- ncol(dtm)
  
  #Initiatilisation vecteur de requete
  vecteurRequete <- Matrix(data = 0, nrow = 1, ncol =  n_dimensions_M_originale)  
  
  #Les colones sont nommé selon avec mots de notre dtm, ce qui facilite la création d'une requête
  colnames(vecteurRequete) <- colnames(dtm)
  
  rownames(vecteurRequete) <- "requete"
  
  vecteurRequete[1, request_words] <- 1
  
  
  similarite_cosinus <- proxyC::simil(x = dtm_tfidf, 
                                      y = vecteurRequete, method = "cosine") %>% 
                        as.data.frame.matrix()
  
  colnames(similarite_cosinus) <- c("Cosine")
  similarite_cosinus['ID'] <- rownames(dtm_tfidf)
  
  setDT(similarite_cosinus)
  setorder(similarite_cosinus, -Cosine)
  setnames(similarite_cosinus, "ID", "paragraphe_ID")
  
  #On va chercher les paragraphes dans dt_science et on ordre par ls score cosinus
  resultats_recherche_semantique <- merge(similarite_cosinus[Cosine > 0.1], dt_science, 
                                          by = "paragraphe_ID", all.x = TRUE, all.y = FALSE)
  
  resultats_recherche_semantique[order(-Cosine), list(Cosine, paragraphe = str_replace_all(paragraphe, "\n", " "))] %>% unique() %>% head(nombre_article)
}
corpus_nb <- 1
for( term_to_search in dt_plot[grepl("2017", corpus_title),lemma][1:10] ){
  search_most_similar_paragraph(term_to_search, corpus_ = corpus_nb) %>% 
    kable(caption = paste0("Characteristic paragraphs for term '", term_to_search, 
                        "' in the ", ifelse(corpus_nb ==1,"2017-2019", "2020")," corpus.")) %>% print()

}
Characteristic paragraphs for term ‘découvrir’ in the 2017-2019 corpus.
Cosine paragraphe
0.7190085 Les chercheurs ont notamment découvert :
0.5414218 Quelques actualités scientifiques à découvrir:
0.5167803 Les chercheurs ont analysé des fossiles découverts au cours des 30 dernières années et qui incluent plus d’espèces, dont quelques-unes ont été découvertes récemment seulement.
0.3865394 Les chercheurs tentent toujours de découvrir ce qui peut expliquer ce type de cancer.
0.3797436 Des chercheurs ont découvert qu’il est possible, en combinant l’âge des patients et les informations découvertes dans de simples analyses de sang, de prédire dans près de 80% des cas leur risque de souffrir d’une maladie chronique.
Characteristic paragraphs for term ‘participer’ in the 2017-2019 corpus.
Cosine paragraphe
0.5923243 Le chercheur participe au projet BiotaNB depuis ses débuts.
0.3761234 Le premier patient à avoir participé à ce programme, le «patient zéro», a permis aux chercheurs de croire qu’ils étaient sur la bonne voie.
0.3592489 Des chercheurs de la Société de conservation de la faune du Canada ont également participé à cette étude.
0.3552853 Le premier patient à avoir participé à ce programme, le «patient zéro», a permis aux chercheurs de croire qu’ils étaient sur la bonne voie.
0.3515860 Des jeunes participent à la Foire des sciences de l’Université de Montréal. Photo : 24 heures de science
Characteristic paragraphs for term ‘améliorer’ in the 2017-2019 corpus.
Cosine paragraphe
0.4198217 Les scientifiques en viennent à la conclusion que l’exercice améliore la vie quotidienne et la mobilité des aînés qui souffrent de la maladie d’Alzheimer; il pourrait aussi améliorer leur équilibre et leur cognition générale.
0.4182645 Les scientifiques en viennent à la conclusion que l’exercice améliore la vie quotidienne et la mobilité des aînés qui souffrent de la maladie d’Alzheimer; il pourrait aussi améliorer leur équilibre et leur cognition générale.
0.3598532 «[La série d’exercices] permet de renforcer les muscles, améliorer l’équilibre, améliorer la santé cardiovasculaire, voire la santé cognitive», souligne la chercheuse Mylène Aubertin-Leheudre, également docteure en kinésiologie.
0.3533776 Le rapport publié par le Conseil des ministres de l’Éducation du Canada (CMEC) précise également que le rendement en mathématiques s’est nettement amélioré dans presque toutes les provinces. Entre 2013 et 2016, le rendement en sciences s’est amélioré quant à lui dans la moitié des 10 provinces canadiennes.
0.3352167 Il rappelle que le gouvernement fédéral a annoncé un investissement de 24 millions $ dans le programme d’aquaculture durable du Canada, qui vise à simplifier la réglementation, améliorer sa gestion, accroître les connaissances scientifiques, améliorer la prise de décisions axée sur la science et assurer la transparence grâce à la publication de rapports publics.
Characteristic paragraphs for term ‘intéresser’ in the 2017-2019 corpus.
Cosine paragraphe
0.6475784 Il dit s’être toujours intéressé à la science.
0.3784631 Les chercheurs se sont intéressés à quelque 4200 jeunes âgés de 9 à 11 ans provenant de partout aux États-Unis.
0.3691491 Il souhaite, par cette expérience, emmener le grand public à s’intéresser à la science.
0.3690649 On lui demande si la Terre l’intéresse désormais plus que les étoiles, qui ont longtemps été au centre de ses recherches et de son oeuvre de vulgarisation scientifique. «Je m’intéresse toujours aux deux», dit-il. Mais dans le cas de l’écologie, il y a une «urgence», alors que les étoiles, elles, «peuvent attendre encore un peu».
0.3645930 «Oui, on s’intéresse à la science, mais au-delà de ça, il faut qu’on s’assure que les filles s’intéressent à l’école. C’est pour ça que nous avons aussi un volet d’aide aux devoirs et d’apprentissage du français», explique Valérie Bilodeau.
Characteristic paragraphs for term ‘organiser’ in the 2017-2019 corpus.
Cosine paragraphe
0.4809659 C’est au gouvernement de s’organiser pour que la culture scientifique soit convenablement financée.
0.4213113 L’activité avait été organisée par Sylvie Latour, enseignante de sciences à l’école.
0.4196470 En janvier 2015, une chercheuse norvégienne, Emilie Oftedal, a étudié pour le compte du Norwegian Defense Research Establishment (FFI) 40 cellules terroristes qui ont, entre 1994 et 2013, organisé ou tenté d’organiser des attentats en Europe.
0.4006068 En janvier 2015, une chercheuse norvégienne, Émilie Oftedal, a étudié pour le compte du Norwegian Defense Research Establishment (FFI) quarante cellules terroristes qui ont, entre 1994 et 2013, organisé ou tenté d’organiser des attentats en Europe.
0.3684599 L’événement est organisé grâce à la collaboration du Conseil de recherches en sciences naturelles et en génie du Canada.
Characteristic paragraphs for term ‘consommer’ in the 2017-2019 corpus.
Cosine paragraphe
0.4370618 En se basant sur des dizaines de mémoires et études scientifiques déposés à Ottawa ces derniers mois, l’ASPQ arrive à la conclusion que consommer du cannabis ne comporte pas plus de risques pour la santé que consommer de l’alcool. «Selon l’OMS, il est plus risqué de consommer de l’alcool ou d’être en surpoids que de consommer du cannabis, lorsque l’on analyse le nombre d’années perdues dues à la mort et à l’invalidité», affirme l’organisme dans un énoncé de position obtenu par La Presse. Les données provenant des États américains où la consommation récréative a été légalisée tendent à démontrer que la consommation chez les jeunes est restée stable depuis la légalisation. «Au Colorado, une légère augmentation a été observée au début de la légalisation. Par la suite, la consommation de cannabis chez les jeunes a diminué», écrit l’ASPQ.
0.4035406 Ces chercheurs ont en effet identifié une espèce, le merlu argenté, qui ne consomme aucune matière plastique.
0.4008297 L’équipe de chercheurs ignore toutefois si c’est le fait de consommer souvent du pot qui rend plus téméraire ou si c’est le fait d’avoir une personnalité téméraire qui pousse à consommer.
0.3649864 En examinant le lien entre ces cancers et les habitudes de consommation de thé, les chercheurs ont observé une hausse importante du risque (1,5 fois) chez les personnes qui le consommaient à une température supérieure à 60 °C, de même que chez celles qui le buvaient plus rapidement après l’infusion. En mesurant de façon objective la température des boissons consommées, ces résultats renforcent donc le lien existant entre les boissons très chaudes et le cancer de l’œsophage et suggèrent donc fortement que les amateurs de thé et de café ont tout avantage à laisser refroidir quelque peu leur boisson avant de la consommer.
0.3406970 La science déboulonne cet argument-là. Ça serait le même principe que de dire que ceux qui consomment de l’alcool ont d’abord commencé à boire du lait. Oui, la plupart des gens qui consomment des drogues dures ont commencé par le cannabis, mais beaucoup de fumeurs de cannabis ne vont jamais vers les drogues dures.
Characteristic paragraphs for term ‘expliquer’ in the 2017-2019 corpus.
Cosine paragraphe
0.3351945 «Ces propriétés pourraient expliquer la brillance caractéristique des violons Stradivari», expliquent les chercheurs, dans leur étude publiée lundi dans la revue scientifique américaine Proceedings of the National Academy of Sciences.
0.3235538 Déjà, les résultats se font sentir. La chercheuse explique que les jeunes ont augmenté leurs connaissances en matière de violence amoureuse. « La jalousie n’est pas une preuve d’amour », explique-t-elle.
0.3004652 Cet hydrogène ne peut s’expliquer que par une activité hydrothermale propice à l’existence de la vie, ont expliqué les scientifiques en annonçant cette découverte le 13 avril.
0.2973654 Cet hydrogène ne peut s’expliquer que par une activité hydrothermale propice à l’existence de la vie, ont expliqué les scientifiques en annonçant cette découverte le 13 avril.
0.2814779 Prudents dans leurs analyses, des spécialistes ont expliqué qu’il y avait une base scientifique dans cette hypothèse.
Characteristic paragraphs for term ‘présenter’ in the 2017-2019 corpus.
Cosine paragraphe
0.3941287 Il se désole d’ailleurs de la façon dont est parfois présentée la science aux jeunes. «On leur présente ça comme une matière scolaire qui est très académique, alors que je fais léviter des objets grâce à la science! C’est l’fun!» Au final, il doit beaucoup à la science. «C’est ce qui m’a permis de percer dans le milieu, de créer de nouvelles illusions, de les présenter de façon différente.»
0.3600115 Cette journée, présentée dans le cadre de la Semaine de l’emploi au Bas-Saint- Laurent, est l’occasion pour les entreprises à la recherche de main-d’œuvre et les chercheurs d’emploi de La Mitis de se présenter et de faire connaissance.
0.3337001 Une délégation française composée de 24 jeunes et de 6 accompagnateurs et accompagnatrices sera présente tout au long de la finale québécoise. Cette délégation arrivera de Clermont-Ferrand à Auvergne en France. Ils présenteront leur projet scientifique au Québec, puis quatre jeunes originaires du Québec seront sélectionnés lors de la finale afin d’aller présenter leur projet lors de l’Exposciences Auvergne du 21 au 29 mai prochain.
0.3330399 Le chercheur présentait ses résultats dans le cadre d’un colloque sur la régionalisation de l’immigration.
0.3147622 _«__ __Les scientifiques présentent quelques idées, mais ce n’est pas fait sur un ton universitaire_, explique Janis Timm-Bottos. C’est très informel. On choisit aussi des gens avec des profils très diversifiés qui viennent présenter différents savoirs. On ne veut pas que des savoirs occidentaux. On souhaite présenter plusieurs voix et que tout le monde participe à la discussion. Les scientifiques veulent savoir aussi ce à quoi croient les gens et ce qui fonctionne pour eux. »
Characteristic paragraphs for term ‘permettre’ in the 2017-2019 corpus.
Cosine paragraphe
0.3590936 Permettre l’avancement des connaissances scientifiques
0.3537710 Le site science24heures.com permettra de faciliter vos recherches, selon :
0.3136587 Notre programme MAIN-D’OEUVRE 50+ permet aux gens de 50 ans et plus de s’inscrire sur notre plateforme, ce qui permet de faire le maillage entre les chercheurs d’emplois et les entreprises cibles.
0.2947989 Les experts du projet britannique espèrent que celui-ci permettra aux douanes de disposer de données scientifiques fiables permettant de déterminer rapidement si l’essence et l’origine du bois sont bien celles affichées.
0.2805347 Qui plus est pour John Stuart Mill, l’éducation est à la fois un art et une science. Elle doit à la fois permettre à l’individu de trouver le bonheur tout en lui permettant d’acquérir des compétences qui seront utiles aux autres.
Characteristic paragraphs for term ‘subir’ in the 2017-2019 corpus.
Cosine paragraphe
0.3466105 Les chercheurs ont conclu que près de 70% des femmes atteintes de cette forme de cancer pourraient ne pas subir de chimiothérapie, en toute sécurité.
0.3466105 Les chercheurs ont conclu que près de 70 pour cent des femmes atteintes de cette forme de cancer pourraient ne pas subir de chimiothérapie, en toute sécurité.
0.3096612 Les ainés qui subissent une commotion cérébrale ont davantage de risque de développer la démence, selon une étude effectuée par des chercheurs à Toronto.
0.3008532 Le groupe de scientifiques a concentré ses recherches sur un gène nommé GRIN2B, connu pour causer l’autisme lorsqu’il subit une mutation.
0.2973033 Le mystère continue aussi de s’épaissir, alors que certaines victimes ont subi des lésions cérébrales dont la nature échappe encore à la science.
corpus_nb <- 2
for( term_to_search in dt_plot[grepl("2020", corpus_title),rev(lemma)][1:10] ){
  search_most_similar_paragraph(term_to_search, corpus_ = corpus_nb) %>%
    kable(caption = paste0("Characteristic paragraphs for term '", term_to_search,
                        "' in the ", ifelse(corpus_nb ==1,"2017-2019", "2020")," corpus.")) %>% print()

}
Characteristic paragraphs for term ‘infecter’ in the 2020 corpus.
Cosine paragraphe
0.4006674 Les anticorps monoclonaux identifiés et produits par des chercheurs de Québec « empêcheront le coronavirus d’aller infecter de nouvelles cellules. Si on les transfère directement dans le sérum des individus infectés, ils vont rapidement se distribuer dans l’organisme et neutraliser les virus qui sont en circulation. Ils auront toutefois peu d’effet sur les cellules qui sont déjà infectées, car l’anticorps ne pénètre pas dans la cellule. C’est la raison pour laquelle il est important d’administrer ce traitement tôt, lorsque l’infection se déclare, afin d’éviter que le virus ait le temps d’infecter beaucoup de cellules. Une fois qu’un grand nombre de cellules ont été infectées, il faut passer à d’autres types de traitement, comme des antiviraux », explique M. Lamarre.
0.3504047 • À lire aussi: Des centaines de Canadiens prêts à se faire infecter pour la science
0.2927341 Mais sans ces avancés scientifiques que sont le vaccin et les tests rapides, un tiers de la population, sinon plus, sera infectée, estime-t-il.
0.2921330 Ensuite, à partir de ces observations et de l’évaluation de l’intervalle de temps s’écoulant entre l’apparition des symptômes d’une première personne et l’apparition des symptômes de la personne qu’elle a infectée chez 77 paires de personnes, dont l’une a infecté l’autre, les chercheurs de la Guangzhou Medical University et de la University of Hong Kong ont pu calculer que les personnes infectées commencent à être contagieuses deux à trois jours avant l’émergence des symptômes et le sont particulièrement plus 0,7 jour avant de devenir symptomatiques. Ils ont également pu estimer que 44 % des transmissions étaient imputables à des personnes présymptomatiques.
0.2795589 Pour le moment, aucune donnée scientifique ne montre que les chiens ou les chats peuvent être infectés — ou transmettre — le virus.
Characteristic paragraphs for term ‘contracter’ in the 2020 corpus.
Cosine paragraphe
0.3688283 Les chercheurs analyseront si elles produisent les anticorps du Covid-19, signe qu’elles ont contracté la maladie et se sont rétablies.
0.3183892 Les chercheurs ont ensuite analysé via des tests en laboratoire et l’étude de symptômes combien d’entre eux ont contracté la COVID-19 dans les deux semaines suivantes.
0.2829170 Un article publié en 2019 par des chercheurs de l’université d’Arizona a révélé que les revêtements réduisaient de 36% les infections contractées en milieu hospitalier.
0.2822705 Un article publié en 2019 par des chercheurs de l’université d’Arizona a révélé que les revêtements réduisaient de 36 % les infections contractées en milieu hospitalier.
0.2820585 Une équipe de chercheurs chinois a constaté que le sperme de plusieurs personnes ayant contracté la COVID-19 était positif au virus, y compris chez des patients en rémission, selon une étude publiée jeudi par la revue scientifique américaine Journal of American Medical Association.
Characteristic paragraphs for term ‘transmettre’ in the 2020 corpus.
Cosine paragraphe
0.4060318 Et pour le moment, il n’existe aucune preuve scientifique qu’un animal peut transmettre la COVID-19 à l’homme.
0.3615706 Selon les autorités suisses, les scientifiques ont démontré que les jeunes enfants ne transmettent pas le coronavirus.
0.3584773 « Des chercheurs pensent que même avec une respiration normale, on peut transmettre la maladie », ajoute-t-il.
0.3320266 En date du 19 mars, l’état de la science n’indique pas si le virus peut se transmettre sexuellement.
0.3279215 Pour le moment, aucune donnée scientifique ne montre que les chiens ou les chats peuvent être infectés — ou transmettre — le virus.
Characteristic paragraphs for term ‘rouvrir’ in the 2020 corpus.
Cosine paragraphe
0.3802014 À Laval, la Maison des arts, dont la salle Alfred-Pellan, va rouvrir le 20 juin. À Joliette, le Musée d’art rouvre mardi. À Victoriaville, la réouverture du Centre d’art Jacques-et-Michel-Auger est prévue pour le 29 juillet. À Sherbrooke, le Musée d’histoire, le Musée des beaux-arts et le Musée de la nature et des sciences rouvriront mercredi. Enfin, à Trois-Rivières, le musée POP accueillera le public dès le 20 juin.
0.3638703 La décision de rouvrir les entreprises sera fondée sur l’opinion du médecin hygiéniste en chef et sur la science, a-t-il répété.
0.3555122 «Toutes ces institutions pourront rouvrir à leur rythme, parce qu’elles devront adapter les lieux à leur nouvelle réalité. Ça doit se faire en ayant comme objectif principal la santé de tous […]. Il était important pour nous d’offrir de l’espoir», a illustré vendredi la ministre de la Culture, Nathalie Roy. Quatre musées d’État ainsi que 96 institutions muséales et 16 musées à vocation scientifique rouvriront vendredi prochain.
0.3380143 Il existe un consensus scientifique, selon M. Legault, pour rouvrir ces écoles sans que cela ne pose un risque pour le reste de la population si les mesures de distanciation physique sont respectées;
0.3298028 La chercheuse s’inquiète notamment de la possibilité de voir des pays exiger des voyageurs des preuves d’immunité lorsque les frontières vont rouvrir.
Characteristic paragraphs for term ‘propager’ in the 2020 corpus.
Cosine paragraphe
0.4459377 D’une part, certains chercheurs ont regardé de grands groupes de malades et analysé par des études épidémiologiques comment le virus se propage dans la population. Une compilation réalisée début mars par l’OMS en Chine sur 75 465 patients n’a pas trouvé de preuve que l’épidémie ait pu se propager par des aérosols.
0.4450131 Les chercheurs tentent de comprendre comment la COVID-19 se propage afin de savoir qui sont les plus grands propagateurs du virus.
0.3649778 Des théories du complot insinuant que le chercheur aurait été attaqué en raison de ses travaux sur le virus se sont pourtant propagées sur les réseaux sociaux.
0.3557681 «Le virus se propagera vite, quelles que soient les conditions climatiques», ajoute la chercheuse.
0.3557681 « Le virus se propagera vite, quelles que soient les conditions climatiques », ajoute la chercheuse.
Characteristic paragraphs for term ‘contaminer’ in the 2020 corpus.
Cosine paragraphe
0.3674552 Les scientifiques qui les promeuvent soulignent qu’ils servent à éviter de contaminer les autres plus qu’à se protéger soi-même.
0.3555320 Ces niveaux étaient semblables à ceux détectés chez les humains en voie de rétablissement après avoir été contaminés par le nouveau coronavirus, d’après les chercheurs.
0.3541762 Ces niveaux étaient semblables à ceux détectés chez les humains en voie de rétablissement après avoir été contaminés par le nouveau coronavirus, d’après les chercheurs.
0.3446400 Même si des milliers de personnes sont contaminées à travers le monde, les chercheurs et scientifiques qui s’affairent à comprendre le virus n’ont pas toutes les réponses.
0.2969137 Le coronavirus a fait officiellement plus de 11 000 morts et contaminé près de 170 000 personnes au Brésil, mais des scientifiques estiment ces chiffres largement en dessous de la réalité.
Characteristic paragraphs for term ‘immuniser’ in the 2020 corpus.
Cosine paragraphe
0.5255113 On a ouvert les garderies et les écoles primaires pour créer »une immunité collective », c’est-à-dire s’immuniser contre çà. La meilleure façon de s’immuniser, c’est de la pogner la COVID-19. Plate hein? Mais c’est çà. J’ai vu quelque part que de prendre un peu de sang de quelqu’un d’immunisé (qui l’a pogné et guéri) et l’injecter dans le corps de quelqu’un immuniserait la personne qui se l’ai fait injecter… Vieille technique de vaccin, je me trompe peut-être, au pire corrigez-moi. Sauf que si c’est vrai, je ne suis pas médecin ou scientifique, mais il n’y a rien de compliqué là.
0.4469741 Pour lui, l’état actuel de la science indique qu’en théorie une personne qui guérit de la COVID-19 devrait être immunisée pour quelques années.
0.4359405 Normalement, cet homme aurait dû être immunisé à la suite de la première infection. Du moins, c’est ce que pensent de nombreux scientifiques.
0.3585580 Selon l’OMS, les preuves scientifiques ne sont pas suffisantes pour démontrer que les personnes qui ont vaincu la COVID-19 et qui ont des anticorps sont immunisées contre une deuxième infection.
0.3219692 «J’ai peur de reprendre le travail», dit-il à l’AFP. «Un médecin m’a dit que j’étais immunisé, mais ce n’est pas encore prouvé scientifiquement».
Characteristic paragraphs for term ‘tester’ in the 2020 corpus.
Cosine paragraphe
0.3833007 “Notre urgence, c’est d’essayer de transmettre ces molécules à des laboratoires qui peuvent les tester, dans un environnement sécuritaire, des gens qui sont capables de travailler avec le coronavirus et de tester si les molécules sont efficaces”, lance le professeur à la Faculté de médecine et des sciences de la santé de l’Université de Sherbrooke.
0.3821897 Le chercheur teste deux technologies différentes et se donne quatre mois pour faire le bon choix.
0.2953718 > Dans une situation de pandémie, dès qu’on soupçonne que c’est un cas de > COVID, on le considère comme un cas de COVID. La logique derrière ça c’est > qu’on ne peut pas tester tout le monde. Dans un monde idéal, on testerait > tout le monde, mais c’est impossible de le faire maintenant. > > Chantal Srivastava, journaliste scientifique, Les Années lumière
0.2943462 Ses chercheurs ont aussi testé la résistance du virus à diverses conditions de température et d’humidité en intérieur.
0.2941808 Seuls les chercheurs du Nebraska ont ensuite vérifié si ces aérosols avaient le pouvoir d’être infectieux. Pour cela, ils ont placé les échantillons d’air infecté au contact de cultures de cellules appelées Vero E6, utilisées fréquemment pour tester la réplication de divers virus. Or ils n’ont trouvé aucune trace d’activité virale dans tous les échantillons testés, ce qui est plutôt rassurant.
Characteristic paragraphs for term ‘lutter’ in the 2020 corpus.
Cosine paragraphe
0.3498541 Sauf que, jusqu’ici, aucune étude scientifique rigoureuse n’a démontré l’efficacité de ces molécules pour lutter contre l’infection au coronavirus chez l’être humain.
0.3045402 À l’échelle internationale, la Réponse mondiale au coronavirus vise à recueillir plus de huit milliards de dollars américains pour aider les chercheurs à lutter contre la COVID-19.
0.2937553 Décrit par Donald Trump comme «un don du ciel» pour lutter contre la pandémie, la chloroquine ne cesse en fait de diviser la communauté scientifique.
0.2880693 Selon Mme Rang, les chercheurs s’efforcent également de lutter contre le flétrissement bactérien du chêne.
0.2803735 Moduler les mesures de distanciation sociale à long terme pourrait permettre de lutter contre la COVID-19 sans asphyxier l’économie, selon une nouvelle étude réalisée par des chercheurs ontariens.
Characteristic paragraphs for term ‘fermer’ in the 2020 corpus.
Cosine paragraphe
0.4761385 « Je ne pense pas que l’on devrait les fermer, mais nous, on s’en remet à la science et aux autorités de santé publique s’il faut fermer des entreprises ou des chantiers de la construction parce qu’on est rendu là, va falloir s’y soumettre », a-t-il conclu.
0.3957177 «Nous ne fermons la porte à aucune mesure supplémentaire, mais nous prendrons ces décisions en fonction de ce que la science nous dit», a-t-il affirmé.
0.3365640 Tous ces comptes ont été fermés, mais leur contenu a été sauvegardé sur une base de données à des fins de recherche scientifique, a précisé Twitter.
0.3221235 > Si nous avions tout fermé dès le début, la situation aurait été différente. > Mais il y a eu beaucoup d’opposition. > > Dr Anthony Fauci, scientifique en chef de la Maison-Blanche
0.2567042 “Pour Montréal, l’idée serait de fermer les points d’entrée, les ponts, les tunnels”, détaille Benoit Barbeau, professeur au Département des sciences biologiques de l’UQAM.

6.5 The presence of uncertainty

6.5.1 Cooccurences analysis

Among the most characteristic verbs of each corpus, those that are more central in the cooccurence network might tell us something about the representation of uncertainty.

#Ces deux tables ont été produites dans 03-Analyse_morphosyntaxique.R
load(paste0(data_folder, "dt_tagged_tokens_science.RData"))
load(paste0(data_folder, "dt_science.RData"))

nb_mots <- 25

#Pour passer l'analyse de cooccurence sur les deux corpus, on fait une longue fonction
#pour éviter de copier du code
analyse_cooccurence <- function(corpus, nb_mots)
{
  dt_lemmas <- dt_tagged_tokens_science[corpus == corpus & upos %in% c('VERB'), list(lemma, art_ID,                     doc_id)]

  #La fonction itoken de text2vec veut ce format, c'est-à-dire, une liste de token (ou lemme) par           document
  dt_lemmas <- dt_lemmas[,.(lemma = list(lemma)), by =doc_id]
  
  #Structure de donnée qui permet de travailler avec nos données sans faire de copies
  iterateur <- text2vec::itoken(dt_lemmas$lemma,
                           ids = dt_lemmas$doc_id,
                           progressbar = FALSE)
  
  vocabulaire <- text2vec::create_vocabulary(iterateur,
                                       ngram=c(ngram_min = 1,
                                               ngram_max = 1))
  
  vocabulaire <- text2vec::prune_vocabulary(vocabulaire,
                                      term_count_min = 2,
                                      term_count_max = Inf,
                                      doc_proportion_min = 0.0001,
                                      doc_proportion_max = 0.5,
                                      doc_count_min = 1,
                                      doc_count_max = Inf,
                                      vocab_term_max = Inf)
  
  setDT(vocabulaire)
  
  #Permet de vectoriser nos documents. Le vectorizer et utilisé par create_dtm (voir la doc si ce n'est     pas clair)
  vectorizer <- text2vec::vocab_vectorizer(vocabulaire)
  
  dtm <- text2vec::create_dtm(iterateur,
                             vectorizer,
                             type = "dgCMatrix")
  
  #On transforme le dtm pour que les cellules contiennent les valeurs tf-idf
  dtm_tfidf_initialisation <- text2vec::TfIdf$new()
  dtm_tfidf <- dtm_tfidf_initialisation$fit_transform(dtm)
  rm(dtm_tfidf_initialisation)
  
  #Calculer la somme des valeurs TFIDF pour les documents
  vecteur_sumMots <- Matrix::colSums(dtm_tfidf)
  
  #Selection des tops mots (pour le corpus 2, les valeurs sont négatives, ce pourquoi on utilise tail)
  if (corpus == 1)
  {
    top_mots <- dt_chi_sqr[,list(lemma)] %>% head(nb_mots)
  }
  if (corpus == 2)
  {
    top_mots <- dt_chi_sqr[,list(lemma)] %>% tail(nb_mots)
  }
  
  tdm_cluster <- Matrix::t(dtm_tfidf)
  
  tdm_cluster_norm <- text2vec::normalize(tdm_cluster, norm = 'l2')
  
  #Calcul du cosinus par produit matriciel de la matrice normalisée avec sa transposée
  mot_mot_cosine <-  Matrix::tcrossprod(tdm_cluster_norm)
  
  #Réduction à zéro des valeurs pour la matrice triangulaire inférieure
  mot_mot_cosine <-  Matrix::triu(mot_mot_cosine)
  
  # La visualisation est dans quanteda, on doit donc créer un object de son type
  mot_mot_cosine <-  quanteda::as.fcm(mot_mot_cosine)
  
  # On selection les tops mots
  mot_par_mot_filtre_cosinus <- quanteda::fcm_select(mot_mot_cosine, pattern = top_mots, selection = "keep")

  set.seed(123)
  quanteda::textplot_network(mot_par_mot_filtre_cosinus, min_freq = 0.8) + ggtitle(paste0("Verbs coocurences in the  " ,if (corpus == 1) "2017-2019" else "2020"), " corpus")
}

analyse_cooccurence(1, 25)
## Registered S3 method overwritten by 'network':
##   method            from    
##   summary.character quanteda

analyse_cooccurence(2, 25)

We find that ‘permettre’ was most central before the pandemic and ‘pouvoir’ takes this place during the pandemic. The latter is a marker of uncertainty. Let’s look at sentences typical of cases when the most central verb in each corpus cooccurs with some of the peripheral verbs:

research_results_2017_2019 <- rbind(search_most_similar_paragraph(c("permettre", "expliquer"), 1),
                                    search_most_similar_paragraph(c("permettre", "améliorer"), 1),
                                    search_most_similar_paragraph(c("permettre", "démarquer"), 1),
                                    search_most_similar_paragraph(c("permettre", "étudier"), 1))

research_results_2017_2019$corpus <- "2017-2019"

research_results_2020 <- rbind(search_most_similar_paragraph(c("pouvoir", "transmettre"), 2),
                               search_most_similar_paragraph(c("pouvoir", "attraper"), 2),
                               search_most_similar_paragraph(c("pouvoir", "combattre"), 2),
                               search_most_similar_paragraph(c("pouvoir", "protéger"),2 ))

research_results_2020$corpus <- "2020"

research_results <- rbind(research_results_2017_2019,
                          research_results_2020) %>% data.table()


research_results[order(-Cosine)] %>% kable() %>%  kable_styling() %>%
    scroll_box(width = "100%", height = "200px")
Cosine paragraphe corpus
0.4993374 Vandal étudiera en sciences politiques. 2017-2019
0.4345656 «Il n’y a aucune science, encore, qui dit que si on a attrapé la COVID-19 une fois, on est protégés de l’attraper une deuxième fois», a dit M. Trudeau. 2020
0.4099765 Et pour le moment, il n’existe aucune preuve scientifique qu’un animal peut transmettre la COVID-19 à l’homme. 2020
0.4093563 # Les étudiants du Cégep se démarquent dans les concours scientifiques 2017-2019
0.3668156 Dans un communiqué publié lundi, l’Ifri s’est démarqué des propos tenus par le chercheur. 2017-2019
0.3650073 «Il n’y a aucune science encore qui dit que si on a attrapé la COVID-19 une fois, on ne peut l’attraper une deuxième fois, a-t-il soutenu. Tous les plans des provinces sont basés sur la protection. Personne ne se base sur l’immunité comme une mesure qui fait partie de la marche à suivre pour les prochains mois», a avancé Justin Trudeau. 2020
0.3619600 « Des chercheurs pensent que même avec une respiration normale, on peut transmettre la maladie », ajoute-t-il. 2020
0.3578947 L’utilisation de ce format de CV permet aux chercheurs d’emploi de se démarquer des autres documents plus conventionnels. « Une cliente, après avoir été embauchée, s’est fait dire qu’elle avait un beau CV, qu’il se démarquait et qu’il était visuellement plus accessible », rapporte Mme Fortin. 2017-2019
0.3476097 “C’est toujours ma crainte, affirme Dominic Cardy. On peut voir aujourd’hui que les messages, la désinformation, le fake news , c’est aussi un type de virus qui peut se partager rapidement. On a besoin de le combattre. On a besoin d’une voix beaucoup plus forte des médecins, des scientifiques, des politiciens, de tout le monde dans la société. […] La seule manière qu’on peut combattre les mensonges, c’est avec la vérité.” 2020
0.3464986 Dr William Li : Pour le moment, les scientifiques s’accordent à dire que les animaux de compagnie ne peuvent pas attraper la maladie ni nous la donner. Bonne nouvelle! 2020
0.3432108 Les fonds consentis permettront de soutenir pour les deux prochaines années la recherche scientifique et d’améliorer les installations de l’Observatoire. 2017-2019
0.3364744 «[La série d’exercices] permet de renforcer les muscles, améliorer l’équilibre, améliorer la santé cardiovasculaire, voire la santé cognitive», souligne la chercheuse Mylène Aubertin-Leheudre, également docteure en kinésiologie. 2017-2019
0.3352523 En date du 19 mars, l’état de la science n’indique pas si le virus peut se transmettre sexuellement. 2020
0.3335018 Le Canada se démarque à l’échelle du monde par les travaux de ses chercheurs sur les cellules souches qui permettent des avancées dans la lutte contre le cancer. Crédit : iStock 2017-2019
0.3311074 Pour le moment, aucune donnée scientifique ne montre que les chiens ou les chats peuvent être infectés — ou transmettre — le virus. 2020
0.3241021 Pour leur défense, les chercheurs chinois affirment qu’ils n’ont pu déterminer que courant janvier, étude scientifique à l’appui, que le virus pouvait se transmettre au sein de l’espèce humaine. 2020
0.3237468 # Des étudiants du Cégep Beauce-Appalaches se démarquent dans les concours scientifiques 2017-2019
0.3236961 Se rangeant du côté de l’OMS, Justin Trudeau affirme « qu’il n’y a aucune science encore qui affirme que si on a attrapé la COVID-19 une fois, on ne peut l’attraper une deuxième fois ». La Dre Theresa Tam, administratrice en chef de la santé publique du Canada, croit même que « l’idée de générer une sorte d’immunité naturelle ne devrait pas être considérée ». 2020
0.3193200 Selon le directeur de la santé, il n’est pas prouvé scientifiquement que les personnes qui ont été atteintes du coronavirus pourraient être protégées pour une deuxième vague: 2020
0.3186786 Annoncé comme une «romance de science-fiction», Zoe racontera l’histoire de deux collègues dans un laboratoire qui travaillent sur une nouvelle technologie qui doit permettre d’améliorer les relations romantiques. 2017-2019
0.3145192 Se pourrait-il, se demandent plusieurs scientifiques, que la mémoire immunitaire générée par ces coronavirus bénins aide à combattre le SARS-CoV-2 ? 2020
0.3107638 Depuis le début, les autorités politiques dans le monde disent s’appuyer sur les données de la science pour combattre la pandémie. 2020
0.2968588 Les scientifiques en viennent à la conclusion que l’exercice améliore la vie quotidienne et la mobilité des aînés qui souffrent de la maladie d’Alzheimer; il pourrait aussi améliorer leur équilibre et leur cognition générale. 2017-2019
0.2957577 Les scientifiques en viennent à la conclusion que l’exercice améliore la vie quotidienne et la mobilité des aînés qui souffrent de la maladie d’Alzheimer; il pourrait aussi améliorer leur équilibre et leur cognition générale. 2017-2019
0.2946508 La science ne peut pas donner un pourcentage de probabilité précis d’attraper le virus pour chaque activité : il est impossible d’envisager absolument tous les cas de figure qui peuvent se présenter en tenant compte de tous les paramètres qui pourraient avoir une influence. De plus, les modes de transmission du virus ne sont pas encore parfaitement élucidés. 2020
0.2913032 “Les premières données scientifiques démontraient que de 20 à 25 % des personnes infectées étaient des cas asymptomatiques. Les gens se sont mis alors à porter des masques. Bien sûr, pour se protéger, mais aussi pour protéger les autres. Il y a eu une prise de conscience; on a compris qu’une personne pouvait en contaminer une autre, sans le savoir, en l’absence de symptômes”, explique Lee Hyuk-Min, qui est également épidémiologiste. 2020
0.2809443 Selon lui, ce n’est pas parce que le Chine a été le premier pays à déclarer l’apparition du coronavirus qu’elle est à l’origine de la pandémie. Il faut plutôt laisser les scientifiques faire leur travail pour qu’ils puissent mieux connaître le virus et le combattre, a-t-il affirmé 2020
0.2763274 Les chercheurs enquêtent, car ils croient que les enfants détiennent un secret qui pourrait aider à protéger ou traiter les plus âgés. 2020
0.2719048 Pour sa part, le magazine «Forbes» révèle que des chercheurs s’intéressent au plasma équestre pour combattre la pandémie. 2020
0.2690983 Les résultats de cette étude permettent de jeter une nouvelle lumière sur le processus de reconnaissance visuelle de l’humain, expliquent les chercheurs. 2017-2019
0.2678008 Pour arriver à ces conclusions, les chercheurs ont étudié les effets de l’aspirine chez près de 130 000 personnes, entre 1980 et 2012. 2017-2019
0.2665186 - Elle étudie actuellement en science politique à l’Université du Québec à Montréal (UQAM). 2017-2019
0.2664503 L’étude ne permet pas de conclure à un lien entre végétarisme et dépression. La littérature scientifique ne va généralement pas dans ce sens. 2017-2019
0.2653978 Shweta Todkar, qui est venue de l’Inde pour réaliser son rêve d’étudier dans une université canadienne, un geste difficile à poser pour une femme dans son pays précise-t-elle, est infirmière et étudie en sciences biomédicales pour la deuxième année. Les retards occasionnés vont l’obliger à prolonger ses études. Elle avait une bourse de 50 000 $ pour venir étudier ici. Elle devra en demander une autre. 2017-2019
0.2588521 « Considérant que des preuves scientifiques confirment que des personnes sans symptômes peuvent transmettre le virus de la COVID-19, il est maintenant indiqué de protéger les autres à proximité », peut-on lire dans le communiqué du Ministère de la Santé et des Services sociaux diffusé vendredi après-midi. 2020
0.2584660 Il a expliqué qu’un effort «colossal» par les chercheurs, les travailleurs, les ingénieurs et les scientifiques a permis de réaliser une «vraie percée». 2017-2019
0.2541694 Cette démarche scientifique participative permet du coup à la personne d’en apprendre plus sur ce qu’est la science, à l’image de ceux qui participent aux recherches cliniques. Parce que, explique Sonya Anvar, se familiariser avec la manière dont la science se construit permet à cette personne de mieux comprendre ce qu’est vraiment la science. 2017-2019
0.2539175 Permettre l’avancement des connaissances scientifiques 2017-2019
0.2501539 Le site science24heures.com permettra de faciliter vos recherches, selon : 2017-2019
0.2444896 La vaccination demeure le moyen le plus efficace de se protéger contre certaines maladies, en plus d’être reconnue comme sécuritaire par la communauté scientifique, a récemment soutenu la ministre de la Santé, Danielle McCann. Plusieurs vaccins doivent être donnés durant l’enfance, certains dès l’âge de 2 mois, afin que les petits soient protégés rapidement. 2020

6.5.2 Proportion of sentences conveying uncertainty

We now test whether the proportion of sentences conveying uncertainty in science-related paragraph in 2020 is similar than in the three previous years. Any sentence with one token matching at least one of the following conditions is taken to convey uncertainty:

  • Being a verb in the conditional mood
  • Being the verb ‘pouvoir’, except in the infinitive
  • Having as lemma: possible, possiblement, probable, probablement, improbable, suspect (as adjective), suspicion
  • Having as lemma one of these verbs: penser, croire, espérer, suggérer, questionner, soupçonner

One thing that this rather simple rules misses is a negation that cancels the uncertainty. For instance, “possible” conveys uncertainty, but “not possible” conveys a certainty. We would need more complex rules to detect such cancelling of uncertainty. Our assumption is the proportion of uncertainty cancelling on total apparent uncertainty is not higher in different corpora. If this assumpion is correct, the simplicity of our rule makes us overestimate the proportion of sentences conveying uncertainty, but this upward bias affects all corpora in a similar way, which leaves our test valid.

#### ADJUSTENTS NEEDED!!! ####

#### TEST of the proportion of uncertainty markers ###

test_for_uncertainty <- function(tagged_tokens)
{

    data_for_test <- tagged_tokens[, list( nb_sentences_w_uncertainty =
                                                           .SD[ grepl("Mood=Cnd",feats) # verbs or auxiliaries in the conditional mood
                                                                | (lemma == "pouvoir" & upos == "VERB" & token != "pouvoir")  # verb "pouvoir" (for can, may, could...) except at the infinitive
                                                                | lemma == "possible" | lemma == "possiblement" # around the possible
                                                                | lemma == "probable" | lemma == "probablement"| lemma == "improbable" # around the probable
                                                                | (lemma == "suspect" & upos == "ADJ") | lemma == "suspicion" # something  suspicious
                                                                | (upos == "VERB" & (lemma == "penser" | lemma == "croire" | lemma == "espérer" |  # verbs of uncertainty
                                                                                       lemma == "suggérer" | lemma == "questionner" | lemma == "soupçonner"))
                                                                , paste0(doc_id, "_", sentence_id) %>% unique() %>% length()],
                                                         nb_total_sentences =  paste0(doc_id, "_", sentence_id) %>% unique() %>% length()
                                                         ),  by = since_COVID]
  
  prop.test(data_for_test$nb_sentences_w_uncertainty, n = data_for_test$nb_total_sentences, alternative = "less")
}


#Test on article corpus
load(paste0(data_folder, "dt_tagged_tokens_science.RData"))
dt_tagged_tokens_science[corpus == 1, since_COVID := TRUE][is.na(since_COVID), since_COVID := FALSE]
articles_uncertainty_results <- test_for_uncertainty(dt_tagged_tokens_science)
articles_uncertainty_results
## 
##  2-sample test for equality of proportions with continuity
##  correction
## 
## data:  data_for_test$nb_sentences_w_uncertainty out of data_for_test$nb_total_sentences
## X-squared = 224.13, df = 1, p-value < 2.2e-16
## alternative hypothesis: less
## 95 percent confidence interval:
##  -1.00000000 -0.03183445
## sample estimates:
##    prop 1    prop 2 
## 0.1446065 0.1805392
rm(dt_tagged_tokens_science)

7 More public engagement with science?

fb_2017 <- read.csv("/data/jhr/postsFBcovid-2017.csv") %>% data.table()
fb_2018 <- read.csv("/data/jhr/postsFBcovid-2018.csv") %>% data.table()
fb_2019 <- read.csv("/data/jhr/postsFBcovid-2019.csv") %>% data.table()
fb_2020 <- read.csv("/data/jhr/postsFBcovid-2020.csv") %>% data.table()

fb_2017$year <- 2017
fb_2018$year <- 2018
fb_2019$year <- 2019
fb_2020$year <- 2020

fb_posts <- rbind(fb_2017, fb_2018, fb_2019, fb_2020)
rm(fb_2017,fb_2018,fb_2019,fb_2020)

#On enlève les urls
fb_posts[,texteComplet := str_replace_all(texteComplet,"(?=http)[^ ]+", "")]
#On enlève les emojis
fb_posts[,texteComplet := str_replace_all(texteComplet, '[\U{1F300}-\U{1F6FF}]', "")]
#Le precedent code n'attrape pas certains emoji
fb_posts[,texteComplet := str_replace_all(texteComplet, '☀️', "")]
fb_posts[,texteComplet := str_replace_all(texteComplet, '🎉', "")] 


fb_posts[grepl("(\\s)scien", texteComplet) | grepl("(\\s)chercheu", texteComplet),
         is_science := TRUE][is.na(is_science), is_science := FALSE]

fb_posts[,semaine := week(as.POSIXct(dateHeure))]
fb_posts[,interaction := (likes + haha + colere + tristesse + wow + love + commentaires + partages),
         by = fbID]

# binary variable for the COVID period
fb_posts[year>=2020, since_COVID := TRUE][is.na(since_COVID), since_COVID := FALSE]

## Dividing between four cases:
 fb_posts[is_science == TRUE & since_COVID == TRUE, Status := "Science\nduring COVID"]
 fb_posts[is_science == TRUE & since_COVID == FALSE, Status := "Science\nbefore COVID"]
 fb_posts[is_science == FALSE & since_COVID == FALSE, Status := "Not Science\nbefore COVID"]
 fb_posts[is_science == FALSE & since_COVID == TRUE, Status := "Not Science\nduring COVID"] 
 fb_posts[, Status2 := str_replace(Status, "\n", " ")]

fb_posts[ , day_of_year := as.numeric(strftime(jour, format = "%j"))]
 
fb_posts[, high_engagement := ifelse(log(interaction) > mean(log(interaction)), TRUE, FALSE), .(is_science,since_COVID)]


 save(fb_posts, file = paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))
rm(fb_posts)
 load(paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))
### Plotting densities
 #  Grouping by the 4 cases, dropping first 9 weeks of the year
 # ggplot(fb_posts[semaine >= 10], aes(x=log(interaction), fill= Status2, col= Status2 )) + geom_density(alpha= .4)+ 
 #   labs(title = "Engagement with Media Posts from March to June of 2017 to 2020", x = "Logarithm of Total Engagement", y = "Density", fill = "Status", col = "Status")
### Same thing without log and cutting tail.
 # ggplot(fb_posts[semaine >= 10], aes(x=interaction, fill= Status2, col= Status2 )) +
 #  geom_density(alpha= .4) + labs(title =  "Engagement with Media Posts from March to June of 2017 to 2020", x = "Total Engagement", y = "Density", fill = "Status", col = "Status") + xlim(0,1500)

### Other representation with box plot: 
 ggplot(fb_posts[semaine >= 10], aes(x= Status, y=log(interaction), fill= Status, col= Status )) + geom_boxplot(alpha= .6)  + 
   #geom_jitter(shape = 15,  color = "steelblue", position = position_jitter(0.21)) +
    theme_classic() + guides(fill=FALSE, col=FALSE) + labs(title =  "Engagement with Media Posts from March to June of 2017 to 2020", y = "Logarithm of Total Engagement", x="") + theme(axis.text.x = element_text(size = 12)) +
   scale_fill_viridis(discrete=TRUE, end = .7, direction = -1)  +    scale_color_viridis(discrete=TRUE, end = .7, direction = -1)

## Now statistical tests for the inequality of distributions
 dt_to_fit <-  fb_posts[semaine >= 10,list(log_interaction = log(interaction),
                                          is_science, since_COVID, semaine, Status2)]  
  
  
## Anova test for these four sub populations 
 model_w_anova <- aov(log_interaction ~ Status2, dt_to_fit) 
 summary(model_w_anova)
##                 Df Sum Sq Mean Sq F value   Pr(>F)    
## Status2          3    104   34.80   21.38 7.75e-14 ***
## Residuals   112781 183561    1.63                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## Pairwise comparisons of distributions: 
 TukeyHSD(model_w_anova)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = log_interaction ~ Status2, data = dt_to_fit)
## 
## $Status2
##                                                        diff           lwr
## Not Science during COVID-Not Science before COVID 0.0205350  0.0005316177
## Science before COVID-Not Science before COVID     0.2073932  0.0763038762
## Science during COVID-Not Science before COVID     0.4006924  0.2451548808
## Science before COVID-Not Science during COVID     0.1868582  0.0554689626
## Science during COVID-Not Science during COVID     0.3801574  0.2243670261
## Science during COVID-Science before COVID         0.1932992 -0.0093209283
##                                                          upr     p adj
## Not Science during COVID-Not Science before COVID 0.04053838 0.0416018
## Science before COVID-Not Science before COVID     0.33848253 0.0002811
## Science during COVID-Not Science before COVID     0.55623000 0.0000000
## Science before COVID-Not Science during COVID     0.31824745 0.0014751
## Science during COVID-Not Science during COVID     0.53594786 0.0000000
## Science during COVID-Science before COVID         0.39591940 0.0678853
## Regression model with the interaction between our two binary variables
 model_w_interaction <-  lm(log_interaction ~ is_science*since_COVID, data = dt_to_fit)

## Model estimation with robust standard errors
 stargazer(model_w_interaction, 
           se=list(sqrt(diag(vcovHC(model_w_interaction, type = "HC1")))), 
          title="Regression of Engagement with Media Posts", type="latex", 
          df=FALSE, digits=3)
## 
## % Table created by stargazer v.5.2.2 by Marek Hlavac, Harvard University. E-mail: hlavac at fas.harvard.edu
## % Date and time: Mon, Nov 30, 2020 - 14:53:44
## \begin{table}[!htbp] \centering 
##   \caption{Regression of Engagement with Media Posts} 
##   \label{} 
## \begin{tabular}{@{\extracolsep{5pt}}lc} 
## \\[-1.8ex]\hline 
## \hline \\[-1.8ex] 
##  & \multicolumn{1}{c}{\textit{Dependent variable:}} \\ 
## \cline{2-2} 
## \\[-1.8ex] & log\_interaction \\ 
## \hline \\[-1.8ex] 
##  is\_science & 0.207$^{***}$ \\ 
##   & (0.050) \\ 
##   & \\ 
##  since\_COVID & 0.021$^{***}$ \\ 
##   & (0.008) \\ 
##   & \\ 
##  is\_scienceTRUE:since\_COVID & 0.173$^{**}$ \\ 
##   & (0.079) \\ 
##   & \\ 
##  Constant & 5.462$^{***}$ \\ 
##   & (0.005) \\ 
##   & \\ 
## \hline \\[-1.8ex] 
## Observations & 112,785 \\ 
## R$^{2}$ & 0.001 \\ 
## Adjusted R$^{2}$ & 0.001 \\ 
## Residual Std. Error & 1.276 \\ 
## F Statistic & 21.378$^{***}$ \\ 
## \hline 
## \hline \\[-1.8ex] 
## \textit{Note:}  & \multicolumn{1}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\ 
## \end{tabular} 
## \end{table}
 rm(fb_posts)

These parameter estimates give relationships between geometric means:

  1. not science before COVID: exp(alpha) = 236
  2. not science during COVID: exp(alpha + beta2) = 241
  3. science before COVID: exp(alpha + beta1) = 290
  4. science during COVID: exp(alpha + beta1 + beta2 + delta) = 352

This amounts to a 49.3% increase in the geometric mean of engagement between the pre-pandemic posts not explicitly related to science and the science-related posts during the pandemic.

To go further in the interpretation of this boost in engagement, we will:

  1. look at the types of science-related posts that generate more engagement
  2. look at the temporal pattern of engagement over the period

7.1 Types of high engagement science posts during the pandemic

To study the types of science-related posts that generate more engagement, we can first split the corpus by media:

load(paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))
# Focussing on science posts during covid
fb_sci_cov <-  fb_posts[is_science == TRUE & since_COVID == TRUE]

fb_sci_cov[, list(number_posts = .N, mean_engagement = mean(log(interaction))), by = media][order(-mean_engagement)]
rm(fb_posts)

We see that, except a few outliers like FM Charlevoix, the province-wide media venues are those producing more posts and generating higher mean engagement.

To further investigate the types of science-related posts with high engagement, we split the ‘Science during COVID’ corpus between the posts with below average (log) engagement and those with above average (log) engagement. This gives us two subsets and we can use chi-square residuals as before to find which terms are more characteristic of below or above average posts.

We start by pos-tagging and lemmatizing the ‘Science during COVID’ corpus:

#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#### Morphosyntactic analysis ####
#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#Importation du modèle de langue 

model_dir <- paste0(getwd(),'/Udpipe_model')
if (!dir.exists(model_dir)) {dir.create(model_dir)}

# Télécharger du modèle de langue
udtarget <- udpipe_download_model(language = "french-gsd", model_dir = model_dir)

udmodel <- udpipe_load_model(file = udtarget$file_model)

#On crée la table avec de tokens annotés
dt_tagged_tokens_science <- 
        #Appliquer le partitionnement et l'analyse morphosyntaxique
        udpipe_annotate(
                udmodel,
                fb_sci_cov$texteComplet,
                doc_id = fb_sci_cov$postID) %>%
        as.data.table(.) %>%
        # on retire les tokens sans annotation
        .[!is.na(upos)]

#dt_tagged_tokens_science <- dt_tagged_tokens_science[,list(doc_id, token_id, token, lemma, upos)]

save(dt_tagged_tokens_science, file = paste0(data_folder, "dt_tagged_tokens_FB_science_in_COVID.RData"))

rm(dt_tagged_tokens_science)

Preparing the chi-square residuals:

# Reloading data of tagged tokens (from previous block)
load(paste0(data_folder, "dt_tagged_tokens_FB_science_in_COVID.RData"))
  
# Computing a score for posts based on how far they are relative to mean log(engagement)
fb_sci_cov[, z_score := (log(interaction) - mean(log(interaction)))/mean(log(interaction))]
dt_tagged_tokens_science <- merge(dt_tagged_tokens_science, fb_sci_cov[,list(postID,z_score)], 
                                  by.x = "doc_id", by.y = "postID", all.x = TRUE)

save(dt_tagged_tokens_science, file =  paste0(data_folder, "dt_tagged_tokens_FB_science_in_COVID_extended.RData"))

# Focussing on relevant parts of speech
dt_lemmas <- dt_tagged_tokens_science[upos %in% c("ADJ","NOUN", "PROPN","VERB")]

# Splitting the corpus in two: higher than average vs lower than average engagement
dt_lemmas[z_score < 0 , corpus:=1][is.na(corpus), corpus:=2]


dt_chi_sqr <- dt_lemmas[lemma != "<unknown>",list(count = .N, weighted_count = sum(abs(z_score))), by = .(lemma, corpus)]
dt_chi_sqr <- merge(dt_chi_sqr[corpus==1], dt_chi_sqr[corpus==2], by = "lemma", all = TRUE)
dt_chi_sqr[is.na(corpus.x), `:=`(corpus.x = 1, count.x = 0, weighted_count.x = 0)]
dt_chi_sqr[is.na(corpus.y), `:=`(corpus.y = 2,  count.y = 0, weighted_count.y = 0)]
setnames(dt_chi_sqr, c("corpus.x", "corpus.y", "count.x", "count.y", "weighted_count.x", "weighted_count.y"),
         c("corpus_1", "corpus_2", "Lemma_count_1", "Lemma_count_2", "Lemma_weighted_count_1", "Lemma_weighted_count_2"))
#Éviter les divisions par zéro
dt_chi_sqr[, `:=`(Lemma_count_1 = Lemma_count_1 + 1, Lemma_count_2 = Lemma_count_2 + 1)]

#res_chi <- chisq.test(dt_chi_sqr[,list(Lemma_count_1,Lemma_count_2)])
res_chi <- chisq.test(dt_chi_sqr[,list(Lemma_weighted_count_1,Lemma_weighted_count_2)])
## Warning in chisq.test(dt_chi_sqr[, list(Lemma_weighted_count_1,
## Lemma_weighted_count_2)]): Chi-squared approximation may be incorrect
rm(dt_tagged_tokens_science)

Creating the graph with the residuals

dt_chi_sqr[, residual := res_chi$stdres[,2]]
setorder(dt_chi_sqr, residual)
lemmas_that_are_not_verbs <- c("quir", "unrir", "hydroxychloroquiner", "infecté", "influenzer", "éternir",
                               "immuniter", "épidémie", "ne", "professeurer", "âgé", "professeur")
dt_chi_sqr <- dt_chi_sqr[!lemma %in% lemmas_that_are_not_verbs]
nb_inc <- 15
dt_plot <- rbind(dt_chi_sqr[, list(lemma, residual)] %>% head(nb_inc), 
                 dt_chi_sqr[, list(lemma, residual)] %>%  tail(nb_inc))

dt_plot[residual > 0, corpus_title := "High Engagement"][is.na(corpus_title), corpus_title := "Low Engagement"]
dt_plot[corpus_title == "Low Engagement", residual := -residual]
ggplot(dt_plot, aes(x = reorder(lemma, residual), y = residual, fill = corpus_title), col = corpus_title) + 
        geom_bar(stat = "identity") + ylab("Chi-square residual") + xlab("Lemma") + 
        facet_wrap(~corpus_title, scales = "free_y",) + 
        scale_x_reordered() + guides(fill=FALSE) + 
       # scale_y_continuous(expand=c(0,1)) +
        theme_bw() + coord_flip() + scale_fill_viridis( discrete=TRUE, end = .6) 

A few of those terms are a bit surprising, let’s extract the context of their appearance:

load(paste0(data_folder, "dt_tagged_tokens_FB_science_in_COVID_extended.RData"))
dt_tagged_tokens_science[, termid := 1:.N]
 
fct_for_context_extraction <- function(lemma_to_search, n_before_after = 3, high_engagement = TRUE){
  if(high_engagement == TRUE){
    ids <- dt_tagged_tokens_science[lemma == lemma_to_search & z_score > 0, termid] 
  } else if(high_engagement == FALSE){
        ids <- dt_tagged_tokens_science[lemma == lemma_to_search & z_score < 0, termid] 
  }
  ids_neighbor <- lapply(ids, function(x) (x - n_before_after) :( x + n_before_after))
  
  strings <-    lapply(ids_neighbor, 
                       function(x) dt_tagged_tokens_science[termid %in% x, 
                                                            paste(token, collapse = " ")]) %>%
    unlist %>% unique()
  
  return( paste0("The contexts of the term '", lemma_to_search, "' are: ", paste(strings, collapse = " / ") ))
}


fct_for_context_extraction(lemma_to_search = "souche")
## [1] "The contexts of the term 'souche' are: . Une nouvelle souche de le virus / identifié une nouvelle souche de le coronavirus / ont découvert une souche de virus de / monde . Cette souche serait devenue dominante / COVID-19 Une nouvelle souche de le virus / . La deuxième souche aurait frappé à / pandémie . La souche « possède tous"
fct_for_context_extraction(lemma_to_search = "prendre")
## [1] "The contexts of the term 'prendre' are: un pari que prend le gouvernement provincial / là les décideurs prennent de les décisions / quelques-unes décortiquées . Prise en charge de / , j' en prends depuis une semaine / , qu' il prenait un comprimé d' / pour les parents pris à la maison / COVID-19 qui avaient pris en automédication ... / COVID-19 qui avaient pris en automédication de / Arruda s’ en prend à les « / , j’ en prends depuis une semaine / le Canada avait pris de les mesures / «Si le gouvernement prend à le sérieux / différentes communautés et prend en considération la / décision , également prise par Starbucks et / et les connaissances prennent de le temps / .» Donald Trump prend de l’ hydroxychloroquine / ces deux branches prend source dans un / de les mesures prises pour protéger les"
fct_for_context_extraction(lemma_to_search = "Trump")
## [1] "The contexts of the term 'Trump' are: endossé par Donald Trump pour soigner les / Même si Donald Trump et un scientifique / désinfectant » ? Trump accusé d’ être / déclarations de Donald Trump jeudi ont consterné / a déclaré Donald Trump lors de son / presse quotidien . Trump , coronavirus et / la COVID-19 . Trump , mépris de / York demande à Trump d' écouter la / bit.ly/39TQCpO Donald J. Trump a partagé un / de les patchs Trump , coronavirus et / par 2500 » Trump , mépris de / coup , Donald Trump a annoncé lundi / les propos de Trump sur le désinfectant / les propos de Trump soulèvent la controverse / le gouvernement , Trump recommande les masques / président américain Donald Trump a annoncé vendredi / les propos de Trump déclenchent un tollé / américaines . Donald Trump : mépris de / Le virus , Trump et la prise / de le gouvernement Trump pour affronter la / politique .» Donald Trump prend de l’ / a déclaré M. Trump . Tous les"
fct_for_context_extraction(lemma_to_search = "devoir")
## [1] "The contexts of the term 'devoir' are: contraire qu’ ils doivent être maintenus . / système d' éducation doit passer avant un / : les régions devront rester fermées , / pourrait -il être dû à les recherches / . «Arruda ne doit pas perdre sa / Laliberté «Arruda ne doit pas perdre sa / vedettariat qu’ il doit à le premier / . Le gouvernement doit imposer un moratoire / . Les régions devront rester fermées , / coronavirus , elle devrait être l’ une / chercheuse Les régions devront rester fermées , / pandémie de coronavirus devrait durer à le / pandémie de coronavirus devrait durer de 18 / de la population doit porter le masque / Ce qui ne devait être qu’ une / le sapin baumier devrait laisser sa place / brevetée , mais devra maintenant passer l' / même nombreux à devoir être hospitalisés . / les enseignants ne devraient pas hésiter à / de l' Éducation devrait leur envoyer une / à la ferme devrait être illégale , / à la ferme devrait être illégal , / climatique , il doit inscrire dans la / — via Le Devoir - Opinion Un / 2030 . Legault doit respecter la science / — via Le Devoir - Opinion Katherine / – via Le Devoir - Opinion Il / ― via Le Devoir - Opinion La / ― via Le Devoir - Opinion Surveillés / ― via Le Devoir - Opinion Découverte / autres ? Le Devoir a demandé à / — via Le Devoir - Opinion Se / ― via Le Devoir - Opinion Sur"
fct_for_context_extraction(lemma_to_search = "jeudi")
## [1] "The contexts of the term 'jeudi' are: de Donald Trump jeudi ont consterné la / Machouf a imploré jeudi le gouvernement de / rapport universitaire publié jeudi . Selon les / , a annoncé jeudi un scientifique à / Une note publiée jeudi par l’ Institut / étudiants ont réclamé jeudi l’ inclusion ,"
fct_for_context_extraction(lemma_to_search = "premier",high_engagement = FALSE)
## [1] "The contexts of the term 'premier' are: . Pour la première fois de l’ / laboratoire . Ma première réaction en a / à lancer les premiers tests d' un / a autorisé les premiers essais cliniques pour / annoncé samedi le premier ministre Justin Trudeau / : pour la première fois , un / montré pour la première fois qu’ il / sont à les premières lignes dans ce / , monsieur le Premier Ministre ? « / ] Comme le premier ministre de le / alimenter . Le premier ministre François Legault / atteindre son but premier : devenir médecin / : Sutton , première ville à le / Ville est la première à adopter une / . Dans une première entrevue accordée à / ... Après une première vague de faible / autorités … Le premier ministre François Legault / été la toute première personne de la / C’ est la première enquête sur les / chef de le premier ministre de le / a autorisé un premier test de dépistage / Alerte : La 1ère transfusion de plasma / à Montréal La première transfusion de plasma"
fct_for_context_extraction(lemma_to_search = "Laval",high_engagement = FALSE)
## [1] "The contexts of the term 'Laval' are: de l' Université Laval , la professeure / de l’ Université Laval Luca Sorelli que / de l’ Université Laval . La consommation / de l’ Université Laval . COVID-19 : / de l' Université Laval est ouverte et / CHU de Québec-Université Laval , le Dr / de l’ Université Laval . Les conséquences / CHU de Québec-Université Laval et professeur à / de l’ Université Laval . Le Dr / de l' Université Laval . Les fameux / de l’ Université Laval OPINION / L’ / de l’ Université Laval GNL Québec: la / de l’ Université Laval . Trois médicaments / à l' Université Laval Une centaine de / de l' Université Laval pourraient être euthanasiés / de l' Université Laval . Coronavirus : / COVID-19 | Courrier Laval Les chercheurs et / Canada | Courrier Laval Santé Canada a / machine fabriquée à Laval et développé ... / machine fabriquée à Laval et développée à"
fct_for_context_extraction(lemma_to_search = "5G",high_engagement = FALSE)
## [1] "The contexts of the term '5G' are: général . Technologie 5G : de la / envers la technologie 5G et les ondes / . Téléphonie cellulaire 5G : Sutton , / la technologie cellulaire 5G jusqu’ à ce / regroupement citoyen Stop 5G Sutton . Le / regroupement citoyen Stop 5G Sutton . Mégadoses / Montréal . Technologie 5G : de la / regroupement citoyen Stop 5G Sutton . Les / ... Téléphonie cellulaire 5G : Sutton , / regroupement citoyen Stop 5G Sutton . Rendre / . Technologie cellulaire 5G : Valleyfield se / la technologie cellulaire 5G . Celle-ci provoque"
fct_for_context_extraction(lemma_to_search = "survie",high_engagement = FALSE)
## [1] "The contexts of the term 'survie' are: semble améliorer la survie PARIS — Un / il améliorait la survie chez de les"
rm(dt_tagged_tokens_science)

Post with high engagement are more tightly connected with the pandemic. One surprise is the presence of 5G among the terms characteristic of low engagement. We look at the posts about that:

load(paste0(data_folder, "dt_tagged_tokens_FB_science_in_COVID_extended.RData"))

dt_tagged_tokens_science[lemma == "5G" & z_score < 0,sentence %>% unique]
## [1] "Technologie 5G: de la vitesse au détriment de la santé ?"                                                                                                                                                                                                            
## [2] "L’inquiétude d’une partie de la population envers la technologie 5G et les ondes électromagnétiques en général est partagée par le physicien, professeur à la Faculté de médecine de l’Université McGill et directeur du programme de santé au travail, Paul Héroux."
## [3] "Téléphonie cellulaire 5G: Sutton, première ville au Canada à demander un moratoire"                                                                                                                                                                                  
## [4] "Les élus de Sutton demandent au gouvernement fédéral de déclarer un moratoire sur l’implantation de la technologie cellulaire 5G jusqu’à ce qu’un consensus scientifique prouve qu’elle n’est pas nuisible ni à la santé ni à l’environnement."                      
## [5] "La Ville est la première à adopter une telle résolution au Canada, selon le regroupement citoyen Stop 5G Sutton."                                                                                                                                                    
## [6] "Technologie cellulaire 5G: Valleyfield se laissera guider par la science - Journal Saint-François Aucune demande n’a été formulée de la part d’un citoyen afin que Valleyfield se positionne sur la technologie cellulaire 5G."
rm(dt_tagged_tokens_science)

It is indeed unrelated to the pandemic.

7.2 Temporal pattern of engagement

Now, we study the distribution of total engagement over the course of the first half of the year (before and during the pandemic):

 load(paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))

## Graph  of densities over the days of the year
 p <-  ggplot(fb_posts#[semaine >= 10]#[is_science == FALSE]
       , aes(x=as.Date(day_of_year-1,format = "%j", origin = as.Date("2020-01-01")), y= interaction, fill= Status2, col= Status2 )) +
  geom_smooth(alpha= .4) + labs(title =  "Media Posts in the First Half of Each Year (2017 to 2020)", y = "Total Engagement", x = "", fill = "Status", col = "Status") +
   scale_fill_viridis(discrete=TRUE, end = .7, direction = -1)  +    scale_color_viridis(discrete=TRUE, end = .7, direction = -1) + 
  scale_x_date(date_breaks = "2 week", date_labels =  "%d %b") + theme_bw() +
    theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1, size = size_axis_text),
        axis.text.y = element_text(size = size_axis_text))
 

p
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'

rm(fb_posts)

Studying specifically the periods when the distribution of engagement for science-related posts significantly surpasses the norm:

 # getting the data behind the plot
 dt_p <-  as.data.table( ggplot_build(p)$data ) 
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
# Finding the period when ymin for group "science in COVID" is higher than any ymax for the other groups
  dt_p[, x_rough := round(x/10)*10] # a tweak because the points are 
  # roughly the days when it occurs:
 days_w_top_engagement <- dt_p[ , list(is_signif_higher = (max(.SD[group == 4, ymin]) > max(.SD[group != 4, ymax])), x), 
       by = x_rough][is_signif_higher == TRUE, x] %>% sort() %>% round() %>% unique() 
 
 days_w_top_engagement  %>% strptime(format = "%j")  %>% 
   strftime(format = "%B %d") %>% paste( collapse = ", ")
## [1] "March 16, March 17, March 18, March 19, March 21, March 22, March 23, March 24, March 25, March 26, March 28, March 29, March 30, March 31, April 01, April 02, April 03, April 04, April 25, April 26, April 27, April 28, April 29, May 01, May 02, May 03, May 04, May 05, May 06, May 08, May 09, May 10, May 11, May 12, May 13"

We see that the two periods are:

  1. Mid-March to early April
  2. Late April to mid-May

Now, which posts did generate a lot of engagement during these periods?

Looking at the first period:

load(paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))


 fb_posts[day_of_year %in% c(75:95) & is_science == TRUE & since_COVID == TRUE & high_engagement == TRUE][
   order(-interaction), list(interaction, day =  jour %>%    strftime(format = "%B %d"),
                             titre, message, description, media,lien)
 ] %>% kable() %>%  kable_styling() %>%
    scroll_box(width = "100%", height = "200px")
interaction day titre message description media lien
15986 March 23 Un traitement potentiel du coronavirus testé au Canada dès lundi | Coronavirus 6000 Canadiens sont appelés à participer à l’étude clinique. Une équipe de chercheurs montréalais veut recruter 6000 Canadiens d’ici huit semaines. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1681600/traitement-coronavirus-covid19-tardif-montreal-canada-quebec-colcorona
13881 March 16 Un nouveau-né testé positif à la COVID-19 peu après sa naissance Les chercheurs tentent de savoir à quel point le virus est dangereux pour les bébé naissants. Un bébé né à Londres a été testé positif au nouveau coronavirus quelques minutes seulement après sa naissance. TVA Nouvelles https://www.tvanouvelles.ca/2020/03/16/ln-nouveau-ne-teste-positif-a-la-covid-19-peu-apres-sa-naissance?sd
8300 March 24 Des traces du virus 17 jours plus tard Des chercheurs ont découvert des traces du virus dans des cabines du Diamond Princess, 17 jours après le retrait des passagers et membres d’équipage. Un rapport des Centres pour le contrôle et la prévention des maladies américains permet d’en apprendre plus sur la durée de vie du coronavirus. TVA Nouvelles https://www.tvanouvelles.ca/2020/03/24/des-traces-du-virus-17-jours-plus-tard
4944 March 18 Le virus peut survivre plusieurs heures à l’air libre Pour mener leur étude, les scientifiques ont cherché à imiter sa propagation lors d’éternuements Le nouveau coronavirus provoquant la COVID-19 peut survivre en suspension dans l’air pendant environ trois heures. TVA Nouvelles https://www.tvanouvelles.ca/2020/03/17/le-virus-peut-survivre-plusieurs-heures-a-lair-libre
4743 March 23 Des chercheurs québécois testeront un médicament contre les complications graves Il se trouve déjà sur les tablettes des pharmacies de partout sur la planète, coûte moins de 1 $ par jour et pourrait empêcher les complications graves de la COVID-19. Des chercheurs de l’Institut de cardiologie de Montréal démarrent une étude à grande échelle visant à tester un médicament appelé colchicine contre la détresse respiratoire causée par la COVID-19. Il se trouve déjà sur les tablettes des pharmacies de partout sur la planète, coûte moins de 1 $ par jour et pourrait empêcher les complications graves de … La Presse https://www.lapresse.ca/covid-19/202003/22/01-5265931-des-chercheurs-quebecois-testeront-un-medicament-contre-les-complications-graves.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
3588 March 25 Créer un respirateur artificiel en deux semaines pour sauver des vies Ingénieurs et scientifiques du monde entier répondent au défi de concevoir un respirateur artificiel qui serait simple et peu coûteux à produire. Des ingénieurs et scientifiques du monde entier répondent au défi lancé au Québec pour concevoir un respirateur artificiel qui serait simple et peu coûteux à produire. Car l’appareil médical sauvera la vie de milliers de personnes gravement atteintes de la COVID-19 et les hôpitaux craignent… Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1685831/respirateur-artificiel-code-vie-hopital-general-cusm-coronavirus
3149 April 02 Des chercheurs pensent avoir trouvé une autre façon de décontaminer les masques N95 | Coronavirus Des chercheurs manitobains ont obtenu des résultats encourageants pour décontaminer et réutiliser jusqu’à 10 fois certains masques. Alors que le personnel médical peine à se procurer des masques N95 pour se protéger du nouveau coronavirus, des chercheurs manitobains ont obtenu des résultats encourageants pour décontaminer et réutiliser jusqu’à 10 fois certains masques, à partir d’une technique d’autoclavage, qui pourrait… Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1690466/masques-respirateurs-coronavirus-medecin-hopitaux-penurie-decontaminer
3142 March 20 Les symptômes gastro-intestinaux sous-estimés ? Une nouvelle étude chinoise indique que les symptômes gastro-intestinaux comme la diarrhée peuvent précéder l’apparition de la toux et des problèmes respiratoires chez les patients atteints de la COVID-19. Pendant ce temps, des chercheurs américains confirment que si les jeunes meurent beaucoup moins que les vieux de la maladie, ils sont quand même nombreux à devoir être hospitalisés. Une nouvelle étude chinoise indique que les symptômes gastro-intestinaux comme la diarrhée peuvent précéder l’apparition de la toux et des problèmes respir… La Presse https://www.lapresse.ca/covid-19/202003/19/01-5265568-les-symptomes-gastro-intestinaux-sous-estimes-.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
2867 March 25 Il faut demander aux profs d’appeler leurs élèves, suggère une chercheure Non seulement les enseignants ne devraient pas hésiter à entrer en contact avec les élèves et leurs familles, mais en plus, le ministre de l’Éducation devrait leur envoyer une directive claire pour leur dire de le faire, recommande une chercheure de l’Université McGill. Non seulement les enseignants ne devraient pas hésiter à entrer en contact avec les élèves et leurs familles, mais en plus, le ministre de l’Éducation devr… La Presse https://www.lapresse.ca/covid-19/202003/25/01-5266437-il-faut-demander-aux-profs-dappeler-leurs-eleves-suggere-une-chercheure.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
2404 March 18 Les mesures de confinement pourraient durer des mois Les scientifiques ont une bonne et une mauvaise nouvelle pour les parents pris à la maison avec de jeunes enfants, les aînés isolés et tous les Québécois qui souffrent du confinement. Les scientifiques ont une bonne et une mauvaise nouvelle pour les parents pris à la maison avec de jeunes enfants, les aînés isolés et tous les Québécois q… La Presse https://www.lapresse.ca/covid-19/202003/17/01-5265172-les-mesures-de-confinement-pourraient-durer-des-mois.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
2179 March 23 Des chercheurs vont recruter 6000 Canadiens dans l’espoir de trouver un traitement efficace contre la COVID-19. rc.ca/RSQm36 Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/285257579126333/
2038 April 03 Trois médicaments contre la COVID-19 testés à Sherbrooke Des chercheurs sherbrookois testeront trois médicaments auprès de patients volontaires déclarés positifs à la COVID-19 qui sont hospitalisés au CIUSSS de l’Estrie-CHUS. Des chercheurs sherbrookois testeront trois médicaments auprès de patients volontaires déclarés positifs à la COVID-19 qui sont hospitalisés au CIUSSS de l’Estrie-CHUS. La Tribune https://www.latribune.ca/actualites/trois-medicaments-contre-la-covid-19-testes-a-sherbrooke-bde8f0335a212d5a063c98ff541873b8?utm_source=dlvr.it&utm_medium=facebook
1881 March 30 Pandémie de coronavirus: une aide respiratoire conçue avec des ingénieurs de Formule 1 Des chercheurs, des médecins et des ingénieurs l’équipe Mercedes de Formule 1 ont développé en moins d’une semaine une assistance respiratoire permettant de soulager les poumons des malades. Des chercheurs, des médecins et des ingénieurs l’équipe Mercedes de Formule 1 ont développé en moins d’une semaine une assistance respiratoire. Le Journal de Montréal https://www.journaldemontreal.com/2020/03/30/pandemie-de-coronavirus-une-aide-respiratoire-concue-avec-des-ingenieurs-de-formule-1
1655 April 01 Les jeunes, un facteur de propagation déterminant de la COVID-19? | Coronavirus Au Canada, une personne sur trois infectée par le coronavirus a moins de 40 ans. Ce chiffre important fait dire aux experts qu’ici et ailleurs les jeunes risquent, sans le savoir, d’accélérer la propagation de la COVID-19. Des chercheurs affirment que les jeunes risquent, sans le savoir, d’accélérer la propagation de la COVID-19. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1690172/jeunes-enfants-covid-19-coronavirus-propagation
1607 March 19 Coronavirus et alimentation : aucune pénurie en vue, assure un chercheur | Coronavirus Le Canada sera le dernier pays à manquer de nourriture, selon Sylvain Charlebois, analyste du secteur agroalimentaire canadien. La capacité logistique du système d’approvisionnement serait particulièrement forte, estime le spécialiste. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1674941/alimentation-coronavirus-covid-19-canada-penurie
1537 March 28 Le gouverneur de New York demande à Trump d’écouter la science et d’aider son État | Coronavirus Pendant que les politiciens peinent à s’entendre, les besoins explosent dans l’État de New York. Le refus du président de fournir plus de matériel médical à l’État de New York enrage son gouverneur. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1689220/respirateurs-hopitaux-andrew-cuomo-new-york-trump-ecouter-science
1421 March 29 Des «cas de toxicité cardiaque» après la prise d’hydroxychloroquine Des « cas de toxicité cardiaque » ont été signalés sur des personnes présentant des symptômes de la COVID-19 qui avaient pris en automédication de l’hydroxychloroquine, promu par certains scientifiques comme un remède possible contre le virus, mettent en garde dimanche les autorités sanitaires de Nouvelle-Aquitaine, une région de France. (Bordeaux) Des « cas de toxicité cardiaque » ont été signalés sur des personnes présentant des symptômes de la COVID-19 qui avaient pris en automédication … La Presse https://www.lapresse.ca/international/europe/202003/29/01-5267000-des-cas-de-toxicite-cardiaque-apres-la-prise-dhydroxychloroquine.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
1246 March 15 Coronavirus : vous nous avez posé des questions, nos experts vous répondent «Un récent article scientifique nous apprend que le COVID-19 peut survivre 72 heures sur du plastique ou de l’acier inoxydable et 24 heures sur une surface en carton.» - Dr Caroline Quach-Thanh, pédiatre, microbiologiste et infectiologue au CHU Sainte-Justine 8 questions ont été retenues. Le Journal de Montréal http://www.journaldemontreal.com/2020/03/14/coronavirus--vous-nous-avez-pose-des-questions-nos-experts-vous-repondent
1241 April 01 [Carbone] Dans les cas les plus graves de COVID-19, la principale menace à la vie du patient n’est pas le virus lui-même, mais bien une forte réaction de son système immunitaire. Voici deux scientifiques qui cherchent à calmer cette tempête inflammatoire. Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/653391348827832/
943 March 16 La course au vaccin Les scientifiques estiment qu’il faudra attendre au moins jusqu’à l’automne 2020 avant qu’un vaccin contre la COVID-19 ne voie le jour. Les scientifiques estiment qu’il faudra attendre au moins jusqu’à l’automne 2020 avant qu’un vaccin contre la COVID-19 ne voie le jour. Le Journal de Montréal https://www.journaldemontreal.com/2020/03/16/la-course-au-vaccin
902 March 24 Les fameux examens du ministère! OPINION / Ce texte a été rédigé par Nicole Monney et Stéphane Allaire, professeurs au Département des sciences de l’éducation à l’Université du Québec à Chicoutimi (UQAC). OPINION / Ce texte a été rédigé par Nicole Monney et Stéphane Allaire, professeurs au Département des sciences de l’éducation à l’Université du Québec à Chicoutimi (UQAC). Le Quotidien https://www.lequotidien.com/opinions/les-fameux-examens-du-ministere-34ee7a2689101f92074804cb8fd7cecd?utm_source=dlvr.it&utm_medium=facebook
784 March 24 Les données cellulaires pour cibler les lieux de rassemblements ? Le maire de Toronto ainsi qu’un groupe de chercheurs de prestigieuses universités américaines suggèrent d’utiliser des données de positionnement de millions de cellulaires pour surveiller les efforts de distanciation sociale et créer une carte des points chauds de rassemblements. Bell dit être prête à « examiner » cette possibilité en gardant en tête les lois sur la protection de la vie privée. Le maire de Toronto ainsi qu’un groupe de chercheurs de prestigieuses universités américaines suggèrent d’utiliser des données de positionnement de million… La Presse https://www.lapresse.ca/covid-19/202003/24/01-5266284-les-donnees-cellulaires-pour-cibler-les-lieux-de-rassemblements-.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
734 March 27 Découvert au milieu du 19e siècle par l’obstétricien hongrois Ignace Semmelweis, le lavage des mains est aujourd’hui une pratique banale. À l’époque, la communauté scientifique rejette cependant la découverte du médecin, dont la vie se termine tragiquement. Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/582275635696146/
720 March 25 Un superordinateur à la rescousse L’ordinateur le plus puissant du monde s’est creusé les méninges pour trouver 77 composés médicamenteux qui ont le potentiel d’empêcher le coronavirus d’infecter le corps humain. (via En 5 minutes) Deux chercheurs ont analysé les structures de plus de 8000 médicaments, produits chimiques, drogues et autres produits naturels. Le Journal de Montréal https://www.journaldemontreal.com/2020/03/25/un-superordinateur-a-la-rescousse
687 March 30 Non, il n’y a pas de liens démontrés entre les groupes sanguins et la COVID-19 Est-ce que notre groupe sanguin peut influer sur notre niveau de vulnérabilité face au nouveau coronavirus (SRAS-CoV-2) ? Cette hypothèse circule abondamment sur le web et des dizaines de personnes ont écrit aux Décrypteurs pour en savoir plus à ce sujet. Groupes sanguins et nouveau coronavirus : pas de preuves scientifiques validées. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1689597/liens-groupes-sanguins-coronavirus-pas-preuve
669 March 28 COVID-19 : y a-t-il un lien entre la pollution et la propagation du coronavirus? Il existerait un lien entre la pollution atmosphérique et la propagation rapide du coronavirus, selon une étude récente de chercheurs italiens. Mais cette étude ne fait pas l’unanimité. Selon des chercheurs italiens, la pollution atmosphérique serait un vecteur de propagation du coronavirus. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1689203/pandemie-contamination-contagion-infection-epidemie-
649 March 29 Sophie Grégoire Trudeau est guérie de la COVID-19 Elle a ajouté qu’elle croit «fermement que la science ET la compassion nous aideront à traverser cette crise». Dans un message Facebook publié samedi soir, la conjointe du premier ministre, Sophie Grégoire Trudeau, a annoncé être guérie du coronavirus. Le Journal de Québec https://www.journaldequebec.com/2020/03/28/sophie-gregoire-trudeau-est-guerie-de-la-covid-19-1
580 March 24 Médecine et sciences infirmières: les finissants pourraient être appelés en renfort Ils pourraient participer à l’effort de guerre, même s’ils n’ont pas encore obtenu leur diplôme. Les finissants en médecine et en sciences infirmières pourraient intégrer le système de santé rapidement pour participer à l’effort de guerre. Le Journal de Québec https://www.journaldequebec.com/2020/03/24/medecine-et-sciences-infirmieres-les-finissants-pourraient-etre-appeles-en-renfort
558 April 03 Avancer plus rapidement que le virus pour enfin l’arrêter, c’est le défi des chercheurs en intelligence artificielle. Aperçu de différents modèles développés actuellement dans le monde. Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/237442294108005/
538 March 31 La poudre de perlimpinpin La chronique de Richard Martineau. S’il y a quelque chose que cette crise aura prouvé, c’est que pour se sortir du pétrin, il n’y a rien comme la science. Le Journal de Montréal https://www.journaldemontreal.com/2020/03/31/la-poudre-de-perlimpinpin
534 March 25 Il pourrait y avoir un lien entre la COVID-19 et la pollution atmosphérique L’hypothèse reste encore à vérifier, mais le virus pourrait être en suspension dans l’air ambiant là où il y a le plus de particules, et donc être plus facile à contracter. Les particules dans l’air ambiant pourraient être un véhicule de transport du virus, selon des chercheurs italiens. Le Devoir https://www.ledevoir.com/societe/575706/il-pourrait-y-avoir-un-lien-entre-la-covid-19-et-la-pollution-atmospherique?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1585147379
526 March 25 Des chercheurs de l’UdeM s’attaquent au profil génétique du virus Des chercheurs de l’Université de Montréal s’attaquent à la caractérisation génétique du coronavirus responsable de la COVID-19. (Montréal) Des chercheurs de l’Université de Montréal s’attaquent à la caractérisation génétique du coronavirus responsable de la COVID-19. La Presse https://www.lapresse.ca/covid-19/202003/25/01-5266360-des-chercheurs-de-ludem-sattaquent-au-profil-genetique-du-virus.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
516 March 18 COVID-19: Pascal Bérubé interpelle les conspirationnistes «Tant qu’à s’isoler du consensus scientifique, j’invite les expéditeurs de ces messages à s’isoler de leur clavier et à cesser de nuire aux efforts collectifs». Le chef intérimaire du Parti québécois, Pascal Bérubé, en a eu assez des messages évoquant des théories du complot qu’il recevait sur la COVID-19. Le Journal de Montréal https://www.journaldemontreal.com/2020/03/18/covid-19-pascal-berube-interpelle-les-conspirationnistes
462 April 03 Un chercheur et un médecin s’excusent après des propos «méprisants» sur l’Afrique Les deux experts s’interrogeaient sur l’opportunité de tester un vaccin en Afrique contre le coronavirus, «un peu comme c’est fait d’ailleurs sur certaines études avec le sida, ou chez les prostituées». 🤦‍♂️ Les deux experts français s’interrogeaient sur l’opportunité de tester un vaccin en Afrique contre le coronavirus. Le Devoir https://www.ledevoir.com/monde/576397/un-chercheur-et-un-medecin-s-excusent-apres-des-propos-tres-critiques-sur-l-afrique?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1585948524
441 April 03 Le coronavirus transmit en parlant, selon des scientifiques du gouvernement, Trump recommande les masques Le président américain Donald Trump a annoncé vendredi que les autorités sanitaires conseillaient désormais aux Américains de se couvrir le visage lorsqu’ils sortent de chez eux. (Washington) Les scientifiques du gouvernement américain estiment que le nouveau coronavirus est sans doute transmis par les gens lorsqu’ils parlent et res… La Presse https://www.lapresse.ca/international/etats-unis/202004/03/01-5267924-les-americains-appeles-a-se-couvrir-le-visage-a-lexterieur.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
412 March 25 Créer un respirateur artificiel en deux semaines pour sauver des vies Depuis une semaine, Louis-Pierre Fortin et son équipe tentent de mettre au point un ventilateur composé de pièces d’équipement automobile et d’autres composantes faciles à trouver. Des ingénieurs et scientifiques du monde entier répondent au défi lancé au Québec pour concevoir un respirateur artificiel qui serait simple et peu coûteux à produire. Car l’appareil médical sauvera la vie de milliers de personnes gravement atteintes de la COVID-19 et les hôpitaux craignent… ICI Québec http://ici.radio-canada.ca/nouvelle/1685831/respirateur-artificiel-code-vie-hopital-general-cusm-coronavirus
370 March 30 On pourrait désinfecter et réutiliser les masques N95, selon des chercheurs Il serait possible de désinfecter et de réutiliser les précieux masques N95, sans que le nettoyage nuise à leur efficacité. (Montréal) Il serait possible de désinfecter et de réutiliser les précieux masques N95, sans que le nettoyage nuise à leur efficacité. La Presse https://www.lapresse.ca/covid-19/202003/30/01-5267066-on-pourrait-desinfecter-et-reutiliser-les-masques-n95-selon-des-chercheurs.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
369 March 26 Les scientifiques du monde entier participent à la course contre la montre pour trouver un remède et un vaccin à la COVID-19. Le Journal de Montréal https://www.facebook.com/jdemontreal/photos/a.145405795554091/3010396659054976/?type=3
353 March 25 COVID-19 et pollution atmosphérique pourraient être liés Il pourrait exister un lien entre la pollution atmosphérique et la propagation de la COVID-19, croient des chercheurs italiens. (Montréal) Il pourrait exister un lien entre la pollution atmosphérique et la propagation de la COVID-19, croient des chercheurs italiens. La Presse https://www.lapresse.ca/covid-19/202003/25/01-5266345-covid-19-et-pollution-atmospherique-pourraient-etre-lies.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
347 March 23 Les conséquences dramatiques du déni de la science ANALYSE / Dans les milieux ultraconservateurs en Occident, mais plus particulièrement aux États-Unis, il existe une forte tendance à rejeter les études scientifiques et les analyses des experts sur une variété de tragédies appréhendées. Dans cette guerre à la science, les conclusions scientifiques deviennent tout simplement de fausses nouvelles et des canulars inventés par des partisans démocrates ou des penseurs libéraux. Cela apparaît très clairement dans le déni du réchauffement climatique. La présente pandémie est en partie aussi le résultat de cette attitude de l’autruche. ANALYSE / Dans les milieux ultraconservateurs en Occident, mais plus particulièrement aux États-Unis, il existe une forte tendance à rejeter les études scientifiques et les analyses des experts sur une variété de tragédies appréhendées. Dans cette guerre à la science, les conclusions scien… Le Soleil https://www.lesoleil.com/opinions/les-consequences-dramatiques-du-deni-de-la-science-1c7f47799b60056c3009c9451b44fcb1?utm_source=dlvr.it&utm_medium=facebook
340 March 20 La vague de l’épidémie de coronavirus continue à monter en Afrique subsaharienne «Les scientifiques estiment que jusqu’à 60 % de la population [sud-africaine] pourrait être affectée par le virus». En Afrique du Sud, «jusqu’à 60 % de la population pourrait être affectée par le virus», selon les scientifiques. Le Devoir https://www.ledevoir.com/monde/afrique/575465/la-vague-de-l-epidemie-de-coronavirus-continue-a-monter-en-afrique-subsaharienne?utm_campaign=Autopost&utm_medium=Social&utm_source=Facebook#Echobox=1584744801
340 March 23 Un traitement potentiel du coronavirus testé au Canada dès lundi | Coronavirus Le médicament – un anti-inflammatoire très puissant – pourrait réduire le risque de complications pulmonaires liées à la COVID-19. Une équipe de chercheurs montréalais veut recruter 6000 Canadiens d’ici huit semaines. ICI Estrie https://ici.radio-canada.ca/nouvelle/1681600/traitement-coronavirus-covid19-tardif-montreal-canada-quebec-colcorona
324 March 24 Gestion de crise, tartelettes et hybridité médiatique Horacio Arruda s’est inscrit dans la culture populaire ; cela traduit l’efficacité de son entreprise de communication. Un texte d’opinion de Philippe Dubois, doctorant en science politique, Groupe de recherche en communication politique, Université Laval – via Le Devoir - Opinion Le Devoir https://www.ledevoir.com/opinion/libre-opinion/575607/gestion-de-crise-tartelettes-et-hybridite-mediatique?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1585072368
rm(fb_posts)

And now the second period:

load(paste0(data_folder, "dt_fb_posts_all_after_preprocessing.RData"))

 fb_posts[day_of_year %in% c(115:135) & is_science == TRUE & since_COVID == TRUE & high_engagement == TRUE][
   order(-interaction), list(interaction, day =  jour %>%    strftime(format = "%B %d"),
                             titre, message, description, media,lien)
 ] %>% kable() %>%  kable_styling() %>%
    scroll_box(width = "100%", height = "200px")
interaction day titre message description media lien
9577 May 03 Des «frelons meurtriers» trouvés en Amérique du Nord inquiètent des chercheurs Ils sont capables d’exterminer des colonies d’abeilles entières en quelques heures et de transpercer l’équipement de protection d’apiculteurs. Ces frelons tuent jusqu’à 50 personnes annuellement au Japon. Le Journal de Montréal http://www.journaldemontreal.com/2020/05/02/des-frelons-meurtriers-trouves-en-amerique-du-nord-inquietent-des-chercheurs-1
7197 May 07 Le coronavirus est-il aussi une MTS? Des traces dans du sperme Des traces du coronavirus ont été retrouvées dans du sperme Une équipe de chercheurs chinois a constaté que le sperme de plusieurs personnes ayant contracté la COVID-19 était positif au virus. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/07/le-coronavirus-est-il-aussi-une-mst-des-traces-dans-du-sperme
6063 May 05 Une nouvelle souche du virus plus contagieuse: des chercheurs sonnent l’alerte La deuxième souche aurait frappé à partir de la mi-mars dans l’État de New York, elle serait beaucoup plus contagieuse. Des scientifiques ont identifié une nouvelle souche du coronavirus qui serait devenue dominante dans le monde. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/05/une-nouvelle-souche-du-virus-plus-contagieuse
6035 May 05 Une nouvelle souche du virus plus contagieuse: des chercheurs sonnent l’alerte Des scientifiques ont identifié une nouvelle souche du coronavirus qui serait devenue dominante dans le monde et qui semble être plus contagieuse que les versions qui se sont propagées aux premiers jours de la pandémie de COVID-19. Des scientifiques ont identifié une nouvelle souche du coronavirus qui serait devenue dominante dans le monde. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/05/une-nouvelle-souche-du-virus-plus-contagieuse-des-chercheurs-sonnent-lalerte
5890 April 30 Une réouverture des écoles ferait «immédiatement» repartir la pandémie Selon un chercheur qui s’exprimait lors de la conférence hebdomadaire de l’Institut supérieur de la santé Une réouverture des écoles ferait « immédiatement » repartir à la hausse la pandémie de coronavirus. TVA Nouvelles https://www.tvanouvelles.ca/2020/04/30/italie-une-reouverture-des-ecoles-ferait-immediatement-repartir-la-pandemie-1
5053 May 02 Des «frelons meurtriers» trouvés en Amérique du Nord inquiètent des chercheurs Ils mesurent jusqu’à deux pouces de longueur. Ces frelons tuent jusqu’à 50 personnes annuellement au Japon. «Nous avons une fenêtre pour les empêcher de s’installer.» TVA Nouvelles http://www.tvanouvelles.ca/2020/05/02/des-frelons-meurtriers-trouves-en-amerique-du-nord-inquietent-des-chercheurs
5038 April 27 Incertitude et gérants d’estrade «Ce qui frappe le plus dans ce bruit ambiant de solutions contradictoires — le retour du “y a qu’à faire ceci, y a qu’à faire cela” — est l’absence totale de prise en compte de la temporalité des prises de décision en situation d’incertitude et même d’ignorance.» Un texte d’opinion d’Yves Gingras, directeur scientifique de l’Observatoire des sciences et des technologies de l’UQAM. ― via Le Devoir - Opinion La situation est totalement inusitée et les connaissances prennent du temps à se construire. Le Devoir https://www.ledevoir.com/opinion/libre-opinion/577763/incertitude-et-gerants-d-estrade?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1587983622
4985 May 06 Assassinat d’un chercheur sur le point de faire «des découvertes importantes» Le meurtre du chercheur pourrait-il être dû aux recherches qu’il menait sur la COVID-19? Un professeur de l’Université de Pittsburgh qui menait des recherches prometteuses sur la COVID-19 a été assassiné ce week-end. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/06/assassinat-dun-chercheur-sur-le-point-de-faire-des-decouvertes-importantes
4941 April 24 Des propos de Trump déclenchent un tollé chez les scientifiques Une « injection » de « désinfectant » pour combattre le coronavirus ? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique et de nombreux spécialistes ont accusé le président américain d’être irresponsable en faisant cette suggestion « dangereuse ». (Paris) Une « injection » de « désinfectant » pour combattre le coronavirus ? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifiq… La Presse https://www.lapresse.ca/international/etats-unis/202004/24/01-5270714-des-propos-de-trump-declenchent-un-tolle-chez-les-scientifiques.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
3917 May 06 COVID-19: assassinat d’un chercheur sur le point de faire «des découvertes importantes» Le meurtre du chercheur pourrait-il être dû aux recherches qu’il menait sur la COVID-19? Un professeur de l’Université de Pittsburgh qui menait des recherches prometteuses sur la COVID-19 a été assassiné ce week-end. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/06/covid-19-assassinat-dun-chercheur-sur-le-point-de-faire-des-decouvertes-importantes
3889 May 02 La pandémie de coronavirus devrait durer au moins 18 mois Selon les prédictions de chercheurs universitaires dans un nouveau rapport La pandémie de coronavirus devrait durer de 18 à 24 mois, ont prédit des chercheurs dans un rapport universitaire publié jeudi. TVA Nouvelles http://www.tvanouvelles.ca/2020/05/02/la-pandemie-de-coronavirus-devrait-durer-au-moins-18-mois
3871 May 08 La COVID-19, aussi une maladie du cœur «On apprend que la COVID-19 peut causer des arythmies cardiaques, elle peut causer des infarctus. elle peut même attaquer le muscle cardiaque» Les médecins et chercheurs se rendent compte de corollaires entre les maladies cardiovasculaires et les patients les plus gravement atteints. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/08/la-covid-19-aussi-une-maladie-du-cur
3050 April 30 Syndrome inflammatoire chez l’enfant: un spécialiste fait le point Une équipe de chercheurs de l’Hôpital Sainte-Justine travaille sur une étude Des enfants qui auraient été en contact avec le coronavirus ont développé une maladie inflammatoire. Des cas ont été signalés en Europe et ici. TVA Nouvelles https://www.tvanouvelles.ca/2020/04/30/syndrome-inflammatoire-chez-lenfant-un-specialiste-fait-le-point
2705 April 28 Les régions devront rester fermées, croient des chercheurs Selon un «plan de déconfinement parfait» préparé par une équipe de chercheurs québécois Alors que la Santé publique évoque la levée des barrages, un «plan de déconfinement parfait» recommande au contraire de les maintenir. TVA Nouvelles https://www.tvanouvelles.ca/2020/04/27/les-regions-devront-rester-fermees-croient-des-chercheurs
2657 May 09 La vitamine D à la rescousse pour mieux combattre la COVID-19 Les chercheurs responsables de l’étude se sont penchés sur le cas de 20 pays européens Le niveau de vitamine D absorbé par une personne a un effet sur sa capacité à mieux combattre la COVID-19, démontre une étude. TVA Nouvelles http://www.tvanouvelles.ca/2020/05/09/covid-19-la-vitamine-d-a-la-rescousse-1
2508 May 04 Identification d’un anticorps monoclonal prometteur Capable en laboratoire de neutraliser le virus responsable de la COVID-19 Un anticorps monoclonal capable en laboratoire de neutraliser le virus SARS-CoV-2 a été identifié par une équipe de chercheurs néerlandais. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/04/identification-dun-anticorps-monoclonal-prometteur
2465 April 24 Combattre le coronavirus avec du «désinfectant»? Trump accusé d’être «irresponsable» «Je vois que le désinfectant l’assomme (le coronavirus) en une minute», a déclaré Donald Trump lors de son point de presse quotidien. Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique. Le Journal de Montréal https://www.journaldemontreal.com/2020/04/24/combattre-le-coronavirus-avec-du-desinfectant-trump-accuse-detre-irresponsable-1
2408 May 05 Découverte d’une concentration record de pollution plastique dans les fonds marins Selon une étude menée par des chercheurs de l’Université McGill sur le tronçon du Saint-Laurent entre Montréal et Québec, le fleuve serait parmi les pires cours d’eau de la planète en matière de pollution par les microplastiques. Un équivalent aux «continents de plastique» a été trouvée en débris minuscules dans le fond des mers. Le Devoir https://www.ledevoir.com/societe/environnement/578268/decouverte-d-une-concentration-record-de-pollution-plastique-dans-les-fonds-marins?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1588634504
2346 April 27 Le Québec a réussi à éviter «une catastrophe», assure une experte La courbe s’aplatit «depuis plusieurs semaines», selon cette chercheuse La courbe s’aplatit «depuis plusieurs semaines», selon cette chercheuse TVA Nouvelles https://www.tvanouvelles.ca/2020/04/27/courbe-de-propagation-le-quebec-a-reussi-a-eviter-une-catastrophe-assure-une-experte
2269 May 05 Une nouvelle souche du virus plus contagieuse: des chercheurs sonnent l’alerte Cette souche serait devenue dominante dans le monde et semble être plus contagieuse que les versions qui se sont propagées auparavant… Des scientifiques ont identifié une nouvelle souche du coronavirus qui serait devenue dominante dans le monde. Le Journal de Québec https://www.journaldequebec.com/2020/05/05/une-nouvelle-souche-du-virus-plus-contagieuse-des-chercheurs-sonnent-lalerte
2228 May 07 Un lama pourrait être la clé pour vaincre la COVID Les chercheurs étudiaient déjà les anticorps des lamas pour développer un traitement contre le SRAS Des scientifiques se tournent vers une source à tout le moins obscure pour trouver un remède contre la COVID-19 : Winter le lama. TVA Nouvelles https://www.tvanouvelles.ca/2020/05/06/un-lama-pourrait-etre-la-cle-pour-vaincre-la-covid
2214 April 24 Trump, coronavirus et désinfectant: confusion et consternation Le fabricant du désinfectant Lysol s’est senti obligé de faire une mise au point écrite «en raison des spéculations intenses et de l’activité sur les réseaux sociaux» Une «injection» de «désinfectant» pour combattre le coronavirus? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique. TVA Nouvelles https://www.tvanouvelles.ca/2020/04/24/combattre-le-coronavirus-avec-du-desinfectant-trump-accuse-detre-irresponsable
1895 May 06 COVID-19: assassinat d’un chercheur sur le point de faire «des découvertes importantes» Un professeur de l’Université de Pittsburgh qui menait des recherches prometteuses sur la COVID-19 a été assassiné ce week-end… Un professeur de l’Université de Pittsburgh qui menait des recherches prometteuses sur la COVID-19 a été assassiné ce week-end. Le Journal de Québec https://www.journaldequebec.com/2020/05/06/covid-19-assassinat-dun-chercheur-sur-le-point-de-faire-des-decouvertes-importantes
1765 May 07 La stratégie de dépistage du Québec vivement critiquée par une conseillère de Trudeau | Coronavirus « Il y a une différence entre le discours et ce qu’on entend sur le terrain », déplore la conseillère scientifique en chef du Canada. « Il y a une différence entre le discours et ce qu’on entend sur le terrain », déplore Mona Nemer. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1700727/depistage-quebec-trudeau-legault-nemer-strategie-coronavirus
1720 April 28 COVID-19: les régions devront rester fermées, croient des chercheurs Une équipe de chercheurs québécois recommande de maintenir les barrages empêchant de se rendre vers les régions peu affectées par la COVID-19. Un «plan de déconfinement parfait» préparé par une équipe de chercheurs recommande de maintenir les barrages empêchant de se rendre vers les régions. Le Journal de Québec https://www.journaldequebec.com/2020/04/27/covid-19-les-regions-devront-rester-fermees-croient-des-chercheurs
1597 May 06 5G et COVID: les théories du complot échauffent les esprits Des tours de télécommunication ont successivement été ciblées par des incendies criminels à Laval, Prévost et Piedmont au cours des derniers jours. «Les auteurs de théories arrivent à créer une histoire qui ne tient pas la route d’un point de vue scientifique.» TVA Nouvelles https://www.tvanouvelles.ca/2020/05/06/5g-et-covid-les-theories-du-complot-echauffent-les-esprits
1515 May 08 Plandemic , un documentaire truffé de fausses affirmations | Coronavirus [Décrypteurs] La chercheuse mise de l’avant dans le documentaire, Judy Mikovits, fait un grand nombre de fausses affirmations. En voici quelques-unes décortiquées. La chercheuse mise de l’avant dans le documentaire a un passé controversé. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1701064/documentaire-plandemic-judy-mikovits-fauci-covid-19-coronavirus-faux
1358 May 02 On écoute les experts pour la COVID-19, pourquoi pas pour les changements climatiques? | Coronavirus «Quand il y a vraiment la perception d’un danger imminent, alors là les décideurs prennent des décisions qu’on n’aurait jamais pu imaginer.» Les scientifiques n’ont jamais autant eu l’oreille des décideurs. Pourquoi n’est-ce pas le cas pour le climat? Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1698386/covid-19-coronavirus-experts-scientifiques-changements-climatiques-climat-crise
1282 April 30 «Si t’as pas compris ça, t’es pas fort en science!» Mario Dumont se lance dans un petit calcul mathématique afin d’appuyer son propos TVA Nouvelles https://www.tvanouvelles.ca/2020/04/30/si-tas-pas-compris-ca-tes-pas-fort-en-science?fbclid=IwAR0ZwBX-yLtJIQYQGwN5UgeyYC1aQLOzkzK9-j_eGVp_TJEs0z8yMbVUn6Y
1172 May 08 Arruda s’en prend aux «gérants d’estrade» Québec se défend d’improviser quant à son plan de déconfinement, au lendemain de vives critiques de la part de la conseillère scientifique de Justin Trudeau. Le Dr Horacio Arruda en a profité pour dénoncer les « gérants d’estrade » et annoncer une volte-face concernant les grands-parents, qui pourront garder leurs petits-enfants sous certaines conditions. Québec se défend d’improviser quant à son plan de déconfinement, au lendemain de vives critiques de la part de la conseillère scientifique de Justin Trudea… La Presse https://www.lapresse.ca/covid-19/202005/08/01-5272705-arruda-sen-prend-aux-gerants-destrade.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
1169 May 13 Une fillette de Matane atteinte de la maladie de Kawasaki | Au coeur du monde L’important c’est de reconnaître les symptômes de la maladie de Kawasaki rapidement. Ce fut le cas en ce qui concerne la petite Alyssa. La jeune matanaise Alyssa, 6 ans, a été diagnostiquée de la maladie de Kawasaki récemment. Elle a commencé à avoir des symptômes à la mi-février. On entend beaucoup plus parler de cette maladie ces jours-ci puisque les chercheurs tentent de voir si les nouveaux cas ont un lien avec la COVID… ICI Gaspésie-Les-Îles https://ici.radio-canada.ca/premiere/emissions/au-coeur-du-monde/segments/entrevue/170123/maladie-kawasaki-matane
1131 April 27 Il n’est « pas prudent » d’anticiper l’immunité collective, dit Trudeau | Coronavirus « On ne sait pas encore si quelqu’un qui a eu la COVID-19 est protégé de la rattraper quelques mois plus tard; la science n’est pas [concluante] là-dessus. » L’immunité collective n’est « pas prouvée », admet peu après le premier ministre du Québec, François Legault. Radio-Canada Information https://ici.radio-canada.ca/nouvelle/1697740/justin-trudeau-pandemie-coronavirus-mesures-gouvernementales-covid-19
1049 May 09 Le bouillant Dr Arruda «Ce scientifique au tempérament vif a conquis les Québécois en réussissant à leur imposer un confinement dont ils ne mesuraient pas à l’évidence les contraintes.» La chronique de Denise Bombardier. En quelques semaines, le directeur de la santé publique du Québec est passé de l’ombre à la lumière. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/09/le-bouillant-dr-arruda
1024 April 28 COVID-19: les régions devront rester fermées, croient des chercheurs Alors que la Santé publique évoque la levée des barrages, un «plan de déconfinement parfait» préparé par une équipe de chercheurs québécois recommande au contraire de les maintenir. Un «plan de déconfinement parfait» préparé par une équipe de chercheurs recommande de maintenir les barrages empêchant de se rendre vers les régions. Le Journal de Montréal https://www.journaldemontreal.com/2020/04/27/covid-19-les-regions-devront-rester-fermees-croient-des-chercheurs
1013 May 13 «Arruda ne doit pas perdre sa spontanéité, son naturel» Pourquoi la population s’est-elle profondément attachée à ce scientifique hors norme et plutôt coloré? Un expert en communications publiques explique : Le directeur de la Santé publique du Québec, Horacio Arruda, était inconnu de la population il y a 6 mois de cela. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/13/arruda-ne-doit-pas-perdre-sa-spontaneite-son-naturel-1
986 April 24 Combattre le coronavirus avec du «désinfectant»? Trump accusé d’être «irresponsable» Les propos du président américain, qui a évoqué une «injection» de «désinfectant» pour combattre le coronavirus, ont déclenché un tollé chez les scientifiques. Le Devoir https://www.ledevoir.com/monde/etats-unis/577673/combattre-le-coronavirus-avec-du-desinfectant-trump-accuse-d-etre-irresponsable?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1587739889
970 May 04 COVID-19: identification d’un anticorps monoclonal prometteur Un anticorps monoclonal capable en laboratoire de neutraliser le virus SARS-CoV-2, responsable de la COVID-19, a été identifié par une équipe de chercheurs néerlandais. Un anticorps monoclonal capable en laboratoire de neutraliser le virus SARS-CoV-2 a été identifié par une équipe de chercheurs néerlandais. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/04/covid-19-identification-dun-anticorps-monoclonal-prometteur
962 May 02 Écoutons aussi les spécialistes de l’éducation… OPINION / L’auteure, Nancy Goyette, est professeure au Département des sciences de l’éducation de l’Université du Québec à Trois-Rivières. OPINION / L’auteure, Nancy Goyette, est professeure au Département des sciences de l’éducation de l’Université du Québec à Trois-Rivières. Le Nouvelliste https://www.lenouvelliste.ca/opinions/ecoutons-aussi-les-specialistes-de-leducation-80db4f1e1c37f215de7cf4b9d864593f?utm_source=dlvr.it&utm_medium=facebook
909 May 06 Les masques artisanaux les plus efficaces Pour bien choisir quels tissus utiliser pour fabriquer un masque « fait maison », des chercheurs de l’Université de Chicago ont analysé la capacité de différentes matières à retenir les postillons et petits aérosols. Pour bien choisir le tissu à utiliser, des chercheurs ont analysé la capacité de différentes matières à retenir les postillons et petits aérosols. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/06/les-masques-artisanaux-les-plus-efficaces
908 April 27 Existe-t-il vraiment un remède miracle pour échapper à la COVID-19 ? L’équipe de L’épicerie s’est penchée sur la question avec l’aide de scientifiques. Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/646818975864281/
892 April 25 Un appel à la prudence sur l’immunité collective L’immunité collective sur laquelle mise entre autres la santé publique du Québec est en quelque sorte un pari que prend le gouvernement provincial puisque scientifiquement parlant, rien n’est encore confirmé. En raison des comportements particuliers de la COVID-19, l’OMS a voulu faire un appel à la prudence. Le Journal de Montréal http://www.journaldemontreal.com/2020/04/25/un-appel-a-la-prudence-sur-limmunite-collective-1
882 April 24 Les scientifiques consternés par les propos de Trump sur le désinfectant Non, ingérer du désinfectant ne combat pas la COVID-19… C’est juste dangereux. HuffPost Québec http://huffp.st/XGoiJEr
869 April 25 COVID-19: Ottawa ne mise pas sur l’immunité collective Justin Trudeau rappelle « qu’il n’y a aucune science encore qui dit que si on a attrapé la COVID-19 une fois, on ne peut l’attraper une deuxième fois ». Justin Trudeau a averti qu’il ne faut pas, pour l’instant, considérer l’immunité collective comme une solution pour endiguer la pandémie de COVID-19. Le Journal de Montréal http://www.journaldemontreal.com/2020/04/25/covid-19-ottawa-ne-mise-pas-sur-limmunite-collective
799 April 25 Des chercheurs de l’Université de Sherbrooke ont créé en quelques jours un des ingrédients indispensables aux tests de COVID-19. Il s’agit d’un amplificateur qui permet de déceler le virus. Son nom : le Sherby-20. ICI Estrie https://www.facebook.com/iciestrie/videos/371653223722233/
727 April 30 Gare à l’infection volontaire Tentés d’attraper volontairement la COVID-19 pour sortir au plus vite du confinement ? Minute, mettent en garde les scientifiques. L’idée est probablement plus dangereuse qu’elle n’y paraît. Tentés d’attraper volontairement la COVID-19 pour sortir au plus vite du confinement ? Minute, mettent en garde les scientifiques. L’idée est probablement … La Presse https://www.lapresse.ca/covid-19/202004/29/01-5271486-gare-a-linfection-volontaire.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
592 April 28 Des experts croient qu’il faut maintenir les contrôles routiers - Les nouvelles - CIHO FM 96,3 Une équipe de chercheurs québécois recommande à la Santé publique de maintenir les barrages routiers aux frontières des régions moins affectées par la COVID-19, dont Charlevoix. Alors que la Santé publique évoque la levée des contrôles routiers aux frontières des régions peu affectées par la COVID-19, dont Charlevoix, un comité de chercheurs québécois croit au contraire qu’ils doivent être maintenus. FM Charlevoix - CIHO 96,3 http://www.cihofm.com/nouvelles/Des-experts-croient-qu-il-faut-maintenir-les-controles-routiers-2020-04-28-06-27
562 May 08 Les piscines seront-elles ouvertes au cours de l’été? Le gouvernement du Québec se penche sur la question, tandis que les scientifiques et les gestionnaires de bassins répondent par l’affirmative. 🏊‍♀ rc.ca/RWDHPY Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/248550649559564/
557 April 24 Combattre le coronavirus avec du «désinfectant»? Trump accusé d’être «irresponsable» Une «injection» de «désinfectant» pour combattre la COVID-19? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique. Le Journal de Québec https://www.journaldequebec.com/2020/04/24/combattre-le-coronavirus-avec-du-desinfectant-trump-accuse-detre-irresponsable-1
546 May 10 Maladie liée à la COVID-19 chez les enfants: le maire de New York s’inquiète Le maire de New York a fait part de sa « grave inquiétude » concernant une augmentation de cas d’un syndrome touchant les enfants que les scientifiques pensent être lié au coronavirus. Le maire de New York Bill de Blasio a fait part de sa «grave inquiétude» concernant une augmentation de cas d’un syndrome touchant les enfants. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/10/maladie-liee-a-la-covid-19-chez-les-enfants-le-maire-de-new-york-sinquiete-1
533 May 09 [Décrypteurs] Près d’un Canadien sur dix croirait aux théories du complot entourant la pandémie de COVID-19, selon les résultats préliminaires d’une recherche menée par une équipe de chercheurs de l’Université de Sherbrooke. rc.ca/RWD2k2 Radio-Canada Information https://www.facebook.com/radiocanada.info/videos/864274927412272/
528 April 24 Des propos de Trump soulèvent la controverse chez les scientifiques Une «injection» de «désinfectant» pour combattre le coronavirus? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique. Une «injection» de «désinfectant» pour combattre le coronavirus? Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique et de nombreux spécialistes ont accusé le président américain d’être irresponsable en faisant cette suggestion «dangereuse» «Je vois que … Journal Métro https://journalmetro.com/monde/2440743/des-propos-de-trump-soulevent-la-controverse-chez-les-scientifiques/
527 May 13 «Arruda ne doit pas perdre sa spontanéité, son naturel» Pourquoi la population s’est-elle profondément attachée à ce scientifique hors norme et plutôt coloré? Le directeur de la Santé publique du Québec, Horacio Arruda, était inconnu de la population il y a 6 mois de cela. Le Journal de Québec https://www.journaldequebec.com/2020/05/13/arruda-ne-doit-pas-perdre-sa-spontaneite-son-naturel-1
515 April 27 Le Québec a réussi à éviter «une catastrophe», assure une experte La courbe s’aplatit «depuis plusieurs semaines». La courbe s’aplatit «depuis plusieurs semaines», selon cette chercheuse Le Journal de Montréal https://www.journaldemontreal.com/2020/04/27/le-quebec-a-reussi-a-eviter-une-catastrophe-assure-une-experte
506 April 28 Les régions devront rester fermées, croient des chercheurs Même si l’interdiction des déplacements interrégionaux a été l’une des dernières mesures mises en place par le gouvernement provincial pour limiter la propagation du coronavirus, elle devrait être l’une des dernières à être levée, estiment-ils. Alors que la Santé publique évoque la levée des barrages, un «plan de déconfinement parfait» recommande au contraire de les maintenir. TVA Est-du-Québec https://www.tvanouvelles.ca/2020/04/27/les-regions-devront-rester-fermees-croient-des-chercheurs
454 April 27 Le maintien à domicile des aînés serait bénéfique durant une pandémie On aurait tout intérêt, en période de pandémie, à favoriser le maintien des aînés à domicile, surtout quand on constate les ravages causés par le coronavirus dans les CHSLD, croit un chercheur du Centre interuniversitaire de recherche en analyse des organisations (CIRANO). (Montréal) On aurait tout intérêt, en période de pandémie, à favoriser le maintien des aînés à domicile, surtout quand on constate les ravages causés par l… La Presse https://www.lapresse.ca/covid-19/202004/27/01-5271084-le-maintien-a-domicile-des-aines-serait-benefique-durant-une-pandemie.php?utm_source=facebook&utm_medium=social&utm_campaign=algofb
428 April 26 Un déconfinement graduel reste souhaitable L’important est de continuer à tester la population pour mesurer la présence de la COVID-19 et prévenir une deuxième vague d’infections. L’absence de preuve scientifique concernant l’immunité supposée des personnes guéries de la COVID-19 ne remet pas en cause le déconfinement. Le Journal de Montréal https://www.journaldemontreal.com/2020/04/25/un-deconfinement-graduel-reste-souhaitable
403 May 03 Surveillés et dociles? «Aux mesures classiques de quarantaine succède la mise en place de dispositifs de contrôle inédits, qu’on aurait aisément pu qualifier de dystopiques il y a encore quelques semaines.» Un texte d’opinion d’Alexandre Klein, de l’unité de recherche sur l’histoire du nursing de l’École des sciences infirmières de l’Université d’Ottawa. ― via Le Devoir - Opinion Les décisions que nous prenons actuellement sont loin d’être anecdotiques ou simplement temporaires. Le Devoir https://www.ledevoir.com/opinion/idees/578143/surveilles-et-dociles?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1588508330
392 May 11 Un lama pourrait fournir la clé du traitement de la COVID-19 Des chercheurs ont isolé un anticorps du lama qui pourrait grandement contribuer à la lutte contre la maladie. HuffPost Québec http://huffp.st/RrtSxnk
389 May 12 Un vaccin à coup sûr? Les scientifiques ne peuvent garantir qu’un vaccin contre le coronavirus verra le jour. Le Devoir https://www.ledevoir.com/societe/science/578734/un-vaccin-a-coup-sur?utm_medium=Social&utm_campaign=Autopost&utm_source=Facebook#Echobox=1589286724
377 April 24 Trump, coronavirus et désinfectant: confusion et consternation Ses propos confus sur de possibles injections de désinfectant pour lutter contre le coronavirus ont suscité la stupéfaction. Des déclarations de Donald Trump jeudi ont consterné la communauté scientifique. Le Journal de Montréal https://www.journaldemontreal.com/2020/04/24/combattre-le-coronavirus-avec-du-desinfectant-trump-accuse-detre-irresponsable-1
375 May 09 Un médicament québécois contre la COVID-19 au printemps 2021? Il est entendu dans la communauté scientifique que vaccin pourrait ne voir le jour que dans 12 à 18 mois. Si le gouvernement subventionne la recherche de Tetra Bio Pharma à hauteur de 14 millions $, le coronavirus pourrait avoir un ennemi de sa taille. Le Journal de Montréal https://www.journaldemontreal.com/2020/05/09/un-medicament-canadien-contre-la-covid-19-au-printemps-2021-1
358 April 25 Coronavirus : rien ne prouve que les personnes guéries sont immunisées, avertit l’OMS | Coronavirus «Il n’existe aucune preuve scientifique que les personnes qui ont vaincu la COVID-19 et ont des anticorps sont prémunies contre une deuxième infection», écrit l’OMS dans une note scientifique. L’OMS déclare qu’il n’y a « aucune preuve » que les personnes guéries du coronavirus sont immunisées. ICI Mauricie Centre-du-Québec https://ici.radio-canada.ca/nouvelle/1697351/pandemie-infection-guerison-maladie-contagion-epidemie
338 April 24 Le vaccin contre la COVID-19 pourrait venir de Laval | Courrier Laval Dr René Roy et son équipe de chercheurs croient possible de développer dans leurs laboratoires de Laval un vaccin dans les 12 à 15 prochains mois. «D’ici trois mois, avec les ressources appropriées, nous serons en mesure d’évaluer l’efficacité de notre vaccin et de déterminer s’il est en mesure de détruire le virus de la COVID-19», affirme Dany Valiquette qui préside aux destinées d’une biopharma en incubation au Centre qué… Courrier Laval https://courrierlaval.com/le-vaccin-contre-la-covid-19-pourrait-venir-de-laval/
 rm(fb_posts)