Siri

Front matter

library(knitr)
library(haven)
library(ggplot2)
library(dplyr)
library(tidyr)
library(jtools)
library(summarytools)
library(kableExtra)
library(tm)
library(wordcloud)
library(skimr)
library(purrr)
library(labelled)
library(stargazer)
library(broom)
library(writexl)
library(modelsummary)
library(openxlsx)
library(readxl)

df <- read_excel("sikt.xlsx")

df <- df %>%
  mutate(across(where(is.character), as.factor))

names(df)[names(df) == "I hvilken grad mener du at den digitale utviklingen medfører betydelige endringer i vår sektor?"] <- "digital_endring"

names(df)[names(df) == "I hvilken grad mener du at vår organisasjon er proaktiv i møte med den digitale utviklingen?"] <- "digital_proaktiv"

df$digital_endring <- factor(df$digital_endring, levels = c("I svært stor grad", "I stor grad"))
df$proaktiv <- factor(df$digital_proaktiv, levels = c("I svært stor grad", "I stor grad", "I noen grad", "I liten grad", "I svært liten grad"))

# Oppfatning av digital utvikling i sektoren
ggplot(df, aes(x = digital_endring)) +
  geom_bar(fill = "#2C77B2") +
  labs(
    x = "",
    y = "Antall respondenter",
    title = "Oppfatning av digital utvikling i sektoren"
  ) +
  theme_minimal()

batteri <- df %>% select("Konkurransen i markedet/ press fra omgivelsene":"Automatisering")

batteri_long <- batteri %>%
  pivot_longer(
    cols = everything(),   # velg alle spørsmålskolonnene
    names_to = "spørsmål",
    values_to = "svar"
  )

batteri_long <- batteri_long %>%
  mutate(svar = factor(svar, levels = rev(sort(unique(svar)))))

batteri_long$svar <- factor(batteri_long$svar, levels = c("I svært stor grad", "I stor grad", "I noen grad", "I liten grad", "I svært liten grad"))

batteri_response_labels <- c(
  "1" = "I svært stor grad",
  "2" = "I stor grad",
  "3" = "I noen grad",
  "4" = "I liten grad",
  "5" = "I svært liten grad"
)

ggplot(batteri_long, aes(x = spørsmål, fill = svar)) +
  geom_bar(position = "stack") +
  #scale_y_continuous(labels = scales::percent) +
  labs(
    title = "",
    x = "",
    y = "Antall repondenter",
    fill = "Svar"
  ) +
  theme_minimal() +
  coord_flip() +
  theme(axis.text.y = element_text(angle = 0, hjust = 1))

# OProaktiv
ggplot(df, aes(x = digital_proaktiv)) +
  geom_bar(fill = "#2C77B2") +
  labs(
    x = "",
    y = "Antall respondenter",
    title = "Proaktiv i møte med den digitale utviklingen"
  ) +
  theme_minimal()

batteri2 <- df %>% select("Mangel på kunnskap om moderne digital teknologi":"Mangel på samarbeid på tvers av enheter")

batteri_long2 <- batteri2 %>%
  pivot_longer(
    cols = everything(),   # velg alle spørsmålskolonnene
    names_to = "spørsmål",
    values_to = "svar"
  )

batteri_long2 <- batteri_long2 %>%
  mutate(svar = factor(svar, levels = rev(sort(unique(svar)))))

batteri_long2$svar <- factor(batteri_long2$svar, levels = c("I svært stor grad", "I stor grad", "I noen grad", "I liten grad", "Ikke i det hele tatt"))

batteri_response_labels2 <- c(
  "1" = "I svært stor grad",
  "2" = "I stor grad",
  "3" = "I noen grad",
  "4" = "I liten grad",
  "5" = "Ikke i det hele tatt"
)

ggplot(batteri_long2, aes(x = spørsmål, fill = svar)) +
  geom_bar(position = "stack") +
  #scale_y_continuous(labels = scales::percent) +
  labs(
    title = "",
    x = "",
    y = "Antall respondenter",
    fill = "Svar"
  ) +
  theme_minimal() +
  coord_flip() +
  theme(axis.text.y = element_text(angle = 0, hjust = 1))