Ero sivun ”Strategiadatan analyysi” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
p (→‎Avainsanoitus: Päätavoite lisätty listaan)
p (Siirretty aineiston analysointia varten tarkoitetutu koneet sivun loppuun)
Rivi 495: Rivi 495:




== Rikastetun aineiston analysointi - Yhdistelmähakukoneet ==


=== Jaekohtainen avainsanalistaus ===
==Työkalut==


'''Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat'''
Aineiston työstämiseen tarkoittuja koodeja.
<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
NULL;Kaikilta;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
name:version|description:Versio|type:text|default:nykyinen|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
 
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
 
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
 
out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
 
if (nrow(out) == 0) {
stop("Jakeita ei löytynyt!")
}
 
filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid
 
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
 
if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt!\n")
} else {
# Yhdistetään kunkin jakeen avainsanat yhdelle riville
tags <- ddply(
tags,
c("Versio", "Sivu", "JaeID"),
function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
)
 
out <- join(
out[c("Versio", "Sivu", "JaeID", "Result")],
tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
by = c("Versio", "Sivu", "JaeID"),
type = "inner",
match = "first"
)
# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
filter_ind <- NULL
if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
filter_ind <- c(filter_ind, "JaeID")
oprint(
out[c(filter_ind, "Result", "Avainsanat")],
include.rownames = FALSE,
show_all = TRUE
)
}
</rcode>
 
=== Jae-relaatio-jae listaus ===
'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
NULL;Kaikilta;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
name:liitsis|description:Liittymistyyppi (tyhjä = kaikki)|type:checkbox|options:
'tukee tai on linjassa';tukee tai on linjassa;
'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
'on neutraali suhteessa';on neutraali suhteessa;
'liittyy';liittyy;
'edellyttää';edellyttää;
'sisältää';sisältää;
'vaikuttaa';vaikuttaa;
'vaikuttaa taloudellisesti';vaikuttaa taloudellisesti|
name:version|description:Versio|type:text|default:nykyinen|
name:details|description:Näytetäänkö tekniset yksityiskohdat?|type:selection|options:FALSE;Ei, vain jakeiden sisältö;TRUE;Kyllä, myös jakeiden numerot|default:FALSE|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
sis_opt <- c(
'ehdotus huomioitu ja liittyvää painotusta muutettu',
'ehdotus huomioitu ja uusi kohta lisätty',
'ehdotus ei ole antanut aihetta muutoksiin',
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
)
#liit_opt <- c(
# 'tukee tai on linjassa',
# 'vastustaa tai on ristiriidassa',
# 'on neutraali suhteessa',
# 'on uusi linjaus tai painotus'
#)
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
 
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
 
filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid
 
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter$JaeID1 <- NULL
filter$Sivu1 <- NULL
filter$JaeID2 <- jaeid
filter$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
 
rel <- rbind(rel1, rel2)
 
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
 
if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
 
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
jakeet <- jaehakukone(
ident,
sivu = unique(c(
as.character(rel$Sivu1),
as.character(rel$Sivu2)
)),
versio = version,
jae = unique(c(
as.character(rel$JaeID1),
as.character(rel$JaeID2)
))
)
if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
# Relaatiot
if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
out <- join(
rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
out <- join(out, jakeet, match = "first")
if(details) {
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
} else {
temp <- out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
temp <- data.frame(
Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
Relaatio = temp$Relaatio,
Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
)
oprint(temp,
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
}
} else {
cat("Ei relaatioita!\n")
}
# Sisällytykset
if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1"
colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
out <- join(
rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Sisällytys (uudempaan versioon)",
caption.placement = "top",
show_all = TRUE
)
} else {
cat("Ei sisällytyksiä!\n")
}
}
</rcode>
 
=== Avainsana- ja relaatiotietojen analyysi ===
 
