#
# Resitve nalog iz vizualizacije
#

md <- read.table("movies.txt", sep=",", header=TRUE)
for (i in 18:24)
	md[,i] <- as.factor(md[,i])
	
#
# - Ali je v nasi podatkovni bazi vec filmov, ki so krajsi od 100 minut, ali je vec tistih, ki so dolgi 100 oz. vec minut?
#

tab <- table(md$length < 100)
names(tab) <- c("dolgi 100 min ali vec", "krajsi od 100 min")
tab

barplot(tab, ylab="Stevilo filmov", main="Razmerje med stevilom filmov glede na dolzino")
pie(tab, main="Delez filmov glede na dolzino")


# 
# Narisite histogram ocen za komedije.
#

hist(md$rating[md$Comedy == "1"], xlab="Ocena filma", ylab="Stevilo filmov", main="Histogram ocen za komedije")



#
# Ali so v povprecju dokumentarci krajsi kot komedije?
#

dokumentarci <- md$length[md$Documentary == "1"]
komedije <- md$length[md$Comedy == "1"]

mean(dokumentarci)
mean(komedije)

boxplot(dokumentarci, komedije, names=c("Dokumentarci", "Komedije"), ylab="Dolzina", main="Dolzina dokumentarcev in komedij")

abline(h=mean(dokumentarci), col="red")
abline(h=mean(komedije), col="blue")


#
# Prikazite stevilo animirank v nasi bazi od leta 1995 naprej. 
#

sel <- md$year >= 1995

t <- table(md$Animation[sel], md$year[sel])
t
x <- colnames(t)
y <- t[2,]
plot(x,y, type="l", xlab="Leto", ylab="Stevilo filmov", main="Stevilo animirank po letih")

# nalogo lahko resimo tudi z ukazom "aggregate"
agg <- aggregate((Animation == "1") ~ year, md[md$year >= 1995,], sum)
agg
plot(agg[,1], agg[,2], type="l", xlab="Leto", ylab="Stevilo filmov", main="Stevilo animirank po letih")


#
# Prikazite povprecno dolzino akcijskih komedij po letih od 1950 do 2005
#

agg <- aggregate(length ~ year, md[md$Comedy == "1" & md$Action == "1" & md$year >= 1950 & md$year <= 2005,], mean)
agg

plot(agg[,1], agg[,2], type="l", xlab="Leto", ylab="Dolzina", main="Povprecna dolzina akcijskih komedij po letih")


############################################################################################


players <- read.table("players.txt", sep=",", header = T)

#
# Izrisite razmerje stevila igralcev glede na igralne polozaje.
#

pie(table(players$position), main="Razmerje stevila igralcev po igralnih polozajih")


#
# Primerjajte stevilo dobljenih skokov ("reb") med igralci na razlicnih igralnih polozajih.
#

boxplot(reb ~ position, players, xlab="Igralni polozaj", ylab="Stevilo dobljenih skokov")
abline(h=mean(players$reb[players$position=="C"]), col="red")
abline(h=mean(players$reb[players$position=="F"]), col="blue")
abline(h=mean(players$reb[players$position=="G"]), col="green")


#
# Narisite histogram uspesnosti izvajanja prostih metov.
#

hist(players$ftm/players$fta, xlab="Delez zadetih prostih metov", ylab="Stevilo igralcev", main="Histogram uspesnosti izvajanja prostih metov")


#
# Primerjajte stevilo uspesnih metov za tri tocke glede na igralne polozaje.
# (v primerjavo vkljucite samo igralce aktivne v obdobju 1990-2007)
#

threepts <- players$pts - (players$fgm * 2 + players$ftm)
sel <- players$firstseason >= 1990 & players$lastseason <= 2007
boxplot(threepts[sel] ~ players$position[sel], xlab="Igralni polozaj", ylab="Stevilo zadetih tock z linije za 3", main="Analiza metov za 3 tocke")


#
# Kako se iz leta v leto spreminja povprecna dolzina igralne kariere upokojenih igralcev?
# (ignorirajte igralce, ki imajo vrednost atributa "lastseason" nastavljeno na 2008).
#

avg.len <- aggregate((lastseason-firstseason) ~ lastseason, players[players$lastseason != 2008,], mean)
avg.len
plot(avg.len[,1], avg.len[,2], type="l", xlab="Leto", ylab="Dolzina igralne kariere v letih", main="Povprecna dolzina igralne kariere igralcev v NBA")