Untitled
Lux
2025-05-27
1) OKVIR × MEDIJ
## # A tibble: 5 × 8
## MEDIJ `1` `2` `3` `6` `7` `4` `5`
## <chr> <int> <int> <int> <int> <int> <int> <int>
## 1 24sata.hr 3 2 10 33 4 0 0
## 2 index.hr 5 8 8 47 2 1 1
## 3 jutarnji.hr 4 2 7 21 1 1 0
## 4 lidermedia.hr 4 0 6 14 0 0 0
## 5 poslovni.hr 5 0 7 38 2 0 0
##
## Pearson's Chi-squared test
##
## data: tbl
## X-squared = 24.42, df = 24, p-value = 0.4378Test ne može potvrditi vezu medija i okvira.
2) OKVIR x “vrijeme objave” (MONTH)
## [1] "Contingency Table:"## January December
## Ekonomski okvir 11 10
## Politički okvir 10 2
## Socijalni okvir 33 5
## Nacionalni/suverenitetni okvir 2 0
## Moralno/etički okvir 0 1
## Tehnološko-administrativni okvir 78 75
## Ostalo 8 1## [1] "Chi-Square Test Result:"##
## Pearson's Chi-squared test
##
## data: contingency_table
## X-squared = 25.821, df = 6, p-value = 0.0002404## [1] "Fisher's Exact Test Result:"##
## Fisher's Exact Test for Count Data
##
## data: contingency_table
## p-value = 4.149e-05
## alternative hypothesis: two.sidedPostoji veza između medijskih okvira i vremena objave članaka.
3) OKVIR x Izvor
## # A tibble: 7 × 2
## OKVIR mode_izvori
## <fct> <chr>
## 1 1 8
## 2 2 4
## 3 3 4
## 4 4 4
## 5 5 1
## 6 6 3
## 7 7 9
##
## Kruskal-Wallis rank sum test
##
## data: IZVORI by OKVIR
## Kruskal-Wallis chi-squared = 12.726, df = 6, p-value = 0.0476Test je pokazao da postoji statistički značajna razlika u broju izvora između različitih medijskih okvira.
4) OKVIR x Sentiment
## # A tibble: 7 × 4
## OKVIR `1` `2` `3`
## <fct> <int> <int> <int>
## 1 1 14 1 6
## 2 2 2 8 2
## 3 3 6 17 15
## 4 4 0 2 0
## 5 5 0 1 0
## 6 6 2 25 126
## 7 7 3 0 6
## # A tibble: 3 × 2
## SENTIMENT count
## <dbl> <int>
## 1 1 27
## 2 2 54
## 3 3 155
## [1] "Contingency Table:"## Sentiment 1 Sentiment 2 Sentiment 3
## OKVIR 1 14 1 6
## OKVIR 2 2 8 2
## OKVIR 3 6 17 15
## OKVIR 4 0 2 0
## OKVIR 5 0 1 0
## OKVIR 6 2 25 126
## OKVIR 7 3 0 6## [1] "Chi-Square Test Result:"##
## Pearson's Chi-squared test
##
## data: contingency_data
## X-squared = 129.68, df = 12, p-value < 2.2e-16## [1] "Fisher's Exact Test Result:"##
## Fisher's Exact Test for Count Data with simulated p-value (based on
## 10000 replicates)
##
## data: contingency_data
## p-value = 9.999e-05
## alternative hypothesis: two.sidedTest je pokazao da postoji statistički značajna razlika u sentimentu između različitih medijskih okvira.
5) OKVIR x Doseg (reach)
##
## Kruskal-Wallis rank sum test
##
## data: OKVIR by REACH
## Kruskal-Wallis chi-squared = 181.25, df = 185, p-value = 0.5642Test je pokazao da ne ostoji statistički značajna razlika u dosegu između različitih medijskih okvira.
6) OKVIR x Komentari (comments)
## tibble [236 × 47] (S3: tbl_df/tbl/data.frame)
## $ URL : chr [1:236] "https://lidermedia.hr/aktualno/hnb-ce-kune-za-eure-poceti-mijenjati-od-1-sijecnja-2024-147793" "https://lidermedia.hr/aktualno/policija-gradani-oprez-lazni-euri-prevaranti-koriste-filmske-novcanice-147809" "https://lidermedia.hr/aktualno/povijesni-trenutak-republika-hrvatska-sluzbeno-uvela-euro-kao-novu-valutu-i-time"| __truncated__ "https://lidermedia.hr/aktualno/zamjena-kuna-u-eure-u-bankama-bez-ogranicenja-na-kolicinu-novcanica-i-kovanica-147839" ...
## $ NASLOV : chr [1:236] "HNB će kune za eure početi mijenjati od 1. siječnja 2024." "Policija: Građani oprez - lažni euri, prevaranti koriste filmske novčanice" "Povijesni trenutak - Republika Hrvatska službeno uvela euro kao novu valutu i time postala 20. država članica europodručja" "Zamjena kuna u eure u bankama bez ograničenja na količinu novčanica i kovanica" ...
## $ AUTORSTVO : num [1:236] 5 5 1 1 3 1 3 3 3 3 ...
## $ ŽANR : num [1:236] 1 1 1 1 1 1 1 1 1 1 ...
## $ TIP PRILOGA : num [1:236] 1 2 2 1 3 2 5 5 2 3 ...
## $ FOTO : num [1:236] 1 1 1 1 1 1 1 1 1 1 ...
## $ GRAFIČKA OPREMA : num [1:236] 4 4 4 4 4 4 4 4 4 4 ...
## $ TIP NASLOVA : num [1:236] 1 1 1 1 1 1 2 1 1 1 ...
## $ CLICKBAIT : num [1:236] 2 2 2 2 2 2 1 2 2 2 ...
## $ STIL PISANJA : num [1:236] 1 1 1 1 4 1 1 1 1 1 ...
## $ IZVORI : num [1:236] 3 9 8 3 8 6 8 9 8 8 ...
## $ OKVIR : Factor w/ 7 levels "1","2","3","4",..: 6 6 1 6 6 6 6 1 3 6 ...
## $ SENTIMENT : num [1:236] 3 3 1 3 3 3 3 1 3 3 ...
## $ DOSEG : num [1:236] 1 1 1 1 1 1 1 1 1 1 ...
## $ KOMENTARI : num [1:236] 0 0 0 0 0 1 0 0 1 0 ...
## $ DATE : Date[1:236], format: "2023-01-02" "2023-01-03" ...
## $ TIME : 'hms' num [1:236] 15:12:43 11:47:08 01:11:40 11:58:10 ...
## ..- attr(*, "units")= chr "secs"
## $ TITLE : chr [1:236] "HNB će kune za eure početi mijenjati od 1. siječnja 2024." "Policija: Građani oprez - lažni euri, prevaranti koriste filmske novčanice" "Povijesni trenutak - Republika Hrvatska službeno uvela euro kao novu valutu i time postala 20. država članica europodručja" "Zamjena kuna u eure u bankama bez ograničenja na količinu novčanica i kovanica" ...
## $ AUTHOR : chr [1:236] "Lider/Hina" "Lider/Hina" "Lider" "Lider" ...
## $ URL_PHOTO : chr [1:236] "https://app.determ.com/images/RM9ik1APFQg6scI58udhEyL5ZWMZXDfyu8zlW4fIw_Q/rs:fit:50:50/plain/https://lidermedia"| __truncated__ "https://app.determ.com/images/UMXt98zmAMeU5T7yZx_FW4J0AcKIdmnkSbLvIm2TvA4/rs:fit:50:50/plain/https://lidermedia"| __truncated__ "https://app.determ.com/images/NRcpeoXcV-FZ7GLtLfSuKxEqgIB-YYbYe4A98qxAj-A/rs:fit:50:50/plain/https://lidermedia"| __truncated__ "https://app.determ.com/images/EKPORehY3rtLdUliCPQD_kYPIuFS07n0HY1E_wMNIl8/rs:fit:50:50/plain/https://lidermedia"| __truncated__ ...
## $ SOURCE_TYPE : chr [1:236] "web" "web" "web" "web" ...
## $ GROUP_NAME : chr [1:236] "Luka" "Luka" "Luka" "Luka" ...
## $ KEYWORD_NAME : chr [1:236] "opće" "opće" "opće" "opće" ...
## $ FOUND_KEYWORDS : chr [1:236] "i" "i" "i, I" "i" ...
## $ LANGUAGES : chr [1:236] "hr" "hr" "hr" "hr" ...
## $ LOCATIONS : chr [1:236] "HR" "HR" "HR" "HR" ...
## $ TAGS : logi [1:236] NA NA NA NA NA NA ...
## $ MANUAL_SENTIMENT : logi [1:236] NA NA NA NA NA NA ...
## $ AUTO_SENTIMENT : chr [1:236] "neutral" "negative" "positive" "negative" ...
## $ MENTION_SNIPPET : chr [1:236] "godine... Hrvatska narodna banka (HNB) naglasila je u ponedjeljak da prije 1. siječnja 2024. nije moguće u toj "| __truncated__ "Policija: Građani oprez - lažni euri, prevaranti koriste filmske novčanice Građani oprez - lažni euri, poručili"| __truncated__ "Povijesni trenutak - Republika Hrvatska službeno uvela euro kao novu valutu i time postala 20. država članica e"| __truncated__ "Zamjena kuna u eure u bankama bez ograničenja na količinu novčanica i kovanica Poslovne banke pri zamjeni kunsk"| __truncated__ ...
## $ REACH : num [1:236] 6 6 6 6 249 303 51 6 636 60 ...
## $ VIRALITY : num [1:236] 0 0 0 0 0.912 ...
## $ ENGAGEMENT_RATE : num [1:236] 0 0 0 0 9.24 ...
## $ INTERACTIONS : num [1:236] 0 0 0 0 23 27 1 0 16 2 ...
## $ FOLLOWERS_COUNT : logi [1:236] NA NA NA NA NA NA ...
## $ LIKE_COUNT : num [1:236] 0 0 0 0 22 25 0 0 2 1 ...
## $ COMMENT_COUNT : num [1:236] 0 0 0 0 0 1 0 0 1 0 ...
## $ SHARE_COUNT : num [1:236] 0 0 0 0 1 1 1 0 13 1 ...
## $ TOTAL_REACTIONS_COUNT: num [1:236] 0 0 0 0 23 27 1 0 16 2 ...
## $ INFLUENCE_SCORE : num [1:236] 1 1 1 1 1 1 1 1 1 1 ...
## $ FULL_TEXT : chr [1:236] "HNB će kune za eure početi mijenjati od 1. siječnja 2024. Hrvatska narodna banka (HNB) naglasila je u ponedjelj"| __truncated__ "Policija: Građani oprez - lažni euri, prevaranti koriste filmske novčanice Građani oprez - lažni euri, poručili"| __truncated__ "Povijesni trenutak - Republika Hrvatska službeno uvela euro kao novu valutu i time postala 20. država članica e"| __truncated__ "Zamjena kuna u eure u bankama bez ograničenja na količinu novčanica i kovanica Poslovne banke pri zamjeni kunsk"| __truncated__ ...
## $ DETECTED_WORD : chr [1:236] "HNB" "HNB" "HNB" "HNB" ...
## $ DETECTED_SENTENCE : chr [1:236] "HNB" "Policija: Građani oprez - lažni euri, prevaranti koriste filmske novčanice Građani oprez - lažni euri, poručili"| __truncated__ "Povijesni trenutak - Republika Hrvatska službeno uvela euro kao novu valutu i time postala 20. država članica e"| __truncated__ "Zamjena kuna u eure u bankama bez ograničenja na količinu novčanica i kovanica Poslovne banke pri zamjeni kunsk"| __truncated__ ...
## $ HOUR : int [1:236] 15 11 1 11 12 12 9 14 14 8 ...
## $ MONTH : Ord.factor w/ 12 levels "January"<"February"<..: 1 1 1 1 12 1 1 12 1 12 ...
## $ MEDIJ : chr [1:236] "lidermedia.hr" "lidermedia.hr" "lidermedia.hr" "lidermedia.hr" ...
## $ okvir_nazivi : Factor w/ 7 levels "Ekonomski okvir",..: 6 6 1 6 6 6 6 1 3 6 ...
##
## Kruskal-Wallis rank sum test
##
## data: COMMENT_COUNT by OKVIR
## Kruskal-Wallis chi-squared = 14.591, df = 6, p-value = 0.02369Test je pokazao da postoji statistički značajna razlika u broju komentara između različitih medijskih okvira.
6) OKVIR x Naslovi
## # A tibble: 4 × 2
## `TIP NASLOVA` count
## <dbl> <int>
## 1 1 135
## 2 2 69
## 3 3 24
## 4 4 8
##
## Pearson's Chi-squared test
##
## data: counts_mat
## X-squared = 68.734, df = 18, p-value = 7.393e-08Postoji statistički značajna razlika u broju naslova između različitih medijskih okvira.
##$ Text analysis (TITLE)
STEMMING
Doprinos riječi sentimentu (crosentilex)
Doprinos riječi sentimentu (NRC)
##### Doprinos riječi raznom sentimentu (NRC)