'''Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.'''
 
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ä tilastoja/jakeita" name="jae_stats" embed=1 graphics=1 variables="
name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
NULL;Kaikki;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:avainsanat|description:Hae jakeita joilla on ainakin yksi seuraavista avainsanoista|type:text|
name:avainsanat_all|description:Hae jakeita joilla on kaikki seuraavat avainsanat|type:text|
name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE|
name:version|description:Versio|type:text|default:nykyinen|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
library(ggplot2)
 
filter <- list()
if (nchar(gsub(" ", "", avainsanat)) > 0) {
avainsanat <- strsplit(avainsanat, ",")[[1]]
avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat) 
} else {
avainsanat <- NULL
}
if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
#filter$Avainsana <- avainsanat_all
} else {
avainsanat_all <- NULL
}
filter$Sivu <- sivu
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
 
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
filter$Versio <- version
 
if (length(filter) == 0) filter <- NULL
 
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
 
jaeid <- NULL
 
if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
jaeid <- unique(as.character(tags$JaeID))
}
 
if(!is.null(avainsanat_all)) {
temp <- list()
for (i in 1:nrow(jaeid)) {
temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
}
temp <- lapply(temp, all)
jaeid <- jaeid[temp]
tags <- tags[tags$JaeID %in% jaeid,]
}


