|
|
| Rivi 3: |
Rivi 3: |
| '''Tällä sivulla voit tarkastella liikenneministeriön tulevaisuuskatsauksen sisältöä ja kansalaisten antamien kommenttien suhdetta siihen. | | '''Tällä sivulla voit tarkastella liikenneministeriön tulevaisuuskatsauksen sisältöä ja kansalaisten antamien kommenttien suhdetta siihen. |
| Alla olevilla työkaluilla voit hakea tekstin jakeita eli erillisiä tekstikappaleita ja niihin liittyviä avainsanoja tai muita jakeita. Relaatiot tarkoittavat kuvailua siitä, millä tavalla kaksi jaetta liittyy toisiinsa. | | Alla olevilla työkaluilla voit hakea tekstin jakeita eli erillisiä tekstikappaleita ja niihin liittyviä avainsanoja tai muita jakeita. Relaatiot tarkoittavat kuvailua siitä, millä tavalla kaksi jaetta liittyy toisiinsa. |
| == Vanha systeemi ==
| |
| === Näytä tietyn sivun jakeet ===
| |
|
| |
|
| ; Näytä valitun sivun kaikki jakeet ja jakeisiin liittyvät avainsanat. Taulukossa näkyy myös JaeID, jonka voit antaa tunnisteeksi alla oleviin työkaluihin ja tarkastella jaekohtaisia tietoja. Tulos avautuu uuteen ikkunaan.
| | == Tägikone == |
| | |
| <rcode label="Näytä jakeet" name="jakeet" embed=0 variables="
| |
| name:sivu|description:Minkä sivun jakeet haluat nähdä?|type:selection|options:
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III
| |
| ">
| |
| library(OpasnetUtils)
| |
| | |
| names <- c(
| |
| 'Liikenne ja viestintä palveluna',
| |
| 'Liikenteen palvelumarkkinat',
| |
| 'Liikenteen energiareformi',
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
| |
| 'Monipuoliset sisällöt',
| |
| 'Oma Painotus Teema I',
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
| |
| 'Luottamuksen palauttaminen internettiin',
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet',
| |
| 'Tieto ja digitalisaatio liikenteessä',
| |
| 'Oma Painotus Teema II',
| |
| 'Infrastruktuuri kasvun alustana',
| |
| 'Toimintavarmuus ja turvallisuus',
| |
| 'Liikenne- ja viestintäyhteydet',
| |
| 'Arktinen strategia',
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
| |
| 'Oma Painotus Teema III'
| |
| )
| |
| ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
| |
| ids <- paste("Op_fi", ids, sep = "")
| |
| | |
| id <- ids[match(sivu, names)]
| |
| | |
| dat <- opbase.data("Op_fi4362", 12748, "jakeet", include = list(Sivu = sivu))
| |
| datlisays <- tryCatch(opbase.data("Op_fi4362", 12749, subset = "jakeenlisays", include = list(Sivu = c(sivu, "Yleinen"))), error = function(...) return(NULL))
| |
| if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
| |
| datpoisto <- tryCatch(opbase.data("Op_fi4362", 12755, subset = "jakeenpoistot", include = list(Sivu = sivu)), error = function(...) return(NULL))
| |
| if (!is.null(datpoisto))dat <- dat[!dat$JaeID %in% datpoisto$Result,]
| |
| | |
| komm <- tryCatch(opbase.data(id, subset = "Kommentit"), error = function(...) return(NULL))
| |
| if (!is.null(komm)) {
| |
| kommpois <- opbase.data(id, subset = "Kommenttipoistot")
| |
| komm <- komm[c("Obs", "Kommentti")]
| |
| colnames(komm) <- c("JaeID", "Result")
| |
|
| |
| komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
| |
| if (nrow(komm) > 0) {
| |
| komm$JaeID <- paste("K", komm$JaeID, sep = "")
| |
| komm$Sivu <- sivu
| |
| }
| |
| dat <- rbind(dat, komm)
| |
| }
| |
| | |
| avainsanat <- opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = list(Sivu = sivu))
| |
| avainsanat$Jae <- toupper(avainsanat$Jae)
| |
| avainsanat <- as.data.frame(as.table(tapply(
| |
| avainsanat$Avainsana,
| |
| INDEX = avainsanat[c("Sivu", "Jae")],
| |
| FUN = function(x) {paste(x, collapse = ", ")}
| |
| )))
| |
| colnames(avainsanat)[colnames(avainsanat) == "Freq"] <- "Avainsanat"
| |
|
| |
| dat <- merge(dat, avainsanat, by.x = c("Sivu", "JaeID"), by.y = c("Sivu", "Jae"), all.x = TRUE)
| |
| | |
| oprint(dat, show_all = TRUE, include.rownames = FALSE)
| |
| | |
| </rcode>
| |
| | |
| === Hae jakeen avainsanatietoja ===
| |
| | |
| '''Tässä voit antaa jakeen tunnisteen ja hakea jakeeseen liittyviä avainsanoja.
| |
| Avainsanat näkyvät myös koko sivun jaelistauksessa (ks. yllä), mutta se voi olla pitkä taulukko ja kömpelö tapa joihinkin tarkoituksiin. Tällä voit tarkastella asioita jakeittain.
| |
| | |
| <rcode label="Näytä jakeen tiedot" name="jae_show" embed=1 variables="
| |
| name:sivu|description:Minkä sivun jakeen tietoja haluat tarkastella?|type:selection|options:
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III|
| |
| name:jaeid|description:Jae|type:text
| |
| ">
| |
| library(OpasnetUtils)
| |
| | |
| jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) {
| |
| main_subset <- "jakeet"
| |
| added_subset <- "jakeenlisays"
| |
| deleted_subset <- "jakeenpoistot"
| |
| comment_subset <- "kommentit"
| |
| deleted_comment_subset <- "Kommenttipoistot"
| |
| general_loc <- "Yleinen"
| |
|
| |
| dl <- TRUE
| |
|
| |
| filter <- list()
| |
| filter$Sivu <- c(page, general_loc)
| |
| if (!is.null(jaeid)){
| |
| a <- !grepl("^[a-zA-Z]", jaeid)
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| if (dl) {
| |
| dat <- opbase.data(
| |
| main_ident,
| |
| series_id,
| |
| main_subset,
| |
| include = filter
| |
| )
| |
| } else {
| |
| dat <- data.frame()
| |
| }
| |
| if (!is.null(jaeid)){
| |
| a <- grepl("^L", jaeid)
| |
| dl <- TRUE
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| datlisays <- NULL
| |
| if (dl) {
| |
| datlisays <- tryCatch(
| |
| opbase.data(
| |
| main_ident,
| |
| subset = added_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| }
| |
| if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
| |
| datpoisto <- tryCatch(
| |
| opbase.data(
| |
| main_ident,
| |
| subset = deleted_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
| |
| filter <- list()
| |
| if (!is.null(jaeid)){
| |
| a <- grepl("^K", jaeid)
| |
| dl <- TRUE
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| if (length(filter) == 0) filter <- NULL
| |
| komm <- NULL
| |
| if (dl) {
| |
| komm <- tryCatch(
| |
| opbase.data(
| |
| page_ident,
| |
| subset = comment_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| }
| |
| if (!is.null(komm)) {
| |
| komm <- komm[c("Obs", "Kommentti")]
| |
| colnames(komm) <- c("JaeID", "Result")
| |
| kommpois <- tryCatch(
| |
| opbase.data(
| |
| page_ident,
| |
| subset = deleted_comment_subset
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(kommpois)) {
| |
| komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
| |
| }
| |
| if (nrow(komm) > 0) {
| |
| komm$JaeID <- paste("K", komm$JaeID, sep = "")
| |
| komm$Sivu <- sivu
| |
| }
| |
| dat <- rbind(dat, komm)
| |
| }
| |
| return(dat)
| |
| }
| |
| | |
| names <- c(
| |
| 'Liikenne ja viestintä palveluna',
| |
| 'Liikenteen palvelumarkkinat',
| |
| 'Liikenteen energiareformi',
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
| |
| 'Monipuoliset sisällöt',
| |
| 'Oma Painotus Teema I',
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
| |
| 'Luottamuksen palauttaminen internettiin',
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet',
| |
| 'Tieto ja digitalisaatio liikenteessä',
| |
| 'Oma Painotus Teema II',
| |
| 'Infrastruktuuri kasvun alustana',
| |
| 'Toimintavarmuus ja turvallisuus',
| |
| 'Liikenne- ja viestintäyhteydet',
| |
| 'Arktinen strategia',
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
| |
| 'Oma Painotus Teema III'
| |
| )
| |
| ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
| |
| ids <- paste("Op_fi", ids, sep = "")
| |
| | |
| id <- ids[match(sivu, names)]
| |
| | |
| jae <- jaehakukone("Op_fi4362", 12748, sivu, id, jaeid)
| |
| jae <- jae[!colnames(jae) %in% c("Sivu", "JaeID")]
| |
| oprint(jae, include.rownames = FALSE)
| |
| | |
| tags <- tryCatch(
| |
| opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = list(Sivu = sivu, Jae = jaeid)),
| |
| error = function(...) return(NULL)
| |
| )
| |
| | |
| if (is.null(tags)) {
| |
| cat("Jakeella ei ole avainsanoja tietokannassa\n")
| |
| } else {
| |
| cat("Avainsanat: ")
| |
| cat(paste(as.character(tags$Avainsana), collapse = ", "))
| |
| cat("\n")
| |
| }
| |
| | |
| </rcode>
| |
| | |
| === Hae jakeen relaatiotietoja ===
| |
| | |
| '''Tässä voit antaa jakeen tunnisteen ja etsiä jakeen kytkentöjä eli relaatioita muihin jakeisiin.
| |
| Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon.
| |
| | |
| <rcode label="Näytä jakeen relaatiot" name="jae_show" embed=1 variables="
| |
| name:sivu|description:Minkä sivun jakeen relaatioita haluat tarkastella?|type:selection|options:
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III|
| |
| name:jaeid|description:Jae|type:text|
| |
| name:liit|description:Miten jae liittyy haettaviin jakeisiin?|type:selection|options:
| |
| NULL;Kaikki;
| |
| 'tukee tai on linjassa';Tukee tai on linjassa;
| |
| 'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
| |
| 'on neutraali suhteessa';On neutraali suhteessa;
| |
| 'on uusi linjaus tai painotus';On uusi linjaus tai painotus|
| |
| name:sis|description:Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?|type:selection|options:
| |
| NULL;Kaikki;
| |
| 'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
| |
| 'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
| |
| 'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun
| |
|
| |
| ">
| |
| jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) {
| |
| main_subset <- "jakeet"
| |
| added_subset <- "jakeenlisays"
| |
| deleted_subset <- "jakeenpoistot"
| |
| comment_subset <- "kommentit"
| |
| deleted_comment_subset <- "Kommenttipoistot"
| |
| general_loc <- "Yleinen"
| |
|
| |
| dl <- TRUE
| |
|
| |
| filter <- list()
| |
| filter$Sivu <- c(page, general_loc)
| |
| if (!is.null(jaeid)){
| |
| a <- !grepl("^[a-zA-Z]", jaeid)
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| if (dl) {
| |
| dat <- opbase.data(
| |
| main_ident,
| |
| series_id,
| |
| main_subset,
| |
| include = filter
| |
| )
| |
| } else {
| |
| dat <- data.frame()
| |
| }
| |
| if (!is.null(jaeid)){
| |
| a <- grepl("^L", jaeid)
| |
| dl <- TRUE
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| datlisays <- NULL
| |
| if (dl) {
| |
| datlisays <- tryCatch(
| |
| opbase.data(
| |
| main_ident,
| |
| subset = added_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| }
| |
| if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
| |
| datpoisto <- tryCatch(
| |
| opbase.data(
| |
| main_ident,
| |
| subset = deleted_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
| |
| filter <- list()
| |
| if (!is.null(jaeid)){
| |
| a <- grepl("^K", jaeid)
| |
| dl <- TRUE
| |
| if(sum(a) > 0) {
| |
| filter$JaeID <- jaeid[a]
| |
| } else {
| |
| dl <- FALSE
| |
| }
| |
| }
| |
| if (length(filter) == 0) filter <- NULL
| |
| komm <- NULL
| |
| if (dl) {
| |
| komm <- tryCatch(
| |
| opbase.data(
| |
| page_ident,
| |
| subset = comment_subset,
| |
| include = filter
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| }
| |
| if (!is.null(komm)) {
| |
| komm <- komm[c("Obs", "Kommentti")]
| |
| colnames(komm) <- c("JaeID", "Result")
| |
| kommpois <- tryCatch(
| |
| opbase.data(
| |
| page_ident,
| |
| subset = deleted_comment_subset
| |
| ),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(kommpois)) {
| |
| komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
| |
| }
| |
| if (nrow(komm) > 0) {
| |
| komm$JaeID <- paste("K", komm$JaeID, sep = "")
| |
| komm$Sivu <- sivu
| |
| }
| |
| dat <- rbind(dat, komm)
| |
| }
| |
| return(dat)
| |
| }
| |
| | |
| names <- c(
| |
| 'Liikenne ja viestintä palveluna',
| |
| 'Liikenteen palvelumarkkinat',
| |
| 'Liikenteen energiareformi',
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
| |
| 'Monipuoliset sisällöt',
| |
| 'Oma Painotus Teema I',
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
| |
| 'Luottamuksen palauttaminen internettiin',
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet',
| |
| 'Tieto ja digitalisaatio liikenteessä',
| |
| 'Oma Painotus Teema II',
| |
| 'Infrastruktuuri kasvun alustana',
| |
| 'Toimintavarmuus ja turvallisuus',
| |
| 'Liikenne- ja viestintäyhteydet',
| |
| 'Arktinen strategia',
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
| |
| 'Oma Painotus Teema III'
| |
| )
| |
| ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
| |
| ids <- paste("Op_fi", ids, sep = "")
| |
| | |
| id <- ids[match(sivu, names)]
| |
| | |
| library(OpasnetUtils)
| |
| | |
| jae <- jaehakukone("Op_fi4362", 12748, sivu, id, jaeid)
| |
| oprint(jae)
| |
| | |
| rel1 <- tryCatch(
| |
| opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu, Jae = jaeid)),
| |
| error = function(...) return(NULL)
| |
| )
| |
| rel2 <- tryCatch(
| |
| opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu, Liittymäjae = jaeid)),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (is.null(rel1)) rel1 <- data.frame()
| |
| if (is.null(rel2)) rel2 <- data.frame()
| |
| rel <- rbind(rel1, rel2)
| |
| if (!is.null(liit)) rel <- rel[rel$"Liittyminen" == liit , ]
| |
| if (!is.null(sis)) rel <- rel[rel$"Sisällytys" == sis , ]
| |
| if (nrow(rel) == 0) {
| |
| oprint("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.")
| |
| } else {
| |
| liittymäjae <- jaehakukone("Op_fi4362", 12748, sivu, id, c(as.character(rel$Jae), as.character(rel$Liittymäjae)))
| |
| #jae <- rbind(jae, liittymäjae)
| |
| temp <- rel
| |
| colnames(temp)[colnames(temp) == "Jae"] <- "Lähtöjae"
| |
| colnames(liittymäjae)[colnames(liittymäjae) == "JaeID"] <- "Liittymäjae"
| |
| temp <- temp[colnames(temp) != "Result"]
| |
| rel_out1 <- merge(liittymäjae, temp)
| |
| colnames(liittymäjae)[colnames(liittymäjae) == "Liittymäjae"] <- "Lähtöjae"
| |
| rel_out2 <- merge(liittymäjae, temp)
| |
|
| |
| rel_out1 <- rel_out1[rel_out1$Liittymäjae != jaeid,]
| |
| if (nrow(rel_out1)) {
| |
| oprint(
| |
| rel_out1[c("Lähtöjae", "Liittymäjae", "Liittyminen", "Sisällytys", "Result")],
| |
| include.rownames = FALSE,
| |
| caption = "Liittyvät liittymä-/kohdejakeet",
| |
| caption.placement = "top"
| |
| )
| |
| }
| |
| rel_out2 <- rel_out2[rel_out2$Lähtöjae != jaeid,]
| |
| if (nrow(rel_out2)) {
| |
| oprint(
| |
| rel_out2[c("Lähtöjae", "Liittymäjae", "Liittyminen", "Sisällytys", "Result")],
| |
| include.rownames = FALSE,
| |
| caption = "Liittyvät lähtöjakeet",
| |
| caption.placement = "top"
| |
| )
| |
| }
| |
| }
| |
| | |
| | |
| </rcode>
| |
| | |
| === Hae sivun relaatiotietoja ===
| |
| | |
| '''Tässä etsiä sivun jakeiden kytkentöjä eli relaatioita muihin jakeisiin.
| |
| Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon. Taulukko aukeaa uuteen ikkunaan.
| |
| | |
| <rcode label="Näytä sivun relaatiot" name="sivu_show" embed=0 variables="
| |
| name:sivu|description:Minkä sivun relaatioita haluat tarkastella?|type:selection|options:
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III|
| |
| | |
| name:liit|description:Miten jae liittyy haettaviin jakeisiin?|type:selection|options:
| |
| NULL;Kaikki;
| |
| 'tukee tai on linjassa';Tukee tai on linjassa;
| |
| 'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
| |
| 'on neutraali suhteessa';On neutraali suhteessa;
| |
| 'on uusi linjaus tai painotus';On uusi linjaus tai painotus|
| |
| name:sis|description:Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?|type:selection|options:
| |
| NULL;Kaikki;
| |
| 'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
| |
| 'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
| |
| 'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun
| |
|
| |
| ">
| |
| | |
| names <- c(
| |
| 'Liikenne ja viestintä palveluna',
| |
| 'Liikenteen palvelumarkkinat',
| |
| 'Liikenteen energiareformi',
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
| |
| 'Monipuoliset sisällöt',
| |
| 'Oma Painotus Teema I',
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
| |
| 'Luottamuksen palauttaminen internettiin',
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet',
| |
| 'Tieto ja digitalisaatio liikenteessä',
| |
| 'Oma Painotus Teema II',
| |
| 'Infrastruktuuri kasvun alustana',
| |
| 'Toimintavarmuus ja turvallisuus',
| |
| 'Liikenne- ja viestintäyhteydet',
| |
| 'Arktinen strategia',
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
| |
| 'Oma Painotus Teema III'
| |
| )
| |
| ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
| |
| ids <- paste("Op_fi", ids, sep = "")
| |
| | |
| id <- ids[match(sivu, names)]
| |
| | |
| library(OpasnetUtils)
| |
| | |
| jae <- rbind( opbase.data("Op_fi4362", 12748, subset = "jakeet"),
| |
| opbase.data("Op_fi4362", subset = "jakeenlisays"))
| |
| | |
| rel1 <- tryCatch(
| |
| opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu)),#, Jae = jaeid)),
| |
| error = function(...) return(NULL)
| |
| )
| |
| rel2 <- tryCatch(
| |
| opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Liittymäsivu = sivu)),#, Liittymäjae = jaeid)),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (is.null(rel1)) rel1 <- data.frame()
| |
| if (is.null(rel2)) rel2 <- data.frame()
| |
| rel <- rbind(rel1, rel2)
| |
| if (!is.null(liit)) rel <- rel[rel$"Liittyminen" == liit , ]
| |
| if (!is.null(sis)) rel <- rel[rel$"Sisällytys" == sis , ]
| |
| if (nrow(rel) == 0) {
| |
| oprint("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.")
| |
| } else {
| |
| | |
| temp2 <- merge(rel, jae, by.x = c("Sivu", "Jae"), by.y = c("Sivu", "JaeID"))
| |
| #colnames(temp2)[colnames(temp2) == "Sivu"] <- "Lähtösivu"
| |
| temp3 <- merge(temp2, jae, by.x = c("Liittymäsivu", "Liittymäjae"), by.y = c("Sivu", "JaeID"))
| |
| temp3 <- temp3[ c("Sivu", "Result.y", "Liittyminen", "Result", "Sisällytys", "Liittymäsivu")]
| |
| colnames(temp3) <- c("Sivu", "Jae", "Liittyminen", "Liittymäjae", "Sisällytys", "sivu")
| |
| oprint(temp3, include.rownames = FALSE)
| |
| }
| |
| | |
| </rcode>
| |
| | |
| === Hae jakeita avainsanalla ===
| |
| | |
| '''Tässä voit hakea jakeita ja analysoida niiden määriä hakemalla yhdellä tai useammalla avainsanalla.
| |
| Haku löytää jakeet, joissa on jokin annetuista hakusanoista (OR). Jos haluat löytää jakeet, jossa esiintyvät kaikki hakuehdon sanat (AND), voit näyttää kaikki löydetyt jakeet ja järjestää taulukon jaesarakkeen mukaan järjestykseen. Jokainen avainsanaosuma tuottaa uuden kopion jakeesta, joten ne jakeet joissa on useita osumia toistuvat monella rivillä.
| |
| {{attack|#|Tähän voisi kehittää elegantimmankin ratkaisun. |--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 18. heinäkuuta 2014 kello 05.04 (UTC)}}
| |
| | |
| Käytetyt avainsanat:
| |
| {{piilotettu|
| |
| 3D-tulostus Aikataulut Ajoneuvokanta Alueellisuus
| |
| alustus Ammattiryhmät Arvo Asutus
| |
| Aurinko Automatisaatio Avoimuus Big Data
| |
| Biopolttoaine Dataliikenne Digitalisoituminen Eettisyys
| |
| eIDAS Elintaso Energia Epäselvä luokka
| |
| Eriarvoisuus Erityisryhmät Esineiden internet Globaalius
| |
| Globaaluis Henkilökortti Henkilötiedot Huutokauppa
| |
| Hybridi Hybridi-TV Hyvinvointi Hyvinvointiyhteiskunta
| |
| Häiriöt Ilmasto Infrastruktuuri Innovatiivisus
| |
| Innovatiivisuus Internet Investoinnit Joukkoliikenne
| |
| Joustavuus Julkinen valta Kaivosteollisuus Kansainvälisyys
| |
| Kasvihuonekaasut Kaupallisuus Kaupungit Kehitys
| |
| Kestävyys Kevyen liikenteen väylät Kevytliikenne Kiinteistöt
| |
| Kilpailu Kilpailukyky Konesalit Konkreettisuus
| |
| Kotimaisuus Koulutus Kunnat Kustannustehokkuus
| |
| Kuuluvuus Kävely Laajakaista Lainsäädäntö
| |
| Laiton tarjonta Langattomuus Lappi Lentoliikenne
| |
| Liikenne Liikenneverkostot Liikkumistili Linja-autot
| |
| Logistiikka Luonnonsuojelu Lämmitys Maakaasu
| |
| Maatalous Mainonta Markkinat Massavalvonta
| |
| Meriliikenne Metadata Mobiiliverkko Mopot
| |
| Nopeus Ohjaus Ohjelmistot Ohjelmistotoimittaja
| |
| Oikeusturva Omavaraisuus Operaattori Osaaminen
| |
| Ostovoima Palaute Palvelut Palvelutaso
| |
| Peruskunto Pilvipalvelut Polttoaine Posti
| |
| Puelueettomuus Pysäköinti Pyöräily Päivitys
| |
| Pääkaupunkiseutu Päästöt Päätöksenteko Päätös
| |
| Raha Rahoitus Rahtliikenne Rajapinnat
| |
| Rakennemuutos Rakentaminen Raskas liikenne Rautatiet
| |
| Riippuvuus Rikokset Robotisaatio Ruuhkamaksu
| |
| Ruuhkautuminen Saatavuus Sateliittipaikannus Sovellukset
| |
| Strategia Suunnittelu Sähkö Sähköauto
| |
| Sääntely Säästöt Talous Talouskasvu
| |
| Tarpeet Tasa-arvo Tasapuolisuus Tasavertaisuus
| |
| Tavaraliikenne Tehokkuus Tekijänoikeus Tekniikkaneutraalius
| |
| Tekninen tuki Teknologia Teknologianeutraalius Teollisuus
| |
| Terveydenhuolto Terveys testi Tiedon avoimuus
| |
| Tiedon hallinnointi Tiedon hallinta Tiedon hyödyntäminen Tieliikenne
| |
| Tietoliikenne Tietoturva Toimilupa Toiminta
| |
| Toimintavarmuus Toimivuus Tuki Turvallisuus
| |
| Turvaverkko Tutkimus Tuuli TV
| |
| Työllisyys Työn tekemiseen liittyvä Ulkomaat Uudistus
| |
| Vaihtoehtoiset polttoaineet Vaikuttaminen Vaikutus Vakuutus
| |
| Valinnanvapaus Valtio Varmenne Varmuus
| |
| Vastuu Verkostoituminen Verotus Vesiliikenne
| |
| Vesiliikenne, Tasavertaisuus Viestintäverkot Viranomaiset Yhteensopivuus
| |
| Yhteiskunta Yhteiskuntamurros Yhteistyö Yhteysnopeus
| |
| Yksityisautoilu Yksityisyydensuoja YLE Yleispalvelu
| |
| Yleisradio Ympäristö Yritykset Öljy
| |
| }}
| |
| | |
| <rcode label="Näytä jakeita/tilastoja" name="jae_stats" embed=1 graphics=1 variables="
| |
| name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
| |
| 'kaikki';Kaikki;
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III|
| |
| name:avainsanat|description:Mihin avainsanoihin liittyviä jakeita haluat tarkastella? (pilkulla eroteltuna useampia, tyhjä kenttä hakee kaikki)|type:text|
| |
| name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE
| |
| ">
| |
| library(OpasnetUtils)
| |
| library(ggplot2)
| |
| | |
| names <- c(
| |
| 'Liikenne ja viestintä palveluna',
| |
| 'Liikenteen palvelumarkkinat',
| |
| 'Liikenteen energiareformi',
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
| |
| 'Monipuoliset sisällöt',
| |
| 'Oma Painotus Teema I',
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
| |
| 'Luottamuksen palauttaminen internettiin',
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet',
| |
| 'Tieto ja digitalisaatio liikenteessä',
| |
| 'Oma Painotus Teema II',
| |
| 'Infrastruktuuri kasvun alustana',
| |
| 'Toimintavarmuus ja turvallisuus',
| |
| 'Liikenne- ja viestintäyhteydet',
| |
| 'Arktinen strategia',
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
| |
| 'Oma Painotus Teema III'
| |
| )
| |
| ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261,
| |
| 4262, 4251, 4263, 4264, 4265, 4266, 4267)
| |
| ids <- paste("Op_fi", ids, sep = "")
| |
| if (sivu == "kaikki") {
| |
| #sivu <- names
| |
| id <- ids
| |
| } else {
| |
| id <- ids[match(sivu, names)]
| |
| }
| |
|
| |
| filter <- list()
| |
| if (nchar(gsub(" ", "", avainsanat)) > 0) {
| |
| filter$Avainsana <- strsplit(avainsanat, ",")[[1]]
| |
| filter$Avainsana <- gsub("^\\s*|\\s*$", "", filter$Avainsana)
| |
| }
| |
| if (sivu != "kaikki") {
| |
| filter$Sivu <- sivu
| |
| }# else {
| |
| # filter$Sivu <- names
| |
| #}
| |
| if (length(filter) == 0) filter <- NULL
| |
| tags <- tryCatch(
| |
| opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = filter),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (is.null(filter)) filter <- list()
| |
| | |
| filter2 <- filter
| |
| filter2$Avainsana <- NULL
| |
| if (length(filter2) == 0) filter2 <- NULL
| |
| dat <- opbase.data("Op_fi4362", 12748, "jakeet", include = filter2)
| |
| | |
| datlisays <- tryCatch(
| |
| opbase.data("Op_fi4362", 12749, subset = "jakeenlisays", include = filter2),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
| |
| #datpoisto <- tryCatch(
| |
| # opbase.data("Op_fi4362", 12755, subset = "jakeenpoistot", include = filter),
| |
| # error = function(...) return(NULL)
| |
| #)
| |
| #if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
| |
| | |
| for (i in 1: length(id)) {
| |
| komm <- tryCatch(
| |
| opbase.data(id[i], subset = "Kommentit"),
| |
| error = function(...) return(NULL)
| |
| )
| |
| if (!is.null(komm)) {
| |
| kommpois <- opbase.data(id[i], subset = "Kommenttipoistot")
| |
| komm <- komm[c("Obs", "Kommentti")]
| |
| colnames(komm) <- c("JaeID", "Result")
| |
|
| |
| komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
| |
| if (nrow(komm) > 0) {
| |
| komm$JaeID <- paste("K", komm$JaeID, sep = "")
| |
| if (sivu == 'kaikki') {
| |
| komm$Sivu <- names[i]
| |
| } else {
| |
| komm$Sivu <- sivu[i]
| |
| }
| |
| }
| |
| dat <- rbind(dat, komm)
| |
| }
| |
|
| |
| }
| |
| | |
| colnames(dat)[colnames(dat) == "JaeID"] <- "Jae"
| |
| | |
| tagged <- NULL
| |
| if (is.null(tags)) {
| |
| oprint("Avainsanoja ei löytynyt")
| |
| } else {
| |
| tags$Avainsana <- gsub("^[ \t]+|[ \t]+$", "", tags$Avainsana)
| |
| | |
| tagged <- merge(dat, tags[c("Jae", "Sivu", "Avainsana")])
| |
| if(jaelista) oprint(tagged, include.rownames = FALSE)
| |
| | |
|
| |
| tagged_out <- tapply(1:nrow(tagged), tagged$Avainsana, length)
| |
| tagged_out[is.na(tagged_out)] <- 0
| |
| tagged_out <- data.frame(Avainsana = names(tagged_out), Result = tagged_out)
| |
|
| |
| temp <- tagged_out[order(tagged_out$Result, decreasing = TRUE)[1:10],]
| |
| colnames(temp)[2] <- "Lukumäärä"
| |
| oprint(
| |
| temp,
| |
| caption = "Top 10 avainsanaa",
| |
| caption.placement = "top",
| |
| include.rownames = FALSE,
| |
| digits = c(0, 0, 0)
| |
| )
| |
|
| |
| ggplot(tagged_out, aes(x = Avainsana, y = Result, fill = Avainsana)) +
| |
| geom_bar(stat = "identity") +
| |
| theme_grey(base_size = 24) +
| |
| theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
| |
| ggtitle("Avainsanojen frekvenssit")# + facet_wrap(~Sivu)
| |
| }
| |
| | |
| rel <- tryCatch(
| |
| opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = filter2),
| |
| error = function(...) return(NULL)
| |
| )
| |
| related <- NULL
| |
| affected <- NULL
| |
| if(is.null(rel)) {
| |
| oprint("Relaatiota ei löytynyt")
| |
| } else {
| |
| related <- merge(dat, rel[c("Jae", "Sivu", "Liittyminen")])
| |
| affected <- merge(dat, rel[c("Jae", "Sivu", "Sisällytys")])
| |
| related <- related[
| |
| related$Liittyminen %in% c(
| |
| "on neutraali suhteessa",
| |
| "on uusi linjaus tai painotus",
| |
| "tukee tai on linjassa",
| |
| "vastustaa tai on ristiriidassa"
| |
| ),
| |
| ]
| |
| related$Liittyminen <- factor(related$Liittyminen)
| |
| affected <- affected[!(is.na(affected$Sisällytys) | nchar(gsub(" ", "", affected$Sisällytys)) == 0), ]
| |
| affected$Sisällytys <- factor(affected$Sisällytys)
| |
| original_levels <- c(
| |
| "ehdotus ei ole antanut aihetta muutoksiin",
| |
| "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",
| |
| "ehdotus huomioitu ja liittyvää painotusta muutettu",
| |
| "ehdotus huomioitu ja uusi kohta lisätty"
| |
| )
| |
| new_levels <- c(
| |
| "Ei aihetta muutoksiin",
| |
| "Sisältyy valmiiksi",
| |
| "Huomioitu painotuksella",
| |
| "Huomioitu lisäyksellä"
| |
| )
| |
| levels(affected$Sisällytys) <- new_levels[
| |
| match(
| |
| levels(affected$Sisällytys),
| |
| original_levels
| |
| )
| |
| ]
| |
| }
| |
| | |
| if (!is.null(related)) {
| |
| related_out <- tapply(related$Result, related$Liittyminen, length)
| |
| related_out[is.na(related_out)] <- 0
| |
| related_out <- data.frame(Liittyminen = names(related_out), Result = related_out)
| |
|
| |
| ggplot(related_out, aes(x = Liittyminen, y = Result, fill = Liittyminen)) +
| |
| geom_bar(stat = "identity") +
| |
| theme_grey(base_size = 24) +
| |
| theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
| |
| ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
| |
| }
| |
| | |
| if (!is.null(affected)) {
| |
| affected_out <- tapply(affected$Result, affected$Sisällytys, length)
| |
| affected_out[is.na(affected_out)] <- 0
| |
| affected_out <- data.frame(Sisällytys = names(affected_out), Result = affected_out)
| |
|
| |
| ggplot(affected_out, aes(x = Sisällytys, y = Result, fill = Sisällytys)) +
| |
| geom_bar(stat = "identity") +
| |
| theme_grey(base_size = 24) +
| |
| theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
| |
| ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu)
| |
| }
| |
| | |
| </rcode>
| |
| | |
| === Piirrä avainsanapilviä ===
| |
| | |
| '''Tässä voit valita yhden tai useamman sivun ja piirtää niissä esiintyvistä avainsanoista avainsanapilven eli tägipilven.
| |
| | |
| <rcode label="Näytä avainsanapilvi" name="jae_stats" embed=1 graphics=1 variables="
| |
| name:sivu|description:Minkä sivujen avainsanoja haluat tarkastella?|type:checkbox|options:
| |
| 'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
| |
| 'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
| |
| 'Liikenteen energiareformi';Liikenteen energiareformi;
| |
| 'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
| |
| 'Monipuoliset sisällöt';Monipuoliset sisällöt;
| |
| 'Oma Painotus Teema I';Oma Painotus Teema I;
| |
| 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
| |
| 'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
| |
| 'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
| |
| 'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
| |
| 'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
| |
| 'Oma Painotus Teema II';Oma Painotus Teema II;
| |
| 'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
| |
| 'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
| |
| 'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
| |
| 'Arktinen strategia';Arktinen strategia;
| |
| 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
| |
| 'Oma Painotus Teema III';Oma Painotus Teema III
| |
| ">
| |
| library(OpasnetUtils)
| |
| library(wordcloud)
| |
| | |
| filter <- list()
| |
| #if (nchar(gsub(" ", "", avainsanat)) > 0) {
| |
| # filter$Avainsana <- strsplit(avainsanat, ",")[[1]]
| |
| #}
| |
| #if (sivu != "kaikki") {
| |
| filter$Sivu <- sivu
| |
| #}
| |
| if (length(filter) == 0) filter <- NULL
| |
| dat <- opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = filter)
| |
| tags <- as.data.frame(as.table(tapply(dat$Result, INDEX = dat["Avainsana"], sum)))
| |
| tags <- tags[!tags$Avainsana %in% c("Päätös", "Arvo", "Vaikutus", "Epäselvä luokka") , ]
| |
| | |
| # Koko tägipilvi
| |
| wordcloud(
| |
| tags$Avainsana, # words
| |
| tags$Freq, # frequencies
| |
| scale = c(4,1), # size of largest and smallest words
| |
| colors = "blue", # brewer.pal(9,"Blues"), # number of colors, palette
| |
| rot.per = 0, # proportion of words to rotate 90 degrees
| |
| min.freq = 1
| |
| )
| |
| </rcode>
| |
| == Uusi systeemi ==
| |
| {{tuloslinkki}} | | {{tuloslinkki}} |
| <rcode label="Päivitä tietokantarakenne" variables=" | | <rcode label="Päivitä tietokantarakenne" variables=" |
