+ Näytä koodi- Piilota koodi
library(OpasnetUtils)
objects.latest("Op_en3861",code_name="ecd_create")
## Ehdotus sosiaali- ja terveyspalveluiden uudeksi kansalliseksi mittaristoksi VN-TEAS 15.3.2017 http://tietokayttoon.fi/julkaisu?pubid=18701
## http://alueuudistus.fi/tietojohtaminen
## KUVA-mittaristo 23.4.2018 http://alueuudistus.fi/documents/1477425/4439893/Sote-KUVA-mittaristoluonnos+23.4.+2018.xlsx/3ffc2fce-04c9-4c96-a21d-fb217310dbd5
## Kuva-indikaattorit drivessä https://docs.google.com/spreadsheets/d/1OJntWc-ivrCDi9RkCAyWdggA3VCm-BM98rp6H5u3diI/edit#gid=0
## Hyte-indikaattorit drivessä https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0
## Tietoikkuna https://proto.thl.fi/tietoikkuna/#/chart?indicatorId=3775®ionId=953
## Sotkanet https://www.sotkanet.fi/sotkanet/fi/metadata/indicators/3775
## Kouluterveyskysely https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1/199464
sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/"
kouluterveyskysely <- "https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/summary_perustulokset?alue_0=87869&mittarit_0=200138&mittarit_1=187196&mittarit_2=199373&vuosi_2017_0=v2017"
kouluterveyskysely <- "https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1?row=measure-200346.199405.199681.199445.199678.199701.199935.200120.199469.199308.199973.200279.200316.199604.&column=time-199465&column=stage_of_stady-161293.161123.161219.#" # Keskeiset ympäristöterveyden oire- ja olosuhdeindikaattorit eri kouluasteilla
tietoikkuna <- "https://proto.thl.fi/tietoikkuna/#/chart?indicatorId="
# Sotkanet.ID = tietoikkuna.indicatorID
d1 <- html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[5]]
for (i in 1:(ncol(d1) - 1)) {
for (j in 2:nrow(d1)) {
if (d1[j, i] == "") d1[j, i] <- d1[j - 1, i]
}
}
for(i in ncol(d1)) d1[[i]] <- as.character(d1[[i]])
d2 <- html_table(read_html("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0"))[[1]]
d2 <- d2[10:104, 1:17]
colnames(d2) <- c(
"Id",
"AHVK", # Alueellinen hyvinvointikertomus
"Asia",
"Tehtäväkokonaisuus",
"Ulottuvuus",
"Osiotyyppi",
"Tietolähde",
"Kuvaid",
"Sotkanetid",
"JHS",
"Perustelut",
"Taso",
"Tiheys",
"Viive",
"Velvoite",
"Huom",
"Viite"
)
for(i in ncol(d2)) d2[[i]] <- as.character(d2[[i]])
d3 <- rbind(
data.frame( # Tämä osa voidaan jättää huomiotta sitten, kun JHS-luokka-sarake on täytetty.
Luokka = "Hyte-indikaattori",
Asia = d2$Asia,
Predikaatti = "tehtäväkokonaisuus",
Objekti = d2$Tehtäväkokonaisuus,
URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, substr(d2$Sotkanetid,1,4), sep="")),
Kuvaus = d2$Perustelut
),
# data.frame( # Now only 2018 indiactors used
# Luokka = "Hyte-indikaattori",
# Asia = d2$Asia,
# Predikaatti = "on voimassa",
# Objekti = as.character(d2$Vuosi),
# URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, d2$Sotkanetid, sep="")),
# Kuvaus = d2$Perustelut
# ),
data.frame(
Luokka = NA,
Asia = d2$Asia,
Predikaatti = "on osana",
Objekti = ifelse(d2$AHVK=="x", "Alueellinen hyvinvointikertomus", NA),
URL = NA,
Kuvaus = d2$Perustelut
),
data.frame(
Luokka = NA,
Asia = d2$Asia,
Predikaatti = "ulottuvuus",
Objekti = d2$Ulottuvuus,
URL = NA,
Kuvaus = d2$Perustelut
),
data.frame(
Luokka = NA,
Asia = d2$Asia,
Predikaatti = "osiotyyppi",
Objekti = d2$Osiotyyppi,
URL = NA,
Kuvaus = d2$Perustelut
),
data.frame(
Luokka = NA,
Asia = d2$Asia,
Predikaatti = "discussed in",
Objekti = d2$Tietolähde,
URL = NA,
Kuvaus = d2$Perustelut
),
data.frame(
Luokka = NA,
Asia = d2$Asia,
Predikaatti = "JHS-luokka",
Objekti = tolower(d2$JHS),
URL = NA,
Kuvaus = d2$Perustelut
)
)
d3$Lyhenne <- substr(d3$Asia,1,20)
d3 <- rbind(cbind(d1, URL=NA), d3)
gr <- ecd_create(NA, removes=NULL,d3,spliz=c("Luokka"))
export_graph(gr, "test7.png")
render_graph(gr)
gr2 <- select_nodes_in_neighborhood(gr, node=12,distance=2)
get_selection(gr2)
render_graph(transform_to_subgraph_ws(gr2))
| |