if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt.\n")
}
if (is.null(filter)) {
filter2 <- list()
} else {
filter2 <- filter
}
filter2$JaeID <- jaeid
if (length(filter2) == 0) filter2 <- NULL
if (jaelista) {
jakeet <- jaehakukone(
ident,
sivu = filter2$Sivu, # *list$non-existent returns NULL
versio = filter2$Versio,
jae = filter2$JaeID
)
if (nrow(jakeet) == 0) {
cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
} else {
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
tagged <- NULL
if (nrow(tags) > 0) {
#tagged <- join(
# jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
# tags[c("Versio", "Sivu", "JaeID", "Result")]
#)
#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
tagged <- as.data.frame(as.table(tagged))
colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
tagged <- join(
jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],
tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
type = "inner",
match = "first"
)
oprint(
tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
caption = "Jakeet",
caption.placement = "top",
include.rownames = FALSE,
digits = rep(0, 6)
)
}
}
}
if (nrow(tags) > 0) {
tags_out <- ddply(tags, "Result", nrow)
colnames(tags_out) <- c("Avainsana", "Lukumäärä")
tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
oprint(
tags_out,
caption = "Avainsanojen lukumäärät",
caption.placement = "top",
include.rownames = FALSE,
digits = c(0, 0, 0)
)
ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, 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")
}
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter3 <- list()
filter3$Sivu1 <- sivu
filter3$Versio <- version
filter3$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter3$JaeID1 <- NULL
filter3$Sivu1 <- NULL
filter3$JaeID2 <- jaeid
filter3$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
related <- rel[
rel$Result %in% c(
"tukee tai on linjassa",
"vastustaa tai on ristiriidassa",
"on neutraali suhteessa",
"liittyy",
"edellyttää",
"sisältää",
"vaikuttaa",
"vaikuttaa taloudellisesti"
), ]
related$Result <- as.character(related$Result)
affected <- rel[
rel$Result %in% 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"
), ]
affected$Result <- as.character(affected$Result)
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
related_out <- ddply(related, "Result", nrow)
colnames(related_out) <- c("Relaatio", "Lukumäärä")
affected_out <- ddply(affected, "Result", nrow)
colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
}
if (nrow(related_out > 0)) {
ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
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 (nrow(affected_out > 0)) {
ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, 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>
==Työkalut==
Aineiston työstämiseen tarkoittuja koodeja.


=== Jakeet ===
=== Jakeet ===
Rivi 1 754: Rivi 1 153:


cat("Relaatio poistettiin onnistuneesti.\n")
cat("Relaatio poistettiin onnistuneesti.\n")
</rcode>
== Rikastetun aineiston analysointi - Yhdistelmähakukoneet ==
=== Jaekohtainen avainsanalistaus ===
'''Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat'''
<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
NULL;Kaikilta;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
name:version|description:Versio|type:text|default:nykyinen|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
if (nrow(out) == 0) {
stop("Jakeita ei löytynyt!")
}
filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt!\n")
} else {
# Yhdistetään kunkin jakeen avainsanat yhdelle riville
tags <- ddply(
tags,
c("Versio", "Sivu", "JaeID"),
function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
)
out <- join(
out[c("Versio", "Sivu", "JaeID", "Result")],
tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
by = c("Versio", "Sivu", "JaeID"),
type = "inner",
match = "first"
)
# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
filter_ind <- NULL
if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
filter_ind <- c(filter_ind, "JaeID")
oprint(
out[c(filter_ind, "Result", "Avainsanat")],
include.rownames = FALSE,
show_all = TRUE
)
}
</rcode>
=== Jae-relaatio-jae listaus ===
'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
NULL;Kaikilta;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
name:liitsis|description:Liittymistyyppi (tyhjä = kaikki)|type:checkbox|options:
'tukee tai on linjassa';tukee tai on linjassa;
'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
'on neutraali suhteessa';on neutraali suhteessa;
'liittyy';liittyy;
'edellyttää';edellyttää;
'sisältää';sisältää;
'vaikuttaa';vaikuttaa;
'vaikuttaa taloudellisesti';vaikuttaa taloudellisesti|
name:version|description:Versio|type:text|default:nykyinen|
name:details|description:Näytetäänkö tekniset yksityiskohdat?|type:selection|options:FALSE;Ei, vain jakeiden sisältö;TRUE;Kyllä, myös jakeiden numerot|default:FALSE|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
sis_opt <- c(
'ehdotus huomioitu ja liittyvää painotusta muutettu',
'ehdotus huomioitu ja uusi kohta lisätty',
'ehdotus ei ole antanut aihetta muutoksiin',
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
)
#liit_opt <- c(
# 'tukee tai on linjassa',
# 'vastustaa tai on ristiriidassa',
# 'on neutraali suhteessa',
# 'on uusi linjaus tai painotus'
#)
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter$JaeID1 <- NULL
filter$Sivu1 <- NULL
filter$JaeID2 <- jaeid
filter$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
jakeet <- jaehakukone(
ident,
sivu = unique(c(
as.character(rel$Sivu1),
as.character(rel$Sivu2)
)),
versio = version,
jae = unique(c(
as.character(rel$JaeID1),
as.character(rel$JaeID2)
))
)
if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
# Relaatiot
if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
out <- join(
rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
out <- join(out, jakeet, match = "first")
if(details) {
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
} else {
temp <- out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
temp <- data.frame(
Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
Relaatio = temp$Relaatio,
Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
)
oprint(temp,
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
}
} else {
cat("Ei relaatioita!\n")
}
# Sisällytykset
if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1"
colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
out <- join(
rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Sisällytys (uudempaan versioon)",
caption.placement = "top",
show_all = TRUE
)
} else {
cat("Ei sisällytyksiä!\n")
}
}
</rcode>
=== Avainsana- ja relaatiotietojen analyysi ===
'''Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.'''
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ä tilastoja/jakeita" name="jae_stats" embed=1 graphics=1 variables="
name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
NULL;Kaikki;
'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
'KIDE-hanke';KIDE-hanke;
'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
name:avainsanat|description:Hae jakeita joilla on ainakin yksi seuraavista avainsanoista|type:text|
name:avainsanat_all|description:Hae jakeita joilla on kaikki seuraavat avainsanat|type:text|
name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE|
name:version|description:Versio|type:text|default:nykyinen|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
library(ggplot2)
filter <- list()
if (nchar(gsub(" ", "", avainsanat)) > 0) {
avainsanat <- strsplit(avainsanat, ",")[[1]]
avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat) 
} else {
avainsanat <- NULL
}
if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
#filter$Avainsana <- avainsanat_all
} else {
avainsanat_all <- NULL
}
filter$Sivu <- sivu
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
filter$Versio <- version
if (length(filter) == 0) filter <- NULL
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
jaeid <- NULL
if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
jaeid <- unique(as.character(tags$JaeID))
}
if(!is.null(avainsanat_all)) {
temp <- list()
for (i in 1:nrow(jaeid)) {
temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
}
temp <- lapply(temp, all)
jaeid <- jaeid[temp]
tags <- tags[tags$JaeID %in% jaeid,]
}
if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt.\n")
}
if (is.null(filter)) {
filter2 <- list()
} else {
filter2 <- filter
}
filter2$JaeID <- jaeid
if (length(filter2) == 0) filter2 <- NULL
if (jaelista) {
jakeet <- jaehakukone(
ident,
sivu = filter2$Sivu, # *list$non-existent returns NULL
versio = filter2$Versio,
jae = filter2$JaeID
)
if (nrow(jakeet) == 0) {
cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
} else {
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
tagged <- NULL
if (nrow(tags) > 0) {
#tagged <- join(
# jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
# tags[c("Versio", "Sivu", "JaeID", "Result")]
#)
#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
tagged <- as.data.frame(as.table(tagged))
colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
tagged <- join(
jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],
tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
type = "inner",
match = "first"
)
oprint(
tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
caption = "Jakeet",
caption.placement = "top",
include.rownames = FALSE,
digits = rep(0, 6)
)
}
}
}
if (nrow(tags) > 0) {
tags_out <- ddply(tags, "Result", nrow)
colnames(tags_out) <- c("Avainsana", "Lukumäärä")
tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
oprint(
tags_out,
caption = "Avainsanojen lukumäärät",
caption.placement = "top",
include.rownames = FALSE,
digits = c(0, 0, 0)
)
ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, 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")
}
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter3 <- list()
filter3$Sivu1 <- sivu
filter3$Versio <- version
filter3$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter3$JaeID1 <- NULL
filter3$Sivu1 <- NULL
filter3$JaeID2 <- jaeid
filter3$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
related <- rel[
rel$Result %in% c(
"tukee tai on linjassa",
"vastustaa tai on ristiriidassa",
"on neutraali suhteessa",
"liittyy",
"edellyttää",
"sisältää",
"vaikuttaa",
"vaikuttaa taloudellisesti"
), ]
related$Result <- as.character(related$Result)
affected <- rel[
rel$Result %in% 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"
), ]
affected$Result <- as.character(affected$Result)
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
related_out <- ddply(related, "Result", nrow)
colnames(related_out) <- c("Relaatio", "Lukumäärä")
affected_out <- ddply(affected, "Result", nrow)
colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
}
if (nrow(related_out > 0)) {
ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
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 (nrow(affected_out > 0)) {
ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, 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>
</rcode>

Versio 29. joulukuuta 2014 kello 11.32



Linkkejä aineistoon


Havaintoja aineistosta

Dokumentin rikastusasteen status määritellään termein Asiasanoitus ja Linkitys. Edellinen tarkoittaa jakeiden (lauseiden) tägitystä tärkeimmin asiasanoin (ks. minimitägiluettelo kohdasta Lisää tähän omia ehdotuksia asiasanoiksi) ja jälkimmäinen dokumenttien ristiinlinkitystä sopivin predikaatein (ks. kohta Lisää tähän omia ehdotuksia relaatioiksi).


Status: Asiasanoitus (käynnissä)

Havainnot:



Asiasanoitus ja relaatiot

YSO-pohjainen asiasanoitus

Yleiseen suomalaiseen ontologiaan pohjautuva asiasanoitus. Täydellinen listaus kategorian Viestintä. Tietoverkot. Tietotekniikka. asiasanoista löytyy laajennettavassa muodossa alta julkisen hallinnon ontologian JUHO:n alta:


Viestintä. Tietoverkot. Tietotekniikka.


Aluehallinto. Aluepolitiikka.


Elinkeinot. Teollisuus. Kilpailu


Hallinto. Johtaminen. Henkilöstö.


Lisää tähän omia ehdotuksia asiasanoiksi

Päätös, Vaikutus, Arvo, Data, Huomio, Päätavoite, Tavoite, Toimenpide


Lisää tähän omia ehdotuksia relaatioiksi

tukee tai on linjassa, vastustaa tai on ristiriidassa, on neutraali suhteessa, liittyy, edellyttää, sisältää, vaikuttaa, vaikuttaa taloudellisesti



Tägikone

Käyttöohje

Tägikoneen idea on pitää yllä jaetietokantaa ja määritellään jakeille avainsanoja ja relaatoita joiden tarkoitus on rikastaa sivustolla käydystä keskustelusta analyysikelpoista yleisemmän tason tietoa.

#Jakeet määritellään koodilla joka lukee wikisivuilta tekstiä kappaleittain (myös taulukot ja bullet pointit). Jakeisiin lisätään myös kommentointityökalulla tehdyt kommentit, joita ei vielä ole siirretty wikitekstiin, sekä tämän sivun koodilla lisätyt jakeet. Kullakin jakeella on oma tunniste (JaeID) joka on sivukohtainen. Etsimällä jaehakukoneesta oman kommenttisi ja kopioimalla JaeID:n muihin sivun hakukoneisiin voit tarkastella kommenttiisi liitettyjä tägitietoja.

#Avainsanat ovat jaekohtaisia ja ne lisätään yleensä käsityönä. Avainsanoituksen tekee joko kommentoija itse tai moderaattori.

#Relaatiot voidaan määritellä kahden jakeen välille (myös käsityötä). Relaatiot lisää joko kommentoija itse tai moderaattori.

#Versiot - wikisivuja päivitetään mahdollisesti jatkuvasti, minkä johdosta versiointi on tarpeellista. Hakukoneissa esiintyvä Versio-kentän arvo 'nykyinen' hakee koko hankkeen uusimman version. Koska jakeet ovat versiokohtaisia niin avainsanat ja relaatiot ovat myös versiokohtaisia. Avainsanojen ja relaatioiden automaattista periytymistä on kehitetty, mutta koodi on vielä kesken .


Versiot

Versiot(OldID)
ObsVersioSivuIdentResult
1121 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraporttiOp_fi4748
21Asiakaspalvelu 2014 loppuraporttiOp_fi4751
31Julkisen hallinnon asiakkuusstrategiaOp_fi4746
41Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020Op_fi4734
51Kansallinen paikkatietostrategiaOp_fi4744
61Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015Op_fi4736
71Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujilleOp_fi4740
81KIDE-hankeOp_fi4750
91Opetus- ja kulttuuriministeriön älystrategiaOp_fi4742
101Rakennepoliittinen ohjelmaOp_fi4749
111Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014Op_fi4743
121Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020Op_fi4739
131Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestäOp_fi4737
141Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiastaOp_fi4738
151Valtioneuvoston periaatepäätös sähköisestä tunnistamisestaOp_fi4741
161Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisestaOp_fi4745
171Vaikuttavuus- ja tuloksellisuusohjelma (VATU)Op_fi4747
181Valtion_konesalistrategia_2014Op_fi4724


Jakeiden päivitys

Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi

--Smxb (keskustelu) 14. joulukuuta 2014 kello 21.33 (UTC)ÄLÄ PÄIVITÄ JAKEITA TOISTAISEKSI (koodi alla mutta poistamalla '<'-merkki alusta on tämä koodinpätkä toistaiseksi poistettu käytöstä varmuuden vuoksi)!

rcode label="Päivitä jakeet" variables=" name:ident|type:hidden|default:'Op_fi4735'| name:pagename|type:hidden|default:'Strategiadatan analyysi' "> library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot")

versiot <- get_meta_data(ident)

  1. version <- max(as.numeric(as.character(versiot$Versio)))
  1. names <- as.character(versiot$Sivu[versiot$Versio == version])

url <- gsub(" ", "_", versiot$Sivu) old_id <- versiot$Result old_id <- paste("&oldid=", old_id, sep = "")

out <- data.frame()

for (i in 1:length(url)) { temp <- parse_page(url[i], old_id[i], res = "sentence") temp$Sivu <- versiot$Sivu[i] temp$Versio <- versiot$Versio[i] out <- rbind(out, temp) }

  1. out$Versio <- version

out <- out[c("Versio", "Sivu", "Aihe", "JaeID", "Result")]

opbase.upload( out, name = pagename, who = wiki_username, subset = "Jakeet" ) </rcode>


Työkalut

Aineiston työstämiseen tarkoittuja koodeja.


Jakeet

Jaehakukone

Hakee jakeita annetuilla kriteereillä. Näyttää myös tekniset sarakkeet. Vapaakenttiin voi laittaa useita arvoja erottelemalla ne pilkuilla.

Sivu jolta jakeita haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

Missä muodossa tulostetaan?:

+ Näytä koodi

Jakeenlisäyskone

Lisää tietokantaan vapaasti määriteltävän jakeen. Lisätyt jakeet näkyvät tämän sivun hakukoneissa. Niiden JaeID:llä on "L"-etuliite.

Sivu jolle jae lisätään:

Versio:

Jakeen sisältö:

+ Näytä koodi

Jakeenpoistokone

Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.

Poistettavan jakeen sivu:

Poistettavan jakeen ID (pilkulla eroteltuna useampia):

Versio:

Poiston syy:

+ Näytä koodi


Avainsanat

Avainsanahakukone

Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka avainsanoja haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

+ Näytä koodi

Avainsanoitus

Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.

Minkä sivun jakeelle haluat lisätä avainsanoja?:

Mikä on jakeen versio?:

Mikä on jakeen ID?:

Valitse alla olevasta listasta yleisiä avainsanoja.:
A Päätös (jae sisältää päätös- tai toimintaehdotuksen)
B Vaikutus (jae kuvaa ilmiötä tai vaikutusta)
C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä)
D Data (sisältää numeroarvoja, tekstidataa tai viitteen edellisiin)
E Huomio (jae on sisällöltään huomioitava myöhemmin sen merkityksellisyydestä tai epäselvyydestä johtuen)
H Päätavoite
F Tavoite
G Toimenpide

Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.:

+ Näytä koodi

Avainsanan poisto

Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.

Poistettavan avainsanan ID (pilkulla eroteltuna useampia):

Mikä versio on kyseessä?:

Poiston syy:

+ Näytä koodi


Relaatiot

Relaatiohakukone

Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka relaatioita haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

+ Näytä koodi

Relaation lisääminen

Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen.

Mikä on lähtöjakeen sivu?:

Mikä on lähtöjakeen ID?:

Mikä on lähtöjakeen versio?:

Mikä on kohdejakeen sivu?:

Mikä on kohdejakeen ID?:

Kuinka lähtöjae liittyy kohdejakeeseen?:

VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.:

+ Näytä koodi

Relaation poisto

Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.

Poistettavan relaation ID (pilkulla eroteltuna useampia):

Mikä versio on kyseessä?:

Poiston syy:

+ Näytä koodi


Rikastetun aineiston analysointi - Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat

Sivu jolta jakeita haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

+ Näytä koodi

Jae-relaatio-jae listaus

Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin

Sivu jolta relaatioita haetaan:

Anna halutessasi jakeen ID(:t):

Liittymistyyppi (tyhjä = kaikki):
tukee tai on linjassa
vastustaa tai on ristiriidassa
on neutraali suhteessa
liittyy
edellyttää
sisältää
vaikuttaa
vaikuttaa taloudellisesti

Versio:

Näytetäänkö tekniset yksityiskohdat?:

+ Näytä koodi

Avainsana- ja relaatiotietojen analyysi

Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.

Käytetyt avainsanat:


Minkä sivun jakeita haluat tarkastella?:

Hae jakeita joilla on ainakin yksi seuraavista avainsanoista:

Hae jakeita joilla on kaikki seuraavat avainsanat:

Haluatko nähdä kaikki löydetyt jakeet?:

Versio:

+ Näytä koodi

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Strategiadatan_analyysi&oldid=27971”