eDesk

Učitavanje paketa

library(DT)
library(tidyverse)
library(readxl)
library(vtable)
library(corrplot)
library(xtable)

Učitavanje podataka

podaci <- read_excel('podaci.xlsx', sheet=1)
imena <- names(podaci)
podaci2 <- podaci %>% rename_with(.fn = ~paste0("Q", substring(.,1,regexpr("\\.", .) - 1)), .cols = 9:length(imena))
data2 <- podaci2 %>% select(Q1:Q67)

Ukupni kratki pregled

#st(podaci, add.median=TRUE)

Kratki pregled po državama

#st(podaci, group = 'Country', add.median=TRUE, group.long = TRUE)

Korelacije među pitanjima

res <- round(cor(data2, use = "pairwise.complete.obs"), 2)
datatable(
  res, extensions = c('FixedColumns','FixedHeader'),
  options = list(
    #dom = 't',
    pageLength = 15,
    scrollX = TRUE,
    fixedColumns = TRUE,
    fixedHeader = TRUE
  )
)

#kbl(res) %>%
#  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"), font_size=10) %>%
#  scroll_box(width = "100%", height = "700px")
#knitr::kable(res, format = "pipe")
#print(xtable(res), type="html")

corrplot(res, type = "upper", tl.col = "black", tl.srt = 90)