Uvjeti

  • Podaci su dobiveni na nominalnoj ili ordinalnoj mjernoj ljestvici s dva ili više modaliteta.

  • Podaci su dobiveni na slučajno odabranim i relativno velikim uzorcima entiteta (n>30).

library(rstatpackage)
library(plotly)
library(knitr)

Podaci

data <- read.table(file.choose(),                  
                   header = TRUE,                      
                   dec = ",",                          
                   sep = ";",                          
                   stringsAsFactors = TRUE,
                   row.names = 1)
kable(data)
SPOL KM_ISHOD KM_OCJENA
Musko Polozio 2-Dovoljan
Musko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Zensko Polozio 5-Odlican
Musko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Zensko Polozio 2-Dovoljan
Musko Polozio 2-Dovoljan
Musko Nije polozio 1-Nedovoljan
Musko Polozio 5-Odlican
Musko Polozio 3-Dobar
Zensko Nije polozio 1-Nedovoljan
Musko Polozio 2-Dovoljan
Zensko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Zensko Polozio 4-Vrlo dobar
Zensko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Zensko Polozio 3-Dobar
Musko Polozio 2-Dovoljan
Musko Nije polozio 1-Nedovoljan
Musko Polozio 2-Dovoljan
Musko Polozio 4-Vrlo dobar
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Musko Polozio 3-Dobar
Musko Nije polozio 1-Nedovoljan
Zensko Nije polozio 1-Nedovoljan
Musko Polozio 2-Dovoljan
Zensko Polozio 2-Dovoljan
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan
Musko Nije polozio 1-Nedovoljan

Varijable

x <- data$KM_OCJENA

Tablica frekvencija

tf <- tab_frequency(x)
kable(tf)
GROUP Observed Frequency Observed Percent Expected Frequency Expected Percent
1-Nedovoljan 25 62.5 8 20
2-Dovoljan 8 20.0 8 20
3-Dobar 3 7.5 8 20
4-Vrlo dobar 2 5.0 8 20
5-Odlican 2 5.0 8 20 
chi_results <- chi_square_goodness_fit(x)
chi_results
## [1] "Chi-square =  48.25 ; df =  4 ; p = 0"

Grafikon sutpaca

barx <- barx(x)
# Plotly transperentna tema
  ggplotly(barx) |>
    layout(legend=list(
      font=list(size = 14, color = "#9D9D9D"),
      title=list(font=list(size = 14, color = "#9D9D9D")) 
      ), 
      plot_bgcolor = "rgba(0,0,0,0)",
      paper_bgcolor = "rgba(0,0,0,0)",
      xaxis = list( 
        title = list(font=list(size=16, color="#9D9D9D")),
        gridcolor = "rgba(0,0,0,0)",
        tickfont = list(size=14, color="#9D9D9D")
      ),
      yaxis = list(
        title = list(font=list(size=16, color="#9D9D9D")),
        gridcolor = "rgba(0,0,0,0)",
        tickfont = list(size=14, color="#9D9D9D")
      )
    )

Strukturni krug

pie <- pie(x)
# Plotly transperentna tema
  ggplotly(pie) |>
    layout(legend=list(
      font=list(size = 14, color = "#9D9D9D"),
      title=list(font=list(size = 14, color = "#9D9D9D")) 
      ), 
      plot_bgcolor = "rgba(0,0,0,0)",
      paper_bgcolor = "rgba(0,0,0,0)"
    )