Katolički influenceri i institucionalni deficit pažnje

Strategije privlačenja pažnje u hrvatskom religijskom digitalnom prostoru

Author

DigiKat Projekt

Published

3. veljače 2026.

Sažetak

Ova studija istražuje ekonomiju pažnje katoličkih influencera u Hrvatskoj, uspoređujući njihovu digitalnu učinkovitost s institucionalnim crkvenim akterima. Koristeći DigiKat bazu podataka s preko 600.000 objava iz razdoblja 2021. do 2025., testiramo pet hipoteza proizašlih iz teorije ekonomije pažnje. Rezultati pokazuju da pažnja među influencerima slijedi distribuciju potencijskog zakona s ekstremnom koncentracijom, da influenceri postižu značajno više stope angažmana od institucionalnih komunikatora, da se platformske strategije znatno razlikuju među kategorijama aktera te da obrasci tematske specijalizacije otkrivaju različite niše. Ovi nalazi proširuju akademsku literaturu o ekonomiji pažnje na kontekst religijske komunikacije te pružaju empirijske dokaze o institucionalnom deficitu pažnje u hrvatskim katoličkim digitalnim medijima.

Ključne riječi: ekonomija pažnje, religijski influenceri, digitalni mediji, Katolička crkva, Hrvatska, platformska strategija


1 Uvod

Ova studija primjenjuje okvir ekonomije pažnje za analizu strukture i dinamike katoličkih influencera u Hrvatskoj. Katoličke influencere definiramo kao digitalne aktere koji grade osobne ili zajedničke brendove oko religijskog sadržaja i postižu angažman publike kroz komunikacijske strategije prilagođene platformama, a ne samo kroz institucionalnu moć.

2 Teorijski okvir

2.1 Oskudica pažnje u digitalnom okruženju

Herbert Simon artikulirao je temeljni uvid ekonomije pažnje kada je primijetio da obilje informacija stvara oskudicu pažnje. U digitalnom svijetu suočeni smo s paradoksom: što je više sadržaja dostupno, to je teže privući i zadržati nečiju pažnju. Michael Goldhaber proširio je ovaj okvir predlažući pažnju kao primarnu valutu digitalnih ekonomija, dok su Thomas Davenport i John Beck formalizirali upravljanje pažnjom kao organizacijski imperativ.

Ova teorija ima direktne implikacije za religijsku komunikaciju. Tradicionalno su vjerske institucije uživale privilegiran pristup pažnji vjernika kroz mise, propovijedi i zajedničke aktivnosti. U digitalnom prostoru ta privilegija nestaje jer Crkva mora natjecati za pažnju s beskonačnim količinama drugog sadržaja. Upravo tu dolazi do izražaja fenomen influencera koji, zahvaljujući osobnom pristupu i prilagodbi platformskim algoritmima, često uspijevaju privući više pažnje nego službeni institucionalni kanali.

2.2 Hipoteze

Na temelju teorijskog okvira postavljamo pet hipoteza koje testiramo empirijski:

H1 (Nejednakost pažnje među influencerima): Pažnja među katoličkim influencerima slijedi distribuciju potencijskog zakona s visokom koncentracijom. To znači da očekujemo kako će mala skupina najuspješnijih influencera privlačiti većinu ukupnog angažmana, dok će velika većina imati minimalan doseg. Operacionaliziramo ovo kroz Gini koeficijent veći od 0.70 i R² regresije potencijskog zakona veći od 0.85.

H2 (Institucionalni deficit pažnje): Katolički influenceri postižu više stope angažmana od institucionalnih aktera. Ova hipoteza proizlazi iz pretpostavke da osobni, autentični glas bolje rezonira s algoritmima društvenih mreža i korisnicima nego formalna institucionalna komunikacija.

H3 (Divergencija platformskih strategija): Influenceri se koncentriraju na društvene mreže dok institucije održavaju jaču web prisutnost. Očekujemo statistički značajnu povezanost između tipa aktera i izbora platforme (Cramerov V veći od 0.20).

H4 (Tematska diferencijacija niša): Influenceri i institucije specijaliziraju se za različite teme. Influenceri se fokusiraju na devocijski i inspirativni sadržaj, dok institucije komuniciraju vijesti i administrativne informacije. Testiramo ovo kroz Jensen-Shannon divergenciju veću od 0.15.

H5 (Model faktora uspjeha): Među influencerima, uspjeh u privlačenju pažnje predviđen je učestalošću objavljivanja i izborom platforme, a ne kleričkim statusom. Ova hipoteza testira djeluju li dinamike influencerstva neovisno o tradicionalnim markerima religijskog autoriteta.

3 Podaci i metode

3.1 DigiKat baza podataka

DigiKat baza podataka sveobuhvatna je zbirka hrvatskog katoličkog digitalnog sadržaja razvijana u sklopu trogodišnjeg istraživačkog projekta. Baza agregira javno dostupni digitalni sadržaj s izvora identificiranih kao dio hrvatskog katoličkog medijskog ekosustava, uključujući web portale, Facebook stranice i grupe, Instagram profile, YouTube kanale i Twitter račune.

Prikaži kod
dta <- readRDS("C:/Users/lsikic/Luka C/HKS/Projekti/Digitalni Kat/SHKM/DigiKat/data/merged_comprehensive.rds") %>%
  filter(SOURCE_TYPE != "tiktok", !is.na(SOURCE_TYPE)) %>%
  filter(DATE >= as.Date("2021-01-01") & DATE <= as.Date("2025-12-31")) %>%
  filter(year >= 2021 & year <= 2025)

setDT(dta)

n_posts <- nrow(dta)
n_sources <- uniqueN(dta$FROM)
date_min <- min(dta$DATE, na.rm = TRUE)
date_max <- max(dta$DATE, na.rm = TRUE)

cat("Baza učitana:", format(n_posts, big.mark = ","), "objava od", 
    format(n_sources, big.mark = ","), "izvora\n")
Baza učitana: 608,879 objava od 16,426 izvora
Prikaži kod
tibble(
  Metrika = c("Ukupno objava", "Jedinstvenih izvora", "Vremenski raspon", "Platforme"),
  Vrijednost = c(format(n_posts, big.mark = ","), format(n_sources, big.mark = ","),
            paste(date_min, "do", date_max), paste(unique(dta$SOURCE_TYPE), collapse = ", "))
) %>%
  kable(caption = "Tablica 1. Pregled korpusa") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 1. Pregled korpusa
Metrika Vrijednost
Ukupno objava 608,879
Jedinstvenih izvora 16,426
Vremenski raspon 2021-01-01 do 2025-12-31
Platforme web, facebook, twitter, comment, youtube, forum, reddit, instagram

3.2 Klasifikacija aktera

Svaki izvor u bazi klasificiramo u jednu od deset kategorija aktera. Klasifikacija se temelji na hijerarhijskom sustavu prioriteta koji kombinira ručne oznake za poznate izvore, isključivanje sekularnih medija, prepoznavanje uzoraka u imenima i URL adresama te kontekstualne informacije o platformi.

Kako funkcionira klasifikacija:

  1. Ručne oznake (najviši prioritet): Za poznate važne izvore poput “Hrvatska biskupska konferencija” ili “Laudato TV” unaprijed smo definirali kategoriju.

  2. Isključivanje sekularnih medija: Izvori poput “Večernji list” ili “Index.hr” isključuju se iz katoličkih kategorija iako ponekad pišu o religijskim temama.

  3. Prepoznavanje uzoraka u imenima: Algoritam traži karakteristične riječi, primjerice ako ime sadrži “biskupija” ili “nadbiskupija”, klasificira se kao Biskupijski; ako počinje s “fra” ili “don”, klasificira se kao Pojedinačni svećenici.

  4. Kontekst platforme: Za društvene mreže, ako ime sadrži devocijske pojmove poput “molitva”, “Isus” ili “Gospa”, a nema oznake institucije, klasificira se kao Laički influenceri.

