.Rhistory

knitr::opts_chunk$set(echo = TRUE)
tildelt_fylke_gg <- tilsagn %>%
ggplot(aes(x='Innvilget.beløp',y=Fylkesnavn)) +
geom_bar(stat="identity")
knitr::opts_chunk$set(echo = TRUE)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js",
data = eos, value = "Innvilget.beløp",
joinBy = c("name", "Fylkesnavn"), name = "Tildelt", # @todo: lage variabel i tilsagn som tilsvarer hc-a2
dataLabels = list(enabled = TRUE, format = "{point.name}"),
borderColor = "#FAFAFA", borderwidth = 0.1,
tooltip = list(valueDecimals = 0))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js") %>%
hc_title(text = "Norge")
tildelt_fylke_gg <- tilsagn %>%
ggplot(aes(y='Innvilget.beløp',x=Fylkesnavn)) +
geom_bar(stat="identity")
ggplotly(tildelt_fylke_gg)
tildelt_fylke_gg <- tilsagn %>%
ggplot(aes(y='Innvilget.beløp',x=Fylkesnavn)) +
geom_col(stat="identity")
ggplotly(tildelt_fylke_gg)
?geom_bar
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
knitr::opts_chunk$set(echo = TRUE)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
knitr::opts_chunk$set(echo = TRUE)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
knitr::opts_chunk$set(echo = TRUE)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
library(magrittr)
knitr::opts_chunk$set(echo = TRUE)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js",
data = eos, value = "Innvilget.beløp",
joinBy = c("name", "Fylkesnavn"), name = "Tildelt", # @todo: lage variabel i tilsagn som tilsvarer hc-a2
dataLabels = list(enabled = TRUE, format = "{point.name}"),
borderColor = "#FAFAFA", borderwidth = 0.1,
tooltip = list(valueDecimals = 0))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js") %>%
hc_title(text = "Norge")
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = 'Tildelt.beløp', fill = Kommunenavn)) +
geom_bar(position = 'stack') +
theme_bw()
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = 'Tildelt.beløp', fill = Kommunenavn)) +
geom_bar(position = 'stack') +
theme_bw()
ggplotly(tildelt_fylker_gg)
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = 'Tildelt.beløp')) +
geom_bar(stat = 'identity') +
theme_bw()
ggplotly(tildelt_fylker_gg)
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = 'Tildelt.beløp', Fylkesnavn)) +
geom_bar(stat = 'identity') +
theme_bw()
ggplotly(tildelt_fylker_gg)
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = Fylkesnavn, 'Tildelt.beløp')) +
geom_bar(stat = 'identity') +
theme_bw()
ggplotly(tildelt_fylker_gg)
knitr::opts_chunk$set(echo = TRUE)
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn)
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn,
caption = "Totalt antall tilsagn",
icon = "fa-car")
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly", "leaflet")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
library(leaflet)
install.packages(new.packages)
install.packages(new.packages)
install.packages(new.packages)
library(tidyverse)
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly", "leaflet")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
library(leaflet)
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn,
caption = "Totalt antall tilsagn",
icon = "fa-bike")
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly", "leaflet", "scales")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
library(leaflet)
library(scales)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn,
caption = "Totalt antall tilsagn",
icon = "fa-bike")
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js",
data = eos, value = "Innvilget.beløp",
joinBy = c("name", "Fylkesnavn"), name = "Tildelt", # @todo: lage variabel i tilsagn som tilsvarer hc-a2
dataLabels = list(enabled = TRUE, format = "{point.name}"),
borderColor = "#FAFAFA", borderwidth = 0.1,
tooltip = list(valueDecimals = 0))
hcmap("https://code.highcharts.com/mapdata/countries/no/no-all.js") %>%
hc_title(text = "Norge")
tildelt_fylker_gg <- tilsagn %>%
ggplot(aes(x = Fylkesnavn, 'Tildelt.beløp')) +
geom_bar(stat = 'identity') +
theme_bw()
ggplotly(tildelt_fylker_gg)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
library(leaflet)
library(scales)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn,
caption = "Totalt antall tilsagn",
icon = "fa-bike")
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
list.of.packages <- c("flexdashboard", "httr", "highcharter", "shiny", "tidyverse", "plotly", "leaflet", "scales", "magrittr")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(flexdashboard)
library(httr)
library(highcharter)
library(shiny)
library(tidyverse)
library(plotly)
library(magrittr)
library(leaflet)
library(scales)
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
if (!require("pacman")) install.packages("pacman")
pacman::p_load(flexdashboard, httr, highcharter, shiny,
tidyverse, plotly, leaflet, scales)
??pacman
selectInput("Næringshovedområde", label = "Velg næring:",
choices = c("Vindyrking", "Strutseoppdrett"))
selectInput("Fylke", label = "Velg fylke:",
choices = c("Oslo", "Akershus"))
selectInput("År", label = "Velg år",
choices = c("2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018"))
selectInput("Virkemiddelgruppe", label = "Velg Virkemiddelgruppe:", choices = "Fylkesvise BU-midler", "Landsdekkende programmer")
if (!require("pacman")) install.packages("pacman")
pacman::p_load(flexdashboard, httr, highcharter, shiny,
tidyverse, plotly, leaflet, scales)
selectInput("Næringshovedområde", label = "Velg næring:",
choices = c("Vindyrking", "Strutseoppdrett"))
selectInput("Fylke", label = "Velg fylke:",
choices = c("Oslo", "Akershus"))
selectInput("År", label = "Velg år",
choices = c("2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018"))
selectInput("Virkemiddelgruppe", label = "Velg Virkemiddelgruppe:", choices = "Fylkesvise BU-midler", "Landsdekkende programmer")
# Chunk 1: install and load packages
if (!require("pacman")) install.packages("pacman")
pacman::p_load(flexdashboard, httr, highcharter, shiny,
tidyverse, plotly, leaflet, scales)
# Chunk 2: load data
tilsagn_url <- "https://data.innovasjonnorge.no/api/files?filename=Tildelinger.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
eos_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerEOS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
rentestotte_url <- "https://data.innovasjonnorge.no/api/files?filename=TildelingerRS.csv&container=innovasjonnorge&subfolder=tildelinger/csv"
tilsagn <- read.csv(tilsagn_url, sep = ";", stringsAsFactors = FALSE)
eos <- read.csv(eos_url, sep = ";", stringsAsFactors = FALSE)
rentestotte <- read.csv(rentestotte_url, sep = ";", stringsAsFactors = FALSE)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
mapdata <- get_data_from_map(download_map_data("https://code.highcharts.com/mapdata/countries/no/no-all.js"))
?selectInput
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(type = "histogram", hcaes(x = 'Næringshovedområde'))
?hchart
methods(hchart)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "hist", hcaes(x = `Næringshovedområde`, y = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "histogram", hcaes(x = `Næringshovedområde`, y = n))
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = `Næringshovedområde`, y = n))
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(type = "histogram", hcaes(x = 'Næringshovedområde'))
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(type = "histogram")
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(type = "histogram", hcaes(x = n))
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(n))
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart(n)
tilsagn %>%
count('Næringshovedområde') %>%
arrange(n) %>%
hchart()
tilsagn %>%
group_by("Næringshovedområde") %>%
summarise('Innvilget.beløp') %>%
arrange(n) %>%
hchart(type = "bar", hcaes(x = 'Næringshovedområde', y = n))
tilsagn %>%
group_by("Næringshovedområde") %>%
summarise('Innvilget.beløp') %>%
hchart(type = "bar", hcaes(x = 'Næringshovedområde'))
tilsagn %>%
group_by("Næringshovedområde") %>%
summarise('Innvilget.beløp') %>%
hchart(type = "bar", hcaes(x = 'Innvilget.beløp'))
tilsagn %>%
filter(variable %in% c("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")) %>%
print()
virkemiddel_tildelt <- tilsagn %>%
filter(variable %in% c("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")) %>%
print()
virkemiddel_tildelt <- tilsagn %>%
filter(variable %in% c("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")) %>%
print()
if (!require("pacman")) install.packages("pacman")
pacman::p_load(flexdashboard, httr, highcharter, shiny,
tidyverse, plotly, leaflet, scales)
tilsagn %>%
count(`Næringshovedområde`) %>%
arrange(n) %>%
hchart(type = "treemap", hcaes(x = `Næringshovedområde`, value = n, color = n))
antall_tilsagn <- nrow(tilsagn)
valueBox(antall_tilsagn,
caption = "Totalt antall tilsagn")
virkemiddel_tildelt <- tilsagn %>%
filter(variable %in% c("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")) %>%
print()
??filter
virkemiddel_tildelt <- tilsagn %>%
dplyr::filter(variable %in% c("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")) %>%
print()
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato") %>%
print()
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "line",
hcaes(x = date,
y = "Innvilget.beløp",
group = "Virkemiddelgruppe"))
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "line",
hcaes(x = "Innvilget.dato",
y = "Innvilget.beløp",
group = "Virkemiddelgruppe"))
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "bar",
hcaes(x = "Innvilget.dato",
y = "Innvilget.beløp",
group = "Virkemiddelgruppe"))
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "bar",
hcaes(y = "Innvilget.dato",
x = "Innvilget.beløp",
group = "Virkemiddelgruppe"))
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "bar",
hcaes(y = "Innvilget.dato",
x = "Innvilget.beløp",
group = "Virkemiddelgruppe")
)
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "line",
hcaes(x = "Innvilget.dato",
y = "Innvilget.beløp",
group = "Virkemiddelgruppe")
)
virkemiddel_tildelt <- tilsagn %>%
select("Virkemiddelgruppe", "Innvilget.beløp", "Innvilget.dato")
hchart(virkemiddel_tildelt, "line",
hcaes(x = "Innvilget.dato",
y = "Innvilget.beløp",
group = "Virkemiddelgruppe")
)