Lähdekoodi sivulle Liikenne ja viestintä digitaalisessa Suomessa 2020/Sisällönanalyysi

{{LVM}}

'''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.
== 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.

<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 ==

=== Versiot ===
<t2b name="Versiot" index="Versio,Sivu,Ident" unit="OldID">
1|Liikenne ja viestintä palveluna|Op_fi4248|
1|Liikenteen palvelumarkkinat|Op_fi4253|
1|Liikenteen energiareformi|Op_fi4254|
1|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
1|Monipuoliset sisällöt|Op_fi4256|
1|Oma Painotus Teema I|Op_fi4257|
1|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
1|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
1|Luottamuksen palauttaminen internettiin|Op_fi4259|
1|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
1|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
1|Oma Painotus Teema II|Op_fi4262|
1|Infrastruktuuri kasvun alustana|Op_fi4251|
1|Toimintavarmuus ja turvallisuus|Op_fi4263|
1|Liikenne- ja viestintäyhteydet|Op_fi4264|
1|Arktinen strategia|Op_fi4265|
1|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
1|Oma Painotus Teema III|Op_fi4267|
2|Liikenne ja viestintä palveluna|Op_fi4248|
2|Liikenteen palvelumarkkinat|Op_fi4253|
2|Liikenteen energiareformi|Op_fi4254|
2|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
2|Monipuoliset sisällöt|Op_fi4256|
2|Oma Painotus Teema I|Op_fi4257|
2|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
2|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
2|Luottamuksen palauttaminen internettiin|Op_fi4259|
2|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
2|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
2|Oma Painotus Teema II|Op_fi4262|
2|Infrastruktuuri kasvun alustana|Op_fi4251|
2|Toimintavarmuus ja turvallisuus|Op_fi4263|
2|Liikenne- ja viestintäyhteydet|Op_fi4264|
2|Arktinen strategia|Op_fi4265|
2|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
2|Oma Painotus Teema III|Op_fi4267|
</t2b>