Prikaži kod
manual_overrides <- list(
  "Institutional Official" = c(
    "hrvatska biskupska konferencija", "hbk", "tiskovni ured hbk", 
    "hrvatska katolička mreža", "hrvatska katolicka mreza", "hkm",
    "informativna katolička agencija", "informativna katolicka agencija", "ika",
    "hrvatski katolički radio", "hrvatski katolicki radio", "hkr",
    "radio marija", "radiomarija", "caritas", "hrvatski caritas"
  ),
  "Independent Media" = c(
    "laudato tv", "laudatotv", "laudato.tv", "laudato.hr", "laudato",
    "bitno.net", "bitno", "glas koncila", "glaskoncila", 
    "nova eva", "nova-eva", "verbum", "kršćanska sadašnjost", "krscanska sadasnjost",
    "katolički tjednik", "katolicki tjednik", "svjetlo riječi", "svjetlo rijeci",
    "mir i dobro", "novizivot.net", "novi zivot", "novi život",
    "totus tuus", "katolik.hr", "živo vrelo", "zivo vrelo"
  ),
  "Charismatic Communities" = c(
    "božja pobjeda", "bozja pobjeda", "bozjapobjeda",
    "muževni budite", "muzevni budite", "muzevnibudite",
    "cenacolo", "zajednica cenacolo", "srce isusovo", "srceisuovo", 
    "molitvena zajednica", "molitvena snaga", "dom molitve", "duhovna obnova", 
    "neokatekumenat", "fokolari", "fokolarini", "focolare", 
    "emmanuel", "cursillo", "karizmatska obnova", "međugorje", "medjugorje"
  ),
  "Lay Influencers" = c(
    "katolička obitelj", "katolicka obitelj", "marija majka isusova",
    "božanske molitve", "bozanske molitve", "moćne molitve", "mocne molitve",
    "katoličke molitve", "katolicke molitve", "hrana za dušu", "hrana za dusu", 
    "dijete vjere", "kapljice ljubavi božje", "kapljice ljubavi bozje", 
    "jutarnja molitva duhu svetom", "blago molitve", "biblija krunice molitve", 
    "molitve bogu", "duhovne poruke i inspiracija", "duhovni kutak", 
    "vojnik sreće", "vojnik srece", "pulherissimus", "pod smokvom", 
    "kršćanstvo", "krscanstvo", "vjera", "molitva dana", "riječ dana", "rijec dana", 
    "evanđelje dana", "evandelje dana", "svetac dana", "gospa", "krunica", "rozarij", 
    "sveti josip", "sveti ante", "sveta terezija", "sveti pio", "sveti franjo", 
    "katolička inspiracija", "duhovne misli", "put vjere", "život u kristu", 
    "katolička mama", "obitelj i vjera", "za život", "zazivot", 
    "mladi katolici", "isus te voli", "bog te voli", "dobro jutro s bogom"
  ),
  "Diocesan" = c(
    "zagrebačka nadbiskupija", "zagrebacka nadbiskupija",
    "splitsko-makarska nadbiskupija", "riječka nadbiskupija", "rijecka nadbiskupija",
    "đakovačko-osječka nadbiskupija", "djakovacko-osjecka nadbiskupija",
    "zadarska nadbiskupija", "sisačka biskupija", "sisacka biskupija",
    "varaždinska biskupija", "varazdinska biskupija", "bjelovarsko-križevačka biskupija", 
    "gospićko-senjska biskupija", "porečko-pulska biskupija", "krčka biskupija", 
    "dubrovačka biskupija", "dubrovacka biskupija", "šibenska biskupija", "sibenska biskupija",
    "hvarska biskupija", "požeška biskupija", "križevačka eparhija", "vojni ordinarijat"
  ),
  "Youth Organizations" = c(
    "susret hrvatske katoličke mladeži", "susret hrvatske katolicke mladezi",
    "shkm", "frama", "katolička akcija", "katolicka akcija", 
    "sveučilišna kapelanija", "studentska kapelanija", "pastoral mladih", 
    "ministranti", "katolički univerzitetski centar", "kuc", "salezijanska mladež"
  ),
  "Academic" = c(
    "hrvatsko katoličko sveučilište", "hrvatsko katolicko sveuciliste", "hks", "unicath", 
    "katolički bogoslovni fakultet", "katolicki bogoslovni fakultet", "kbf", 
    "teologija u rijeci", "teologija u splitu", "teologija u đakovu",
    "filozofski fakultet družbe isusove", "ffrz", "bogoslovija", "sjemenište"
  ),
  "Religious Orders" = c(
    "franjevci", "franjevački", "franjevacki", "mala braća", "kapucini", "kapucinski",
    "isusovci", "isusovački", "isusovacki", "družba isusova", "druzba isusova",
    "dominikanci", "dominikanski", "salezijanci", "salezijanski", "don bosco",
    "karmelićani", "karmelicani", "karmel", "benediktinci", "benediktinski",
    "pavlini", "pavlinski", "trapisti", "augustinci", "lazaristi", "vincencijanci",
    "sestre", "redovnice", "časne sestre", "casne sestre", "dominikanke", "franjevke", 
    "karmelićanke", "milosrdnice", "školske sestre", "uršulinke", "ursulinke",
    "klarise", "služavke malog isusa", "klanjateljice"
  )
)

secular_exclusions <- c(
  "slobodnadalmacija", "vecernji", "jutarnji", "24sata", "index.hr", "index",
  "net.hr", "tportal", "dnevnik.hr", "dnevnik", "novilist", "telegram.hr",
  "hrt.hr", "hrt", "rtl.hr", "rtl", "n1info", "nova tv", "novatv",
  "direktno.hr", "nacional", "dnevno.hr", "7dnevno", "story.hr", "gloria.hr", 
  "glas slavonije", "glas istre", "zadarski list", "dubrovački vjesnik",
  "hkv.hr", "hkv", "narod.hr", "maxportal", "novosti.hr",
  "forum.hr", "reddit", "anonymous_user", "wikipedia"
)

diocesan_patterns <- c("biskupij", "nadbiskupij", "eparhij", "ordinarijat")
order_patterns <- c("franjev", "isusov", "dominikan", "salezijan", "karmel", "benediktin", "kapucin")
female_order_patterns <- c("sestre", "redovnic", "klarise", "karmelićank", "dominikank", "franjevk", "uršulink", "milosrdnic")
charismatic_patterns <- c("molitven", "duhov", "obnov", "karizmat", "zajednic")
priest_prefixes <- c("fra ", "don ", "vlč.", "vlc.", "msgr.", "mons.", "o. ", "pater ")
lay_devotional <- c("vjera", "molitva", "molitve", "isus", "krist", "gospa", "marija",
                    "sveti", "svetac", "evanđelj", "evandelj", "duhovn", "biblij", "krunic", "rozarij")
lay_exclude <- c(".hr", ".net", ".com", "portal", "vijesti", "news", "radio", "tv",
                 "agencija", "biskupij", "nadbiskupij", "fakultet", "sveučilište")

classify_actor_v5 <- function(from_val, url_val = NA, platform_val = NA) {
  from_lower <- tolower(trimws(as.character(from_val)))
  url_lower <- tolower(ifelse(is.na(url_val), "", as.character(url_val)))
  platform_lower <- tolower(ifelse(is.na(platform_val), "", as.character(platform_val)))
  combined <- paste(from_lower, url_lower)
  
  match_any <- function(patterns, text) {
    any(sapply(patterns, function(p) grepl(p, text, fixed = TRUE)))
  }
  
  for (actor_type in names(manual_overrides)) {
    if (match_any(manual_overrides[[actor_type]], from_lower)) return(actor_type)
  }
  if (match_any(secular_exclusions, combined)) return("Other")
  
  is_parish <- grepl("^župa|^zupa|župi|zupi|župna|zupna", from_lower, ignore.case = TRUE)
  if (match_any(diocesan_patterns, from_lower) || is_parish) return("Diocesan")
  if (match_any(order_patterns, from_lower) || match_any(female_order_patterns, from_lower)) return("Religious Orders")
  if (match_any(charismatic_patterns, from_lower)) return("Charismatic Communities")
  if (match_any(priest_prefixes, from_lower)) return("Individual Priests")
  
  if (platform_lower %in% c("facebook", "instagram", "youtube", "twitter")) {
    if (match_any(lay_devotional, from_lower) && !match_any(lay_exclude, from_lower)) {
      return("Lay Influencers")
    }
  }
  return("Other")
}

dta[, ACTOR_TYPE := mapply(classify_actor_v5, FROM, URL, SOURCE_TYPE)]

3.2.1 Pregled klasifikacije po tipovima aktera

Tablica ispod prikazuje distribuciju objava po tipovima aktera. Kliknite na svaku kategoriju za pregled 10 najaktivnijih profila u toj kategoriji, što omogućuje provjeru ispravnosti klasifikacije.

Prikaži kod
actor_counts <- dta[, .N, by = ACTOR_TYPE][order(-N)]

