Ερευνητική Εργασία Εξαμήνου

ΠΑΝΕΠΙΣΤΗΜΙΟ ΜΑΚΕΔΟΝΙΑΣ ΤΜΗΜΑ ΒΑΛΚΑΝΙΚΩΝ, ΣΛΑΒΙΚΩΝ ΚΑΙ ΑΝΑΤΟΛΙΚΩΝ ΣΠΟΥΔΩΝ Ψηφιακές Μέθοδοι Κοινωνικής Έρευνας Χειμερινό Εξάμηνο 2025 - 2026 Ερευνητική Εργασία Εξαμήνου

Εισαγωγή και ερευνητικά ερωτήματα

Για τις ανάγκες της εργασίας χρισημποιήσαμε την knitr αφού φορτώσαμε την βιλιοθήκη tinytex. Επιπρόσθετα ζητήσαμε echo off ώστε να μην εκτυπώνεται και ο κώδικας μαζί με το output.

{r} #tinytex::install_tinytex() library(tinytex)}

Δεδομένα και μέθοδοι

1.1. Συλλογή δεδομένων

Η θεματική ενότητα που επιλέχθηκε ήταν η ανάλυση βίντεο της Basketball Euro league. Αρχικά συλλέχθηκαν σχετικά βίντεο https://ytdt.digitalmethods.net/ με λέξη κλειδιί Euroleague σε σύνολο 10 επαναλήψεων (iterations) χωρίς άλλους περιορισμούς. Το εξαγώμενο αρχείο ζητήθηκε σε μορφή csv και ονομάστηκε αυτόματα videolist_search243_2026_02_02-15_18_29.csv. Το αρχείο αυτό περιείχε 243 εγγραφές και ανατέθηκε στο data frame df. Ο κώδικας που χρησιμοποιήθηκε παρουσιάζεται στην συνέχεια

{r} df <- read.csv(file.choose()) df<-df[which(df$channelTitle== "EUROLEAGUE BASKETBALL"),]

library(dplyr)

df = select(df, videoTitle, videoCategoryLabel, durationSec, viewCount, likeCount, commentCount)

df<-mutate(df, viewCounts = viewCount / 1000) df<-mutate(df, durationMin = durationSec / 60)}