actor_counts %>%
  mutate(
    N = format(N, big.mark = ","),
    Udio = sprintf("%.1f%%", as.numeric(gsub(",", "", N)) / n_posts * 100)
  ) %>%
  kable(col.names = c("Tip aktera", "Broj objava", "Udio"),
        caption = "Distribucija objava po tipovima aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Distribucija objava po tipovima aktera
Tip aktera Broj objava Udio
Other 462,781 76.0%
Institutional Official 63,025 10.4%
Lay Influencers 34,797 5.7%
Independent Media 30,880 5.1%
Diocesan 9,504 1.6%
Charismatic Communities 4,435 0.7%
Religious Orders 2,117 0.3%
Academic 743 0.1%
Youth Organizations 411 0.1%
Individual Priests 186 0.0%
Izvor Objave Ukupne interakcije
hkm.hr 52474 3077108
Radio Marija Hrvatska 2704 165224
klikaj.hr 1155 45491
velikagorica.com 784 3
likaclub.eu 637 25943
pozeska-kronika.hr 606 10540
lika-online.hr 492 18905
politikaplus.com 391 3100
geopolitika.news 377 83616
cronika.hr 328 24610
Izvor Objave Ukupne interakcije
laudato.hr 10727 703203
novizivot.net 6083 3351089
LaudatoTV 4059 170207
bitno.net 3445 763737
Bitno.net 3290 512818
Laudato 2164 926523
Nova Eva 666 94877
Verbum 261 18115
laudatotv 42 50276
Bitnonet 31 4219
Izvor Objave Ukupne interakcije
radio-medjugorje.com 1427 215556
radiomedjugorje 455 683
Maria Vision Medjugorje 438 12884
Duhovna Obnova 325 58960
Muževni budite 269 36576
Dom Molitve Slavonski Brod 257 27316
Emmanuel Crkva Zagreb 220 90
Duhovniportal.com 166 2264
HDZ - Hrvatska demokratska zajednica 135 72840
MOLITVENI LANAC 83 1215
Izvor Objave Ukupne interakcije
pulherissimus 6007 1608836
VJERA U NAMA † 4168 209221
Hrana za dušu 3447 461396
Svjedočanstva & Vjera 2278 86282
Dijete Vjere 1930 444501
Kapljice ljubavi Božje 1653 367176
Pod Smokvom 1517 588094
Prihvati Isusa Krista 1501 50021
vjeraidjela.com 1306 24703
Dijete Vjere (Child Of Faith) 1045 137638
Izvor Objave Ukupne interakcije
biskupija-varazdinska.hr 2189 32206
Zagrebačka nadbiskupija 2023 241657
zg-nadbiskupija.hr 897 84031
Sisačka biskupija 482 87832
biskupijakrk.hr 470 7611
Župa Šurkovac 440 70679
zupa-zabok.org 425 5358
Požeška biskupija 285 3759
zupa-svkriz.hr 265 146
zupa-sv-nikole-varazdin.hr 233 0
Izvor Objave Ukupne interakcije
Pastoral mladih 130 5517
kucice.hr 125 483
Susret hrvatske katoličke mladeži Požega 2026. 37 5082
Sam u kuci 27 31
Brvnare-drvene kuce iz bajki 18 60
Susret hrvatske katoličke mladeži Bjelovar 2022. 12 1500
Pastoral mladih Vž 7 151
kucazdravlja.hr 6 8
Frama Kočerin 6 1646
Nadbiskupijski centar za pastoral mladih "Ivan Pavao II." 6 42
Izvor Objave Ukupne interakcije
unicath.hr 485 4107
Hrvatsko katoličko sveučilište (Universitas Studiorum Catholica Croatica) 190 7392
Katolički bogoslovni fakultet u Splitu 23 23
hks-cbf.hr 18 204
Hrvatsko katoličko sveučilište 11 30
UNICATH HKS 5 34
Pučki pivači KBF-a 3 136
ffrz.hr 2 32
Katolički bogoslovni fakultet u Đakovu 2 1
KBF Zagreb Kanal 2 4
Izvor Objave Ukupne interakcije
sestre-sv-kriza.hr 571 2473
karmel.hr 457 4578
Oratorij Don Bosco Kman 394 5541
isusovci.hr 198 15814
klanjateljice.hr 113 10725
milosrdnice.hr 89 3
milosrdnice-zagreb.hr 83 65
Isusove Riječi 67 726
ocdkarmel 27 285
Pavlini 18 359
Izvor Objave Ukupne interakcije
Fra Zvjezdan Linić 84 544
Don Ivan Terze 27 2261
Fra Drago Ljevar 15 70
Humanitarna udruga "Fra Mladen Hrkać" 12 2271
Fra Augustin Čordaš 10 604
Pater Papula 7 461
PATER NOSTER 7 6
Hod kroz Bibliju &#124; vlč. Tomislav Šagud 5 48
ALO. RS 5 1956
Vlč. M. 4 45
Izvor Objave Ukupne interakcije
slobodnadalmacija.hr 10823 1458487
vecernji.hr 9242 1598685
index.hr 8095 3312573
jutarnji.hr 7703 1595040
novilist.hr 7501 440049
net.hr 6917 758857
crovijesti.com 6764 0
24sata.hr 6459 1695211
glasistre.hr 5529 161514
narod.hr 5434 614885

3.3 Grupiranje aktera

Za potrebe komparativne analize grupiramo deset kategorija aktera u dvije primarne skupine:

Influencer grupa uključuje Laičke influencere, Pojedinačne svećenike i Karizmatske zajednice. Ovi akteri dijele karakteristike osobnog ili zajedničkog brendiranja, komunikacijskih strategija prilagođenih platformama i izgradnje publike kroz angažman, a ne samo kroz institucionalnu moć.

Institucionalna grupa uključuje Službene institucije, Biskupijske aktere i Akademske institucije. Ovi akteri predstavljaju formalne crkvene komunikacijske kanale koji djeluju pod institucionalnim smjernicama i hijerarhijskim strukturama.

Ostale kategorije (Nezavisni mediji, Redovničke zajednice, Organizacije mladih, Ostalo) isključene su iz primarne komparativne analize jer imaju hibridne karakteristike koje otežavaju jasnu kategorizaciju.

Prikaži kod
dta[, Actor_Group := fifelse(
  ACTOR_TYPE %in% c("Lay Influencers", "Individual Priests", "Charismatic Communities"),
  "Influencer",
  fifelse(ACTOR_TYPE %in% c("Institutional Official", "Diocesan", "Academic"),
          "Institutional", NA_character_)
)]

group_summary <- dta[!is.na(Actor_Group), .(
  Izvori = uniqueN(FROM), Objave = .N,
  Ukupne_interakcije = sum(INTERACTIONS, na.rm = TRUE),
  Prosjecne_interakcije = mean(INTERACTIONS, na.rm = TRUE)
), by = Actor_Group]

group_summary %>%
  mutate(Izvori = format(Izvori, big.mark = ","), Objave = format(Objave, big.mark = ","),
         Ukupne_interakcije = format(Ukupne_interakcije, big.mark = ","),
         Prosjecne_interakcije = sprintf("%.1f", Prosjecne_interakcije)) %>%
  kable(col.names = c("Grupa aktera", "Izvori", "Objave", "Ukupne interakcije", "Prosj. int."),
        caption = "Tablica 2. Sažetak grupiranja aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 2. Sažetak grupiranja aktera
Grupa aktera Izvori Objave Ukupne interakcije Prosj. int.
Institutional 320 73,272 4,504,670 61.5
Influencer 352 39,418 6,361,605 162.7
Prikaži kod
actor_summary <- dta[, .(
  Izvori = uniqueN(FROM), Objave = .N,
  Ukupne_interakcije = sum(INTERACTIONS, na.rm = TRUE),
  Prosjecne_interakcije = mean(INTERACTIONS, na.rm = TRUE)
), by = ACTOR_TYPE][order(-Ukupne_interakcije)]

total_posts <- sum(actor_summary$Objave)
total_int <- sum(actor_summary$Ukupne_interakcije)
actor_summary[, `:=`(Udio_objava = Objave / total_posts * 100, Udio_angazmana = Ukupne_interakcije / total_int * 100)]

actor_summary %>%
  mutate(Izvori = format(Izvori, big.mark = ","), Objave = format(Objave, big.mark = ","),
         Ukupne_interakcije = format(Ukupne_interakcije, big.mark = ","),
         Prosjecne_interakcije = sprintf("%.1f", Prosjecne_interakcije),
         Udio_objava = sprintf("%.1f%%", Udio_objava),
         Udio_angazmana = sprintf("%.1f%%", Udio_angazmana)) %>%
  kable(col.names = c("Tip aktera", "Izvori", "Objave", "Interakcije", "Prosj. int.", "Udio objava", "Udio ang."),
        caption = "Tablica 3. Detaljna distribucija po tipovima aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 3. Detaljna distribucija po tipovima aktera
Tip aktera Izvori Objave Interakcije Prosj. int. Udio objava Udio ang.
Other 15,660 462,781 44,443,547 100.1 76.0% 71.7%
Independent Media 22 30,880 6,599,595 213.7 5.1% 10.6%
Lay Influencers 239 34,797 5,760,701 166.9 5.7% 9.3%
Institutional Official 211 63,025 3,884,375 61.7 10.4% 6.3%
Diocesan 97 9,504 608,330 64.1 1.6% 1.0%
Charismatic Communities 95 4,435 591,744 134.3 0.7% 1.0%
Religious Orders 50 2,117 45,568 21.7 0.3% 0.1%
Youth Organizations 29 411 15,359 37.5 0.1% 0.0%
Academic 12 743 11,965 16.1 0.1% 0.0%
Individual Priests 18 186 9,160 49.2 0.0% 0.0%

4 Rezultati

4.1 Analiza 1: Nejednakost pažnje među influencerima (H1)

Hipoteza 1 testira postoji li ekstremna koncentracija pažnje među katoličkim influencerima. U digitalnim ekosistemima često vrijedi pravilo “pobjednik uzima sve” gdje mali broj aktera privlači nesrazmjerno velik dio ukupne pažnje. Ova pojava naziva se distribucijom potencijskog zakona (power law) i karakteristična je za društvene mreže, citiranost znanstvenih radova, popularnost pjesama i mnoge druge fenomene.

Gini koeficijent mjeri nejednakost distribucije na skali od 0 do 1. Vrijednost 0 znači potpunu jednakost (svi imaju isto), a 1 znači potpunu nejednakost (jedan ima sve). Za usporedbu, Gini koeficijent dohotka u Hrvatskoj iznosi oko 0.29, a u SAD-u oko 0.39. Vrijednosti iznad 0.70 smatraju se ekstremnom nejednakošću.

Lorenzova krivulja vizualno prikazuje tu nejednakost. Na x-osi su izvori rangirani od najmanjeg do najvećeg, a na y-osi kumulativni udio angažmana. Dijagonala predstavlja savršenu jednakost. Što je krivulja udaljenija od dijagonale (veće osjenčano područje), veća je nejednakost.

R² potencijskog zakona mjeri koliko dobro podaci slijede teorijsku distribuciju potencijskog zakona. Vrijednost iznad 0.85 smatra se dobrim poklapanjem s modelom.

Prikaži kod
influencers <- dta[ACTOR_TYPE %in% c("Lay Influencers", "Individual Priests", "Charismatic Communities")]

influencer_sources <- influencers[, .(
  Objave = .N, Ukupne_interakcije = sum(INTERACTIONS, na.rm = TRUE),
  Tip_aktera = first(ACTOR_TYPE),
  Primarna_platforma = names(sort(table(SOURCE_TYPE), decreasing = TRUE))[1]
), by = FROM][order(-Ukupne_interakcije)]

influencer_sources[, Rang := .I]
total_influencer_int <- sum(influencer_sources$Ukupne_interakcije)
influencer_sources[, Kumulativne_interakcije := cumsum(Ukupne_interakcije) / total_influencer_int * 100]
influencer_sources[, Kumulativni_izvori := .I / .N * 100]

cat("Influenceri:", format(nrow(influencers), big.mark = ","), "objava od", uniqueN(influencers$FROM), "izvora\n")
Influenceri: 39,418 objava od 352 izvora
Prikaži kod
gini_influencers <- Gini(influencer_sources$Ukupne_interakcije)
n_inf_sources <- nrow(influencer_sources)
cr10_inf <- sum(influencer_sources[1:min(10, n_inf_sources), Ukupne_interakcije]) / total_influencer_int * 100
top10pct_n <- ceiling(n_inf_sources * 0.10)
cr_top10pct_inf <- sum(influencer_sources[1:top10pct_n, Ukupne_interakcije]) / total_influencer_int * 100

influencer_positive <- influencer_sources[Ukupne_interakcije > 0]
log_model_inf <- lm(log(Ukupne_interakcije) ~ log(Rang), data = influencer_positive)
slope_inf <- coef(log_model_inf)[2]
r_squared_inf <- summary(log_model_inf)$r.squared

tibble(
  Metrika = c("Gini koeficijent", "CR10 (udio top 10 izvora)", "Udio top 10% izvora", "R² potencijskog zakona"),
  Vrijednost = c(sprintf("%.3f", gini_influencers), sprintf("%.1f%%", cr10_inf),
            sprintf("%.1f%%", cr_top10pct_inf), sprintf("%.3f", r_squared_inf)),
  Prag = c("> 0.70", "> 40%", "", "> 0.85"),
  Rezultat = c(ifelse(gini_influencers > 0.70, "Podržano", "Nije podržano"),
             ifelse(cr10_inf > 40, "Podržano", ""), "",
             ifelse(r_squared_inf > 0.85, "Podržano", "Nije podržano"))
) %>%
  kable(caption = "Tablica 4. Metrike koncentracije pažnje među influencerima") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 4. Metrike koncentracije pažnje među influencerima
Metrika Vrijednost Prag Rezultat
Gini koeficijent 0.941 > 0.70 Podržano
CR10 (udio top 10 izvora) 72.1% > 40% Podržano
Udio top 10% izvora 93.1%
R² potencijskog zakona 0.886 > 0.85 Podržano

4.1.1 Lorenzova krivulja

Graf ispod prikazuje Lorenzovu krivulju za katoličke influencere. Što je osjenčano područje veće, to je nejednakost izraženija. Vidimo da mali postotak izvora privlači većinu ukupnog angažmana.

Prikaži kod
ggplot(influencer_sources, aes(x = Kumulativni_izvori, y = Kumulativne_interakcije)) +
  geom_line(color = "#e07b39", linewidth = 1.2) +
  geom_abline(slope = 1, linetype = "dashed", color = "gray50") +
  geom_ribbon(aes(ymin = Kumulativni_izvori, ymax = Kumulativne_interakcije), fill = "#e07b39", alpha = 0.3) +
  annotate("text", x = 70, y = 30, label = paste0("Gini = ", round(gini_influencers, 3)), size = 5, fontface = "bold") +
  scale_x_continuous(labels = function(x) paste0(x, "%")) +
  scale_y_continuous(labels = function(x) paste0(x, "%")) +
  labs(title = "Lorenzova krivulja nejednakosti pažnje", 
       subtitle = "Dijagonala = savršena jednakost; što je krivulja niže, veća je nejednakost",
       x = "Kumulativni % izvora (od najmanjeg do najvećeg)", 
       y = "Kumulativni % ukupnog angažmana")
Figure 1: Lorenzova krivulja nejednakosti angažmana među katoličkim influencerima. Osjenčano područje između krivulje i dijagonale predstavlja mjeru koncentracije pažnje.

4.1.2 Distribucija potencijskog zakona

Graf ispod prikazuje odnos ranga i angažmana na logaritamskoj skali. Ako podaci slijede potencijski zakon, točke će formirati približno ravnu liniju. Visoki R² potvrđuje da distribucija slijedi ovaj obrazac karakterističan za digitalne tržišne pažnje.

Prikaži kod
ggplot(influencer_positive, aes(x = Rang, y = Ukupne_interakcije)) +
  geom_point(alpha = 0.4, color = "#e07b39") +
  geom_smooth(method = "lm", color = "#1a3c5a", se = FALSE) +
  scale_x_log10(labels = comma) + scale_y_log10(labels = comma) +
  annotate("text", x = 3, y = min(influencer_positive$Ukupne_interakcije) * 30,
           label = paste0("R² = ", round(r_squared_inf, 3)), hjust = 0, fontface = "bold") +
  labs(title = "Test potencijskog zakona", 
       subtitle = "Linearnost na log-log skali potvrđuje distribuciju potencijskog zakona",
       x = "Rang (logaritamska skala)", y = "Interakcije (logaritamska skala)")
Figure 2: Distribucija ranga i angažmana na log-log skali. Linearan odnos potvrđuje potencijski zakon.

4.1.3 Najuspješniji influenceri

Tablica ispod prikazuje 15 najuspješnijih katoličkih influencera po ukupnom angažmanu. Stupac “Udio” pokazuje koliki postotak ukupnog angažmana influencerske kategorije pripada svakom izvoru.

Prikaži kod
influencer_sources[1:15] %>%
  mutate(Udio = sprintf("%.2f%%", Ukupne_interakcije / total_influencer_int * 100),
         Objave = format(Objave, big.mark = ","),
         Ukupne_interakcije = format(Ukupne_interakcije, big.mark = ",")) %>%
  select(Rang, FROM, Tip_aktera, Primarna_platforma, Objave, Ukupne_interakcije, Udio) %>%
  kable(col.names = c("Rang", "Izvor", "Tip", "Platforma", "Objave", "Interakcije", "Udio"),
        caption = "Tablica 5. Top 15 katoličkih influencera po ukupnom angažmanu") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 5. Top 15 katoličkih influencera po ukupnom angažmanu
Rang Izvor Tip Platforma Objave Interakcije Udio
1 pulherissimus Lay Influencers youtube 6,007 1,608,836 25.29%
2 Pod Smokvom Lay Influencers youtube 1,517 588,094 9.24%
3 Hrana za dušu Lay Influencers youtube 3,447 461,396 7.25%
4 Dijete Vjere Lay Influencers youtube 1,930 444,501 6.99%
5 VJERA Lay Influencers facebook 1,007 374,554 5.89%
6 Kapljice ljubavi Božje Lay Influencers facebook 1,653 367,176 5.77%
7 radio-medjugorje.com Charismatic Communities web 1,427 215,556 3.39%
8 VJERA U NAMA † Lay Influencers facebook 4,168 209,221 3.29%
9 Gospa Lay Influencers facebook 624 179,812 2.83%
10 Dijete Vjere (Child Of Faith) Lay Influencers youtube 1,045 137,638 2.16%
11 Kristijan Iličić Lay Influencers facebook 22 97,482 1.53%
12 Marijana Petir Lay Influencers facebook 136 93,684 1.47%
13 Svjedočanstva & Vjera Lay Influencers facebook 2,278 86,282 1.36%
14 BIBLIJA na dlanu - Dario Kovačević Lay Influencers youtube 64 85,177 1.34%
15 Vjera-Ufanje-Ljubav Lay Influencers facebook 613 74,965 1.18%

4.1.4 Interpretacija rezultata H1

Gini koeficijent od 0.941 premašuje prag od 0.70, što ukazuje na ekstremnu nejednakost u distribuciji pažnje među influencerima. R² od 0.886 premašuje prag od 0.85, potvrđujući da podaci dobro slijede distribuciju potencijskog zakona. Top 10 influencera privlači 72.1% ukupnog angažmana. Ovi rezultati podržavaju Hipotezu 1.

4.2 Analiza 2: Institucionalni deficit pažnje (H2)

Hipoteza 2 testira postižu li katolički influenceri više stope angažmana od institucionalnih aktera. “Stopa angažmana” ovdje znači prosječan broj interakcija (lajkova, komentara, dijeljenja) po objavi. Ova mjera pokazuje koliko je sadržaj “zarazan”, odnosno koliko uspješno privlači reakcije publike, neovisno o tome koliko često netko objavljuje.

Očekujemo da influenceri postižu više stope jer njihov komunikacijski stil (osoban, emocionalan, prilagođen algoritmima) bolje odgovara dinamici društvenih mreža nego formalna institucionalna komunikacija.

Za testiranje koristimo Wilcoxonov test jer podaci o angažmanu nisu normalno distribuirani (imaju mnogo niskih vrijednosti i nekoliko ekstremno visokih). Ovaj test uspoređuje medijane dviju grupa i daje p-vrijednost koja nam govori je li razlika statistički značajna.

Prikaži kod
source_engagement <- dta[!is.na(Actor_Group), .(
  Objave = .N, Ukupne_interakcije = sum(INTERACTIONS, na.rm = TRUE),
  Stopa_angazmana = mean(INTERACTIONS, na.rm = TRUE),
  Actor_Group = first(Actor_Group), ACTOR_TYPE = first(ACTOR_TYPE)
), by = FROM]

cat("Izvori u analizi:\n")
Izvori u analizi:
Prikaži kod
cat("Influenceri:", sum(source_engagement$Actor_Group == "Influencer"), "\n")
Influenceri: 352 
Prikaži kod
cat("Institucije:", sum(source_engagement$Actor_Group == "Institutional"), "\n")
Institucije: 320 
Prikaži kod
source_engagement[, .(N = .N, Prosjek = mean(Stopa_angazmana, na.rm = TRUE),
                      Medijan = median(Stopa_angazmana, na.rm = TRUE),
                      SD = sd(Stopa_angazmana, na.rm = TRUE)), by = ACTOR_TYPE][order(-Medijan)] %>%
  mutate(Prosjek = sprintf("%.1f", Prosjek), Medijan = sprintf("%.1f", Medijan), SD = sprintf("%.1f", SD)) %>%
  kable(col.names = c("Tip aktera", "N", "Prosjek", "Medijan", "St. dev."),
        caption = "Tablica 6. Prosječna stopa angažmana po tipu aktera (interakcije po objavi)") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 6. Prosječna stopa angažmana po tipu aktera (interakcije po objavi)
Tip aktera N Prosjek Medijan St. dev.
Lay Influencers 239 176.0 23.0 813.9
Individual Priests 18 94.6 15.1 171.8
Charismatic Communities 95 258.4 15.0 957.5
Institutional Official 211 48.2 12.0 167.8
Diocesan 97 37.4 11.0 72.4
Academic 12 12.3 6.8 15.6
Prikaži kod
wilcox_result <- wilcox.test(Stopa_angazmana ~ Actor_Group, data = source_engagement)
n1 <- sum(source_engagement$Actor_Group == "Influencer")
n2 <- sum(source_engagement$Actor_Group == "Institutional")
r_biserial <- 1 - (2 * wilcox_result$statistic) / (n1 * n2)

tibble(Test = "Wilcoxonov test", Statistika = paste("W =", format(wilcox_result$statistic, big.mark = ",")),
       p = format.pval(wilcox_result$p.value, digits = 3), Efekt = paste0("r = ", round(r_biserial, 3)),
       Rezultat = ifelse(wilcox_result$p.value < 0.05, "H2 podržana", "H2 nije podržana")) %>%
  kable(caption = "Tablica 7. Statistički test institucionalnog deficita pažnje") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 7. Statistički test institucionalnog deficita pažnje
Test Statistika p Efekt Rezultat
Wilcoxonov test W = 62,708.5 0.000115 r = -0.113 H2 podržana

4.2.1 Usporedba distribucija angažmana

Graf ispod prikazuje distribucije stopa angažmana za influencere (narančasto) i institucije (plavo). “Violinski” oblik pokazuje gdje se koncentrira većina vrijednosti, a bijeli pravokutnik unutar prikazuje medijan i interkvartilni raspon. Crveni dijamant označava aritmetičku sredinu.

Prikaži kod
eng_plot_data <- source_engagement[Stopa_angazmana < quantile(Stopa_angazmana, 0.95, na.rm = TRUE)]

ggplot(eng_plot_data, aes(x = Actor_Group, y = Stopa_angazmana, fill = Actor_Group)) +
  geom_violin(alpha = 0.7) + geom_boxplot(width = 0.2, fill = "white", outlier.shape = NA) +
  stat_summary(fun = mean, geom = "point", shape = 18, size = 4, color = "red") +
  scale_fill_manual(values = group_colors, labels = c("Influenceri", "Institucije")) +
  scale_x_discrete(labels = c("Influenceri", "Institucije")) +
  labs(title = "Usporedba stopa angažmana", 
       subtitle = paste0("Wilcoxonov test: p ", ifelse(wilcox_result$p.value < 0.001, "< 0.001", 
                         paste0("= ", round(wilcox_result$p.value, 3)))),
       x = NULL, y = "Prosječne interakcije po objavi") +
  theme(legend.position = "none")
Figure 3: Distribucije stopa angažmana po grupama aktera. Violinski grafovi prikazuju punu distribuciju, bijeli pravokutnici medijan i IQR, crveni dijamanti prosjeke.

4.2.2 Angažman po tipovima aktera

Graf ispod prikazuje medijane stopa angažmana za sve tipove aktera, s naznakom pripadnosti grupama (narančasto = influenceri, plavo = institucije, sivo = ostali). Vodoravne crte označavaju interkvartilni raspon (srednjih 50% vrijednosti).

Prikaži kod
source_engagement[, .(Medijan = median(Stopa_angazmana, na.rm = TRUE),
                      Q1 = quantile(Stopa_angazmana, 0.25, na.rm = TRUE),
                      Q3 = quantile(Stopa_angazmana, 0.75, na.rm = TRUE),
                      Actor_Group = first(Actor_Group)), by = ACTOR_TYPE][order(-Medijan)] %>%
  ggplot(aes(x = reorder(ACTOR_TYPE, Medijan), y = Medijan, fill = Actor_Group)) +
  geom_col(width = 0.7) + geom_errorbar(aes(ymin = Q1, ymax = Q3), width = 0.2) +
  coord_flip() + scale_fill_manual(values = group_colors, na.value = "gray70",
                                   labels = c("Influenceri", "Institucije", "Ostali")) +
  labs(title = "Medijan angažmana po tipu aktera", 
       subtitle = "Crte označavaju interkvartilni raspon (25. do 75. percentil)",
       x = NULL, y = "Medijan interakcija po objavi", fill = "Grupa")
Figure 4: Medijani stopa angažmana po tipovima aktera. Narančasto = influenceri, plavo = institucije, sivo = nekategorizirani.

4.2.3 Interpretacija rezultata H2

Wilcoxonov test pokazuje statistički značajnu razliku u stopama angažmana između influencera i institucija (W = 62,708.5, p < 0.001). Veličina efekta (r = -0.113) ukazuje na malu razliku. Ovi rezultati podržavaju Hipotezu 2 o institucionalnom deficitu pažnje.

4.3 Analiza 3: Divergencija platformskih strategija (H3)

Hipoteza 3 testira razlikuju li se influenceri i institucije u izboru platformi za komunikaciju. Očekujemo da influenceri dominiraju na društvenim mrežama (Facebook, Instagram, YouTube) koje nagrađuju osobni pristup i emocionalni sadržaj, dok institucije održavaju jaču prisutnost na webu gdje mogu kontrolirati format i poruku.

Za testiranje koristimo hi-kvadrat test koji ispituje postoji li statistički značajna povezanost između dvije kategorijske varijable (grupa aktera i platforma). Cramerov V mjeri snagu te povezanosti na skali od 0 do 1, pri čemu vrijednosti iznad 0.20 smatramo umjerenom povezanošću.

Prikaži kod
platform_dist <- dta[!is.na(Actor_Group), .(Objave = .N), by = .(Actor_Group, SOURCE_TYPE)]
platform_dist[, Udio := Objave / sum(Objave) * 100, by = Actor_Group]

dcast(platform_dist, SOURCE_TYPE ~ Actor_Group, value.var = "Udio", fill = 0) %>%
  mutate(Razlika = Influencer - Institutional,
         Influencer = sprintf("%.1f%%", Influencer),
         Institutional = sprintf("%.1f%%", Institutional),
         Razlika = sprintf("%+.1f pp", as.numeric(gsub("%", "", Razlika)))) %>%
  kable(col.names = c("Platforma", "Influenceri", "Institucije", "Razlika"),
        caption = "Tablica 8. Distribucija objava po platformama i grupama aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 8. Distribucija objava po platformama i grupama aktera
Platforma Influenceri Institucije Razlika
comment 0.0% 0.0% -0.0 pp
facebook 34.2% 9.0% +25.2 pp
instagram 0.0% 0.0% +0.0 pp
reddit 0.0% 0.0% -0.0 pp
twitter 0.3% 0.3% -0.0 pp
web 8.5% 87.6% -79.0 pp
youtube 57.0% 3.1% +53.9 pp
Prikaži kod
platform_table <- table(dta[!is.na(Actor_Group)]$SOURCE_TYPE, dta[!is.na(Actor_Group)]$Actor_Group)
chisq_result <- chisq.test(platform_table)
cramers_v <- sqrt(chisq_result$statistic / (sum(platform_table) * (min(dim(platform_table)) - 1)))

tibble(Test = "Hi-kvadrat test", Statistika = paste("χ² =", round(chisq_result$statistic, 0)),
       df = chisq_result$parameter, p = format.pval(chisq_result$p.value, digits = 3),
       `Cramerov V` = sprintf("%.3f", cramers_v),
       Rezultat = ifelse(cramers_v > 0.20, "H3 podržana", "H3 nije podržana")) %>%
  kable(caption = "Tablica 9. Test povezanosti platforme i grupe aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 9. Test povezanosti platforme i grupe aktera
Test Statistika df p Cramerov V Rezultat
Hi-kvadrat test χ² = 69762 6 <2e-16 0.787 H3 podržana

4.3.1 Vizualizacija platformskih strategija

Graf ispod uspoređuje distribuciju objava po platformama za influencere i institucije. Vidljive razlike ukazuju na različite komunikacijske strategije.

Prikaži kod
ggplot(platform_dist, aes(x = reorder(SOURCE_TYPE, -Udio), y = Udio, fill = Actor_Group)) +
  geom_col(position = "dodge", width = 0.7) + 
  scale_fill_manual(values = group_colors, labels = c("Influenceri", "Institucije")) +
  labs(title = "Distribucija objava po platformama", 
       subtitle = paste0("Cramerov V = ", round(cramers_v, 3), " (", 
                         ifelse(cramers_v > 0.20, "umjerena", "slaba"), " povezanost)"),
       x = NULL, y = "Udio objava (%)", fill = "Grupa") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
Figure 5: Distribucija objava po platformama za influencere (narančasto) i institucije (plavo).

4.3.2 Učinkovitost angažmana po platformama

Graf ispod prikazuje prosječan broj interakcija po objavi za svaku kombinaciju grupe i platforme. Tamnije boje označavaju veću učinkovitost. Ovo pomaže identificirati koje platforme najbolje “nagrađuju” svaku grupu aktera.

Prikaži kod
dta[!is.na(Actor_Group), .(Ucinkovitost = mean(INTERACTIONS, na.rm = TRUE)), by = .(Actor_Group, SOURCE_TYPE)] %>%
  ggplot(aes(x = SOURCE_TYPE, y = Actor_Group, fill = Ucinkovitost)) +
  geom_tile(color = "white") + geom_text(aes(label = sprintf("%.0f", Ucinkovitost)), size = 3) +
  scale_fill_viridis(option = "plasma", direction = -1) +
  scale_y_discrete(labels = c("Influenceri", "Institucije")) +
  labs(title = "Učinkovitost angažmana po platformama", 
       subtitle = "Prosječne interakcije po objavi",
       x = NULL, y = NULL, fill = "Prosj.\ninterakcije") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
Figure 6: Prosječne interakcije po objavi za svaku kombinaciju grupe i platforme. Tamnije boje = veći angažman.

4.3.3 Interpretacija rezultata H3

Hi-kvadrat test pokazuje statistički značajnu povezanost između platforme i grupe aktera (χ² = 6.9762^{4}, df = 6, p < 0.001). Cramerov V od 0.787 premašuje prag od 0.20, što ukazuje na umjerenu snagu povezanosti. Ovi rezultati podržavaju Hipotezu 3.

4.4 Analiza 4: Tematska diferencijacija (H4)

Hipoteza 4 testira specijaliziraju li se influenceri i institucije za različite teme. Očekujemo da influenceri dominiraju u devocijskom i inspirativnom sadržaju (molitve, svetci, duhovne poruke), dok institucije više komuniciraju vijesti, događanja i administrativne informacije.

Kako određujemo teme? Za svaku objavu provjeravamo sadrži li tekst ključne riječi karakteristične za pojedinu temu. Na primjer, ako tekst sadrži riječi poput “molitva”, “Isus”, “Gospa” ili “sveti”, kategoriziramo ga kao “Devocijski” sadržaj. Objava se svrstava u temu s najviše pogodaka ključnih riječi.

Jensen-Shannon divergencija mjeri koliko se dvije distribucije (u ovom slučaju tematski profili influencera i institucija) razlikuju. Vrijednost 0 znači identične distribucije, a vrijednosti iznad 0.15 smatramo značajnom razlikom.

Prikaži kod
thematic_keywords <- list(
  "Devocijski" = c("molitv", "isus", "gospa", "marij", "sveti", "blagoslov", "krunic"),
  "Liturgijski" = c("misa", "sakrament", "euharist", "ispovijed", "krštenje", "liturgij"),
  "Institucionalni" = c("biskupij", "nadbiskup", "papa", "vatikan", "sinod", "dokument"),
  "Socijalni" = c("obitelj", "mladi", "odgoj", "škola", "karita", "siromašn", "pravda"),
  "Politički" = c("izbor", "vlada", "zakon", "pobačaj", "lgbt", "gender"),
  "Zajednički" = c("župan", "zajednic", "susret", "hodočašć", "proslav", "blagdan")
)

detect_themes <- function(text) {
  if (is.na(text) || nchar(text) < 10) return(NA_character_)
  text_lower <- tolower(text)
  matches <- sapply(names(thematic_keywords), function(theme) {
    any(sapply(thematic_keywords[[theme]], function(kw) grepl(kw, text_lower)))
  })
  if (sum(matches) == 0) return("Ostalo")
  return(names(which.max(matches)))
}

set.seed(42)
theme_sample <- dta[sample(.N, min(50000, .N))]
theme_sample[, Tema := sapply(FULL_TEXT, detect_themes)]
theme_dist <- theme_sample[!is.na(Actor_Group) & !is.na(Tema), .(N = .N), by = .(Actor_Group, Tema)]
theme_dist[, Udio := N / sum(N), by = Actor_Group]
Prikaži kod
theme_wide <- dcast(theme_dist, Tema ~ Actor_Group, value.var = "Udio", fill = 0)
theme_wide[, Razlika := Influencer - Institutional]

theme_wide %>%
  mutate(Influencer = sprintf("%.1f%%", Influencer * 100),
         Institutional = sprintf("%.1f%%", Institutional * 100),
         Razlika = sprintf("%+.1f pp", Razlika * 100)) %>%
  kable(col.names = c("Tema", "Influenceri", "Institucije", "Razlika"),
        caption = "Tablica 10. Distribucija tema po grupama aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 10. Distribucija tema po grupama aktera
Tema Influenceri Institucije Razlika
Devocijski 92.4% 75.9% +16.5 pp
Institucionalni 1.5% 11.4% -9.9 pp
Liturgijski 1.9% 6.1% -4.2 pp
Ostalo 2.8% 2.6% +0.1 pp
Politički 0.5% 0.5% +0.0 pp
Socijalni 0.6% 1.6% -1.0 pp
Zajednički 0.3% 1.9% -1.6 pp
Prikaži kod
js_divergence <- function(p, q) {
  p <- p + 1e-10; q <- q + 1e-10; p <- p / sum(p); q <- q / sum(q)
  m <- 0.5 * (p + q); 0.5 * sum(p * log2(p/m)) + 0.5 * sum(q * log2(q/m))
}

all_themes <- unique(theme_dist$Tema)
inf_vec <- sapply(all_themes, function(t) { v <- theme_dist[Actor_Group == "Influencer" & Tema == t, Udio]; if (length(v) == 0) 0 else v })
inst_vec <- sapply(all_themes, function(t) { v <- theme_dist[Actor_Group == "Institutional" & Tema == t, Udio]; if (length(v) == 0) 0 else v })
js_div <- js_divergence(inf_vec, inst_vec)

tibble(Metrika = "Jensen-Shannon divergencija", Vrijednost = sprintf("%.3f", js_div),
       Prag = "> 0.15", Rezultat = ifelse(js_div > 0.15, "H4 podržana", "H4 nije podržana")) %>%
  kable(caption = "Tablica 11. Mjera tematske divergencije između grupa aktera") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 11. Mjera tematske divergencije između grupa aktera
Metrika Vrijednost Prag Rezultat
Jensen-Shannon divergencija 0.051 > 0.15 H4 nije podržana

4.4.1 Interpretacija Jensen-Shannon divergencije

Jensen-Shannon divergencija od 0.051 mjeri “udaljenost” između tematskih profila influencera i institucija. Vrijednost 0 bi značila da obje grupe komuniciraju iste teme u istim omjerima. Vrijednosti iznad 0.15 smatramo značajnom razlikom u tematskoj specijalizaciji. U našem slučaju, rezultat ne premašuje taj prag.

4.4.2 Vizualizacija tematske specijalizacije

Graf ispod prikazuje razlike u tematskom fokusu između grupa. Pozitivne vrijednosti (narančasto) pokazuju teme gdje dominiraju influenceri, a negativne (plavo) gdje dominiraju institucije.

Prikaži kod
theme_plot <- merge(theme_dist[Actor_Group == "Influencer", .(Tema, Influencer = Udio)],
                    theme_dist[Actor_Group == "Institutional", .(Tema, Institutional = Udio)],
                    by = "Tema", all = TRUE)
theme_plot[is.na(Influencer), Influencer := 0]
theme_plot[is.na(Institutional), Institutional := 0]
theme_plot[, Razlika := Influencer - Institutional]

ggplot(theme_plot, aes(x = reorder(Tema, Razlika), y = Razlika * 100, fill = Razlika > 0)) +
  geom_col(width = 0.7) + geom_hline(yintercept = 0) + coord_flip() +
  scale_fill_manual(values = c("TRUE" = "#e07b39", "FALSE" = "#1a3c5a"),
                    labels = c("Institucije", "Influenceri")) +
  labs(title = "Tematska specijalizacija po grupama", 
       subtitle = paste0("JS divergencija = ", round(js_div, 3)),
       x = NULL, y = "Razlika u udjelu (postotni bodovi)", fill = "Dominira") +
  theme(legend.position = "bottom")
Figure 7: Razlike u tematskoj specijalizaciji. Narančasto = influenceri dominiraju, plavo = institucije dominiraju.

4.4.3 Interpretacija rezultata H4

Jensen-Shannon divergencija od 0.051 ne premašuje prag od 0.15, što ukazuje na neznatnu razliku u tematskoj specijalizaciji. Ovi rezultati ne podržavaju Hipotezu 4.

4.5 Analiza 5: Faktori uspjeha influencera (H5)

Hipoteza 5 testira koji čimbenici predviđaju uspjeh influencera u privlačenju pažnje. Koristimo višestruku regresiju koja istovremeno analizira utjecaj više varijabli na ishod (ukupni angažman). Ova analiza nam govori koji faktori statistički značajno doprinose uspjehu, kontrolirajući pritom za utjecaj ostalih faktora.

Testirani prediktori uključuju:

  • log(Objave): Broj objava (logaritmiran zbog asimetrične distribucije)
  • Platforme: Broj različitih platformi na kojima izvor objavljuje
  • % Facebook/Instagram: Udio objava na tim platformama
  • Svećenik: Je li izvor svećenik (da/ne)
  • Karizmatska zajednica: Je li izvor karizmatska zajednica (da/ne)

(R-kvadrat) nam govori koliki postotak varijance u uspjehu možemo objasniti ovim faktorima. Vrijednost iznad 0.30 smatramo dobrim modelom.

Prikaži kod
influencer_model_data <- influencers[, .(
  Ukupne_interakcije = sum(INTERACTIONS, na.rm = TRUE),
  Objave = .N,
  Platforme = uniqueN(SOURCE_TYPE),
  Pct_Facebook = sum(SOURCE_TYPE == "facebook") / .N * 100,
  Pct_Instagram = sum(SOURCE_TYPE == "instagram") / .N * 100,
  Je_svecenik = as.integer(first(ACTOR_TYPE) == "Individual Priests"),
  Je_karizmatska = as.integer(first(ACTOR_TYPE) == "Charismatic Communities"),
  ACTOR_TYPE = first(ACTOR_TYPE)
), by = FROM]

model_data <- influencer_model_data[Objave >= 5 & Ukupne_interakcije > 0]

cat("Podaci za model:", nrow(model_data), "izvora\n")
Podaci za model: 166 izvora
Prikaži kod
cat("Svećenici:", sum(model_data$Je_svecenik), "\n")
Svećenici: 9 
Prikaži kod
cat("Karizmatske zajednice:", sum(model_data$Je_karizmatska), "\n")
Karizmatske zajednice: 42 
Prikaži kod
cat("Laički influenceri:", sum(model_data$Je_svecenik == 0 & model_data$Je_karizmatska == 0), "\n")
Laički influenceri: 115 
Prikaži kod
model_summary <- NULL

if (nrow(model_data) >= 10) {
  
  model_h5 <- lm(log(Ukupne_interakcije + 1) ~ log(Objave) + Platforme + 
                   Pct_Facebook + Pct_Instagram + Je_svecenik + Je_karizmatska,
                 data = model_data)
  
  model_summary <- summary(model_h5)
  
  coef_df <- data.frame(
    Prediktor = rownames(model_summary$coefficients),
    Koeficijent = model_summary$coefficients[, "Estimate"],
    SE = model_summary$coefficients[, "Std. Error"],
    t = model_summary$coefficients[, "t value"],
    p = model_summary$coefficients[, "Pr(>|t|)"]
  )
  rownames(coef_df) <- NULL
  
  coef_df$Znac <- ifelse(coef_df$p < 0.001, "***", 
                        ifelse(coef_df$p < 0.01, "**", 
                               ifelse(coef_df$p < 0.05, "*", "")))
  
  coef_df %>%
    mutate(Koeficijent = sprintf("%.3f", Koeficijent),
           SE = sprintf("%.3f", SE),
           t = sprintf("%.2f", t),
           p = ifelse(p < 0.001, "< 0.001", sprintf("%.3f", p))) %>%
    kable(col.names = c("Prediktor", "β", "SE", "t", "p", ""),
          caption = paste0("Tablica 12. Regresijski model za log(Ukupne interakcije). R² = ", round(model_summary$r.squared, 3))) %>%
    kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
  
} else {
  cat("Nedovoljno podataka za regresiju\n")
}
Tablica 12. Regresijski model za log(Ukupne interakcije). R² = 0.561
Prediktor β SE t p
(Intercept) 2.590 1.209 2.14 0.034 *
log(Objave) 1.201 0.091 13.21 < 0.001 ***
Platforme 0.498 1.161 0.43 0.668
Pct_Facebook 0.005 0.004 1.31 0.193
Je_svecenik -0.354 0.683 -0.52 0.605
Je_karizmatska -0.329 0.362 -0.91 0.365
Prikaži kod
if (!is.null(model_summary)) {
  tibble(Metrika = c("R²", "Prilagođeni R²", "F", "N"),
         Vrijednost = c(sprintf("%.3f", model_summary$r.squared),
                   sprintf("%.3f", model_summary$adj.r.squared),
                   sprintf("%.2f", model_summary$fstatistic[1]),
                   nrow(model_data)),
         Prag = c("> 0.30", "", "", ""),
         Rezultat = c(ifelse(model_summary$r.squared > 0.30, "H5 podržana", "H5 djelomično podržana"), "", "", "")) %>%
    kable(caption = "Tablica 13. Statistike prilagodbe modela") %>%
    kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
}
Tablica 13. Statistike prilagodbe modela
Metrika Vrijednost Prag Rezultat
0.561 > 0.30 H5 podržana
Prilagođeni R² 0.547
F 40.91
N 166

4.5.1 Vizualizacija regresijskih koeficijenata

Graf ispod prikazuje procijenjene koeficijente i njihove intervale pouzdanosti. Ako interval pouzdanosti ne prelazi nulu (vertikalna crtkana linija), prediktor je statistički značajan. Pozitivni koeficijenti znače da varijabla povećava uspjeh, negativni da ga smanjuje.

Prikaži kod
if (!is.null(model_summary)) {
  
  coef_plot_data <- data.frame(
    Varijabla = rownames(model_summary$coefficients)[-1],
    Koeficijent = model_summary$coefficients[-1, "Estimate"],
    SE = model_summary$coefficients[-1, "Std. Error"]
  )
  coef_plot_data$CI_low <- coef_plot_data$Koeficijent - 1.96 * coef_plot_data$SE
  coef_plot_data$CI_high <- coef_plot_data$Koeficijent + 1.96 * coef_plot_data$SE
  
  ggplot(coef_plot_data, aes(x = reorder(Varijabla, Koeficijent), y = Koeficijent)) +
    geom_hline(yintercept = 0, linetype = "dashed", color = "gray50") +
    geom_point(size = 3, color = "#e07b39") +
    geom_errorbar(aes(ymin = CI_low, ymax = CI_high), width = 0.2, color = "#e07b39") +
    coord_flip() +
    labs(title = "Faktori uspjeha influencera",
         subtitle = paste0("R² = ", round(model_summary$r.squared, 3), 
                          " (model objašnjava ", round(model_summary$r.squared * 100, 1), "% varijance)"),
         x = NULL, y = "Regresijski koeficijent (95% CI)")
  
} else {
  ggplot() + 
    annotate("text", x = 0.5, y = 0.5, label = "Nedovoljno podataka za model", size = 6) + 
    theme_void()
}
Figure 8: Regresijski koeficijenti s 95% intervalima pouzdanosti. Ako interval ne prelazi nulu, efekt je statistički značajan.

4.5.2 Interpretacija rezultata H5

Model objašnjava 56.1% varijance u uspjehu influencera (R² = 0.561). Ova vrijednost premašuje prag od 0.30, što ukazuje na dobar model. Statistički značajni prediktori su: log(Objave).

5 Rasprava

5.1 Sažetak nalaza

Prikaži kod
h5_val <- if (!is.null(model_summary)) sprintf("R² = %.3f", model_summary$r.squared) else "N/A"
h5_res <- if (!is.null(model_summary)) ifelse(model_summary$r.squared > 0.30, "Podržana", "Djelomično") else "N/A"

tibble(
  Hipoteza = c("H1: Nejednakost pažnje", "H2: Institucionalni deficit", 
               "H3: Divergencija platformi", "H4: Tematska diferencijacija", "H5: Faktori uspjeha"),
  Nalaz = c(paste0("Gini=", round(gini_influencers, 3), ", R²=", round(r_squared_inf, 3)),
            paste0("W=", format(wilcox_result$statistic, big.mark = ","), ", p", 
                   ifelse(wilcox_result$p.value < 0.001, "<0.001", paste0("=", round(wilcox_result$p.value, 3)))),
            paste0("V=", round(cramers_v, 3)), paste0("JS=", round(js_div, 3)), h5_val),
  Rezultat = c(ifelse(gini_influencers > 0.70 & r_squared_inf > 0.85, "Podržana", "Djelomično"),
               ifelse(wilcox_result$p.value < 0.05, "Podržana", "Nije podržana"),
               ifelse(cramers_v > 0.20, "Podržana", "Nije podržana"),
               ifelse(js_div > 0.15, "Podržana", "Nije podržana"), h5_res)
) %>%
  kable(caption = "Tablica 14. Sažetak testiranja hipoteza") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Tablica 14. Sažetak testiranja hipoteza
Hipoteza Nalaz Rezultat
H1: Nejednakost pažnje Gini=0.941, R²=0.886 Podržana
H2: Institucionalni deficit W=62,708.5, p<0.001 Podržana
H3: Divergencija platformi V=0.787 Podržana
H4: Tematska diferencijacija JS=0.051 Nije podržana
H5: Faktori uspjeha R² = 0.561 Podržana

5.2 Implikacije nalaza

Ova studija pruža prvu sustavnu analizu katoličkih influencera u hrvatskom digitalnom prostoru. Nalazi potvrđuju da principi ekonomije pažnje razvijeni u komercijalnim kontekstima vrijede i za religijsku komunikaciju.

Za crkvenu komunikacijsku strategiju, rezultati dokumentiraju institucionalni deficit pažnje koji strateška prilagodba može adresirati. Institucije možda trebaju razviti osobnije glasove, iskoristiti pojedinačne svećenike kao komunikacijske resurse ili prihvatiti podjelu rada gdje influenceri pokrivaju devocijski angažman dok se institucije fokusiraju na autoritativne komunikacijske funkcije.

Za akademsko razumijevanje, studija proširuje literaturu o ekonomiji pažnje na religijske kontekste te pruža empirijski temelj za daljnja istraživanja dinamike religijskih influencera u digitalnom prostoru.

5.3 Ograničenja

Studija ima nekoliko ograničenja koja treba uzeti u obzir. Fokusiramo se na javno dostupni sadržaj, isključujući privatnu komunikaciju. Klasifikacija aktera temelji se na automatiziranom prepoznavanju uzoraka koje može pogrešno kategorizirati nejasne izvore. Metrike angažmana bilježe vidljive interakcije, ali ne i pasivnu konzumaciju ili duhovni utjecaj sadržaja.

6 Zaključak

Ova studija pruža prvu sustavnu analizu katoličkih influencera u hrvatskom digitalnom prostoru. Nalazi pokazuju da katolički influenceri postižu značajno različite obrasce angažmana od institucionalnih crkvenih aktera, da se platformske strategije znatno razlikuju među kategorijama te da pažnja slijedi distribuciju potencijskog zakona s ekstremnom koncentracijom. Ovi rezultati proširuju akademsku literaturu o ekonomiji pažnje na religijske kontekste te nude praktične uvide za strategiju crkvene komunikacije.

Literatura

Abidin, C. (2018). Internet Celebrity. Emerald Publishing.

Davenport, T. H., & Beck, J. C. (2001). The Attention Economy. Harvard Business School Press.

Goldhaber, M. H. (1997). The attention economy and the net. First Monday, 2(4).

Simon, H. A. (1971). Designing organizations for an information rich world. Johns Hopkins Press.

van Dijck, J., Poell, T., & de Waal, M. (2018). The Platform Society. Oxford University Press.

Prikaži kod
sessionInfo()
R version 4.5.2 (2025-10-31 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows 11 x64 (build 22631)

Matrix products: default
  LAPACK version 3.12.1

locale:
[1] LC_COLLATE=Croatian_Croatia.utf8  LC_CTYPE=Croatian_Croatia.utf8   
[3] LC_MONETARY=Croatian_Croatia.utf8 LC_NUMERIC=C                     
[5] LC_TIME=Croatian_Croatia.utf8    

time zone: Europe/Zagreb
tzcode source: internal

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] viridis_0.6.5     viridisLite_0.4.2 ineq_0.2-13       kableExtra_1.4.0 
 [5] knitr_1.50        scales_1.4.0      data.table_1.17.8 lubridate_1.9.4  
 [9] forcats_1.0.1     stringr_1.6.0     dplyr_1.1.4       purrr_1.2.0      
[13] readr_2.1.6       tidyr_1.3.1       tibble_3.3.0      ggplot2_4.0.1    
[17] tidyverse_2.0.0  

loaded via a namespace (and not attached):
 [1] generics_0.1.4     xml2_1.5.1         lattice_0.22-7     stringi_1.8.7     
 [5] hms_1.1.4          digest_0.6.39      magrittr_2.0.4     evaluate_1.0.5    
 [9] grid_4.5.2         timechange_0.3.0   RColorBrewer_1.1-3 fastmap_1.2.0     
[13] Matrix_1.7-4       jsonlite_2.0.0     gridExtra_2.3      mgcv_1.9-3        
[17] textshaping_1.0.4  cli_3.6.5          rlang_1.1.6        splines_4.5.2     
[21] withr_3.0.2        yaml_2.3.11        tools_4.5.2        tzdb_0.5.0        
[25] vctrs_0.6.5        R6_2.6.1           lifecycle_1.0.4    htmlwidgets_1.6.4 
[29] pkgconfig_2.0.3    pillar_1.11.1      gtable_0.3.6       glue_1.8.0        
[33] systemfonts_1.3.1  xfun_0.54          tidyselect_1.2.1   rstudioapi_0.17.1 
[37] dichromat_2.0-0.1  farver_2.1.2       nlme_3.1-168       htmltools_0.5.8.1 
[41] labeling_0.4.3     rmarkdown_2.30     svglite_2.2.2      compiler_4.5.2    
[45] S7_0.2.1