Näkemysverkko

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi5849
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Näkemysverkko on graafiteorian mukainen kuvaus asioista ja niiden välisistä suhteista. Se voidaan kuvata taulukkona, RDF-tietokantana tai kuvana verkostosta. Tällä sivulla on listattu tärkeitä (suomalaisia) näkemysverkkoja. Menetelmä näkemysverkkojen käyttämiseen on kuvattu sivulla op_en:Insight diagram.

Kysymys

Mitkä ovat tärkeitä näkemysverkkoja ympäristön ja terveyden tai muiden asioiden kannalta? Millaisia rakenteita niiden kuvaamiseen tarvitaan?

Vastaus

+ Näytä koodi- Piilota koodi # This is code Op_fi5849 on page [[Näkemysverkko]] library(OpasnetUtils) library(DiagrammeR) library(shiny) objects.latest("Op_fi5849",code_name="preprocess") # [[Näkemysverkko]] gr, objtypes, seeds objects.latest("Op_en3861",code_name="makeUi") # [[Insight network]] ui (makeUi) objects.latest("Op_en3861",code_name="server") # [[Insight network]] server shinyApp(ui, server, enableBookmarking = "url")

Perustelut

Data

Näkemysverkkojen tietolähteet

Tässä taulukossa on listattuna kaikki ne taulukot ja tietolähteet, joita käytetään ilmiötarkastelun syykaavioiden rakentamiseen. Alkurivi: ensimmäinen rivi, jolla on dataa (ei siis otsikkorivi); taulu: monesko taulukko tai keskustelu kyseiseltä sivulta luetaan (jos ei ole numeroa, luetaan kaikki); PRL-runko: tietolähteestä löytyville asioille voidaan antaa pysyvä sijainti (permanent resource location), jonka nimi alkaa PRL-rungolla ja loppuosa saadaan tietolähteen taulukosta. Erityypeissä tietolähteissä käytetyt sarakkeiden nimet on kuvattu (huom: olennaista ei ole sarakkeen nimi vaan sisältö) on kuvattu sivulla op_en:Insight network#Types of insight network tables.

Tietolähteet(-)

Obs	Nimi	Kuvaus	Tunniste	Tyyppi	Taulu	Alkurivi	URL	Numerointi	PRL-runko
1	Yleinen	Asiat, jotka esiintyvät usean ryhmän tarkastelussa. Sivulla Ilmiötyön rajauksen pohdintaa.	Yle	oletus	4		https://yhteistyotilat.fi/wiki08/x/1oGxAg	1
2	Lasten lihavuus	Lasten lihavuuteen liittyvät asiat. Sivulla Lasten lihavuus.	LasL	oletus	4		https://yhteistyotilat.fi/wiki08/x/5QWwAg	1
3	Ympäristöterveys	Ympäristöterveyteen liittyvät asiat sivulla Ympäristöterveys	YmpT	oletus	5		https://yhteistyotilat.fi/wiki08/x/w4W7Ag	1
4	Luokittelut	Yleiset luokittelut kuten JHS-luokka, tehtäväkokonaisuus, ulottuvuus ja osiotyyppi tehtäväkokonaisuuksille	Yle	oletus	5		https://yhteistyotilat.fi/wiki08/x/1oGxAg	1
5	HYTE	Data kopioitu 6.5.2018 tiedostosta V:\SOTE-ARVIOINTI-01_03_2018\Tehtäväkokonaisuudet\Hyvinvoinnin ja terveyden edistäminen\Indikaattoriehdotukset HYTE_Indikaattorien valinta-lomake_2018_05_04_VALMIS.xlsx # Indikaattorivalinnat	Hyte	sotearv		3	https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0	1
6	LAPE	Data kopioitu 6.5.2018 tiedostosta V:\SOTE-ARVIOINTI-01_03_2018\Tehtäväkokonaisuudet\Lasten, nuorten ja perheiden palvelut\Indikaattorien valinta-lanupe.xlsx # Indikaattorivalinnat	Lape	sotearv		10	https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=2010476788	1
7	Aikuisten lihavuus	Aikuisten lihavuus ja diabetes	AikL	oletus	5		https://yhteistyotilat.fi/wiki08/x/WQmwAg	1
8	Hiilineutraali Helsinki 2035 toimenpiteet	Hiilineutraali Helsinki 2035 -ohjelman toimenpiteet http://www.stadinilmasto.fi/	HNH2035	hnh2035		6	https://docs.google.com/spreadsheets/d/1ejh-esNcuTjhoPWWqN7rC80xFtKKXu2n7PIUCDSOR98/edit#gid=885669064	1
9	Sote-KUVA-indikaattorit	Sote-KUVA-työssä tuotetut indikaattorit	Kuva	kuvaind		2	https://docs.google.com/spreadsheets/d/1OJntWc-ivrCDi9RkCAyWdggA3VCm-BM98rp6H5u3diI/edit#gid=0	1
10	Sitran 100 ilmastotekoa	Sitran 100 ilmastotekoa. https://www.sitra.fi/hankkeet/100-fiksua-arjen-tekoa/	Sitra100	oletus		2	https://docs.google.com/spreadsheets/d/120Yn1rEaNNETw2b-_eJkf7PUhgmsBeu3DGb_6HwC_Z4/edit#gid=0	1
11	Kunnan hyvinvointikertomus	Kunnallisen hyvinvointikertomuksen indikaattorit https://thl.fi/fi/web/hyvinvoinnin-ja-terveyden-edistamisen-johtaminen/hyvinvointijohtaminen/hyvinvointijohtaminen-kunnassa/kunnan-hyvinvointikertomus/tietolahteet	HVkert	hvkertomus		2	https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=1514931152	1
12	Alueellinen hyvinvointikertomus	Alueellisen hyvinvointikertomuksen indikaattorit https://thl.fi/fi/web/hyvinvoinnin-ja-terveyden-edistamisen-johtaminen/hyvinvointijohtaminen/hyvinvointijohtaminen-kunnassa/kunnan-hyvinvointikertomus/tietolahteet	HVkert	hvkertomus		2	https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=63178252	101
13	Hiilineutraali Helsinki -ohjelman toimijat ja osallistujat	Hiilineutraali Helsinki -ohjelman keskeiset toimijat ja osallistujat.	HNH2035	oletus	2		http://fi.opasnet.org/fi/Hiilineutraali_Helsinki_2035	201
14	Why dioxin is a problem	Goherr-projektin kaavio Miksi dioksiini on ongelma	Goherr	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=0	1
15	Bioaccumulation of dioxin	Goherr-projektin kaavio Dioksiinien biokertyminen	Goherr	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=718765074	1
16	Dioxin governance related to food in EU	Goherr-projektin kaavio Dioksiinien hallinta ruoassa EUssa.	Goherr	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=1967476096	1
17	EFSA scientific advice process	Goherr-projektin kuvaus EFSAn tieteellisestä neuvonnasta	Goherr	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=1712295356	1
18	Fisheries management process	Kalakantojen hallinnointiprosessi	Goherr	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=404678250	1
19	Congestion charge discussion	Keskustelut ruuhkamaksuista Helsingissä (10 kpl)	CongC	keskustelu			http://en.opasnet.org/w/Talk:Congestion_charge	1
20	HIA of swine flu and Pandemrix	Keskustelu Pandemrix-rokotteen tehosta ja turvallisuudesta	H1N1	keskustelu			http://en.opasnet.org/w/Talk:Assessment_of_the_health_impacts_of_H1N1_vaccination	1
21	Example discussion	Esimerkkikeskustelu, jossa käytetään erilaisia relaatioita ja totuusarvoja	DiscEx	keskustelu		2	http://en.opasnet.org/w/Discussion	1
22	Sitran Helsinki-yhteydet	Asioita, jotka kytkeytyvät sekä Sitran 100 tekoon että Helsingin ilmasto-ohjelmaan	Ilmasto	oletus		2	https://docs.google.com/spreadsheets/d/120Yn1rEaNNETw2b-_eJkf7PUhgmsBeu3DGb_6HwC_Z4/edit#gid=775565603	1
23	Ruuhkamaksukytkennät	Asioita, jotka kytkeytyvät sekä ruuhkamaksukeskusteluun että Helsingin ilmasto-ohjelmaan	CongC	oletus		2	https://docs.google.com/spreadsheets/d/120Yn1rEaNNETw2b-_eJkf7PUhgmsBeu3DGb_6HwC_Z4/edit#gid=415237453	1
24	Goherr benefit-risk assessment	Goherr-hyöty-riskinarvioinnin malli ja siitä muodostettu odag	Goherr	arviointi			Op_en7748/goherr2/goherr	201
25	Avoimuus vai harkinta	Bengt Holmströmin aloittama keskustelu avoimuuden haitoista päätöksenteossa	AvoHark	keskustelu			http://fi.opasnet.org/fi/Keskustelu:Jaettu_ymmärrys	1
26	Avoin tiedeyhteistö	Avoin tiede ja tutkimus -hankkeen moderoima keskustelu tieteen avoimuuden hyödyistä	AvoTie	oletus		2	https://docs.google.com/spreadsheets/d/1Jw347vTdiO63p0ZuL48NR9wXHgbWXxQZmg_5z5QiWUk/edit#gid=1629940129	1
27	EFSA dioxin reassessment	A reassessment of tolerable weekly intake of dioxin by EFSA expert group	EFSA	oletus		2	https://docs.google.com/spreadsheets/d/1qX_nUpFhV99joP285xROA6k0E5tzuEySH4DT1RNpYHM/edit#gid=1267228951	1
28	Lasten ja nuorten mielenterveys	Sote-ilmiöprojektin hanke, joka tarkastelee lasten ja nuorten mielenterveysongelmia ja niiden hoitoa ja indikaattoreita	LaNuMi	oletus	6		https://yhteistyotilat.fi/wiki08/x/VQmwAg	1
29	Goherr recommendation discussion	Discussion about what recommendations should be given based on premises and Goherr results	Goherr	keskustelu			http://en.opasnet.org/w/Talk:Goherr:_Project	1

Näkemysverkkojen alkusolmut

Taulukossa on niiden solmujen tunnisteet (Oldid), jotka näytetään heti teeman valitsemisen jälkeen.

Alkusolmut(-)

Obs	Topic	Node	Label	Dummy
1	EFSA reassessment	EFSA.1	dioxin concentration in food	0
2	EFSA reassessment	EFSA.2	dioxin exposure	0
3	EFSA reassessment	EFSA.3	dioxin exposure-response function on sperm concentrations	0
4	EFSA reassessment	EFSA.4	lowest observable adverse effect level for dioxin	0
5	EFSA reassessment	EFSA.5	tolerable weekly intake of dioxin	0
6	EFSA reassessment	EFSA.6	burden of disease	0
7	Avoin tiede	AvoTie.26	sisällön laatu	0
8	Avoin tiede	AvoTie.38	hyvän tieteen kriteerit	0
9	Avoin tiede	AvoTie.1	avointa tiedeyhteisöä on kehitettävä	0
10	Avoin tiede	AvoTie.2	tutkimustieto julki nopeammin	0
11	Avoin tiede	AvoTie.3	yhteiskehittäminen auttaa jäsentämään tietoa	0
12	Avoin tiede	AvoTie.4	tutkimustiedon näkyvyys ja käytettävyys paranee	0
13	Avoin tiede	AvoTie.78	avoimen päätöksentekokäytännön toimintaperiaatteet	0
14	Avoin tiede	AvoTie.79	Suomen tieteen kilpailukyky	0
15	Avoin tiede	AvoTie.80	pitkäjänteinen rahoitus	0
16	Avoin tiede	AvoTie.81	tutkimustyön toimivuus	0
17	Avoin tiede	AvoTie.82	tutkimustyön yhteiskunnallinen merkitys	0
18	Politiikan avoimuus	AvoHark.julkisuushaitta.openin	Avoimuudesta on vakavaa haitta	0
19	Politiikan avoimuus	AvoHark.julkisuusjatkumo.arg13	Ulkoinen uhka mahdollistaa sulkemisen	0
20	Politiikan avoimuus	AvoHark.julkisuushaitta.arg2	Avoimuus estää päättämästä huolella	0
21	Politiikan avoimuus	AvoHark.julkisuushaitta.arg1	Some pakottaa poliitikot jatkuvaan rooliin	0
22	Politiikan avoimuus	AvoHark.julkisuusjatkumo.closi	Julkisuuden rajoittaminen vähentäisi haittoja mutta ehkä aiheuttaisi isoja ongelmia avoimuudelle	0
23	Politiikan avoimuus	AvoHark.julkisuushaitta.closin	Julkisuus haittaa politiikan laatua kytkeytyessään ykköstyypin ajatteluun	0
24	Politiikan avoimuus	AvoHark.julkisuusjatkumo.openi	Avoimuusjatkumolla länsimaiden	0
25	THL ja ilmastonmuutos	YmpT.2	Batman-hanke	0
26	THL ja ilmastonmuutos	YmpT.5	pienhiukkasaltistus	0
27	THL ja ilmastonmuutos	YmpT.6	pienhiukkaspitoisuus	0
28	THL ja ilmastonmuutos	YmpT.15	pienhiukkaspitoisuuden väestöpainotettu vuosikeskiarvo	0
29	THL ja ilmastonmuutos	YmpT.28	tulisijanormi	0
30	THL ja ilmastonmuutos	YmpT.32	kunta	0
31	THL ja ilmastonmuutos	YmpT.61	tautitaakka	0
32	THL ja ilmastonmuutos	YmpT.70	ilmastopäästö	0
33	THL ja ilmastonmuutos	YmpT.73	mustahiili	0
34	THL ja ilmastonmuutos	YmpT.74	pienhiukkasaltistus	0
35	THL ja ilmastonmuutos	YmpT.76	sää- ja ilmastoriskit Suomessa	0
36	THL ja ilmastonmuutos	YmpT.77	ilmastosopeutuminen	0
37	THL ja ilmastonmuutos	YmpT.79	ilmastohillintä	0
38	THL ja ilmastonmuutos	YmpT.81	pienpolton lisääminen	0
39	THL ja ilmastonmuutos	YmpT.83	Helsingin energiapäätös	0
40	THL ja ilmastonmuutos	YmpT.85	liikennepäästö	0
41	THL ja ilmastonmuutos	YmpT.88	ruuhkamaksu	0
42	THL ja ilmastonmuutos	YmpT.84	ajoneuvoliikenteen hinnoittelu	0
43	THL ja ilmastonmuutos	CongC.health.closingStatement	CC may improve health	0
44	THL ja ilmastonmuutos	Ilmasto.102	Ilmansaasteiden terveysvaikutukset Helsingissä	0
45	Selitykset	YmpT.94	tietoaineisto	0
46	Selitykset	YmpT.95	riskitekijä	0
47	Selitykset	YmpT.96	päätös	0
48	Selitykset	YmpT.97	toimenpide	0
49	Selitykset	YmpT.98	tavoite	0
50	Selitykset	YmpT.99	substanssi	0
51	Selitykset	YmpT.100	arviointi	0
52	Selitykset	YmpT.101	tosiasiaväite	0
53	Selitykset	YmpT.102	julkaisu	0
54	Ymparistoterveys	YmpT.7	melu	0
55	Ymparistoterveys	YmpT.8	radon	0
56	Ymparistoterveys	YmpT.9	tupakointi	0
57	Ymparistoterveys	YmpT.12	ruokamyrkytys	0
58	Ymparistoterveys	YmpT.13	vesiepidemia	0
59	Ymparistoterveys	YmpT.36	hengityselinoire	0
60	Ymparistoterveys	YmpT.37	vatsatauti	0
61	Lasten lihavuus	LasL.1	lasten lihavuus	0
62	Lasten lihavuus	LasL.5	ravitsemus	0
63	Lasten lihavuus	LasL.8	aktiivisuus	0
64	Lasten lihavuus	LasL.12	muu mekanismi	0
65	Aikuisten lihavuus	AikL.33	lihavuus	0
66	Aikuisten lihavuus	AikL.34	diabetes	0
67	Helsingin ilmasto-ohjelma	HNH2035.42000	Kymp	0
68	Helsingin ilmasto-ohjelma	HNH2035.4	Ruokapalveluiden reseptiuudistus	0
69	Helsingin ilmasto-ohjelma	HNH2035.28000	Kanslia	0
70	Helsingin ilmasto-ohjelma	HNH2035.139	Kaupungin omassa toiminnan ja	0
71	Helsingin ilmasto-ohjelma	HNH2035.47000	Maka	0
72	Helsingin ilmasto-ohjelma	HNH2035.10	Ajoneuvoliikenteen hinnoittelu	0
73	Helsingin ilmasto-ohjelma	Ilmasto.50	Sähköautojen julkinen latausinfra	0
74	Helsingin ilmasto-ohjelma	Ilmasto.51	Sähköautoilu	0
75	Helsingin ilmasto-ohjelma	HNH2035.1	Liikenteen solmukohtien palvel	0
76	Helsingin ilmasto-ohjelma	HNH2035.2	Pyöräliikenteen kantakaupungin tavoiteverkko 2025	0
77	Benefit-risk assessment of fish	Goherr.Ova6	BoD	0
78	Benefit-risk assessment of fish	Goherr.Ova36	info	0
79	Benefit-risk assessment of fish	Goherr.Ova31	exposure	0
80	Benefit-risk assessment of fish	Goherr.104	Disease burden	0
81	Benefit-risk assessment of fish	Goherr.Ova2	amount	0
82	Baltic fish governance	Goherr.509	EFSA	0
83	Baltic fish governance	Goherr.511	European Commission	0
84	Baltic fish governance	Goherr.507	Scientific opinion	0
85	Baltic fish governance	Goherr.508	Max dioxin lvls	0
86	Ruuhkamaksu	CongC.airquality.closingStatem	CC improves air quality	0
87	Ruuhkamaksu	CongC.health.closingStatement	CC may improve health	0
88	Ruuhkamaksu	CongC.indivchoice.closingStata	CC may constrain choice	0
89	Ruuhkamaksu	CongC.caruse.closingStatement	CC does not increase traffic	0
90	Ruuhkamaksu	CongC.capital.closingStatement	CC does not restrict mobility or growth	0
91	Ruuhkamaksu	CongC.toxicity.closingStatemen	Toxicity charge is problematic	0
92	Ruuhkamaksu	CongC.tragedy.closingStatement	CC prevents tragedy of commons	0
93	Ruuhkamaksu	CongC.dynamic.closingStatement	CC needs to be dynamic	0
94	Ruuhkamaksu	CongC.inefficient.closingState	CC is innefficient in the future	0
95	Ruuhkamaksu	CongC.equality.closingStatemen	Inhabitants must be subsidised	0
96	Ruuhkamaksu	CongC.airquality.openingStatem	Congestion charge scheme doesn	0
97	Ruuhkamaksu	CongC.health.openingStatement	Congestion charge scheme will	0
98	Pandemrix flu vaccine discussion	H1N1.Pandemrix.closingStatemen	Not accepted. Pandemrix is sti	0
99	Pandemrix flu vaccine discussion	H1N1.Pandemrix.openingStatemen	Pandemrix should not be used a	0
100	Sitran 100 ilmastotekoa	Sitra100.17	Vegaanihaaste/lihaton lokakuu	0
101	Sitran 100 ilmastotekoa	HNH2035.93	Kaupungin ruokapalveluiden reseptien kehitys	0
102	Sitran 100 ilmastotekoa	Ilmasto.4	Ruokapalveluiden reseptiuudistus	0
103	Sitran 100 ilmastotekoa	Sitra100.12	Vaihdan veden ruokajuomaksi	0
104	Sitran 100 ilmastotekoa	Sitra100.20	Vaihdan pun. lihan kalaan/kanaan	0
105	Sitran 100 ilmastotekoa	Sitra100.4	Yhden lautasen taktiikka	0
106	Sitran 100 ilmastotekoa	HNH2035.100	Merellisen strategian ilmastohuomiot	0
107	Sitran 100 ilmastotekoa	Ilmasto.7	Uusi merellinen strategia	0
108	Sitran 100 ilmastotekoa	Sitra100.75	Suppaan melon soudan	0
109	Sitran 100 ilmastotekoa	Sitra100.80	Lomailen viikonlopun kotona	0
110	Sitran 100 ilmastotekoa	Sitra100.83	Lomailen junailemalla	0
111	Sitran 100 ilmastotekoa	Sitra100.37	Luovun autostani	0
112	Sitran 100 ilmastotekoa	Ilmasto.36	Hyvä teko -teema	0
113	Sitran 100 ilmastotekoa	Ilmasto.37	Liikkumisteema	0
114	Sitran 100 ilmastotekoa	Ilmasto.33	Asumisteema	0
115	Sitran 100 ilmastotekoa	Ilmasto.34	Palveluteema	0
116	Sitran 100 ilmastotekoa	Ilmasto.35	Matkailuteema	0
117	Sitran 100 ilmastotekoa	Ilmasto.32	Ruokateema	0
118	Lasten ja nuorten mielenterveys	LaNuMi.1	lasten ja nuorten mielenterveysongelmat	0
119	Lasten ja nuorten mielenterveys	LaNuMi.2	mielenterveyspalvelujen käyttö	0
120	Lasten ja nuorten mielenterveys	LaNuMi.3	palvelujen käyttö lisääntynyt	0
121	Lasten ja nuorten mielenterveys	LaNuMi.20	mielenterveyden tukeminen	0
122	Lasten ja nuorten mielenterveys	LaNuMi.21	mielenterveyden suojatekijät	0
123	Lasten ja nuorten mielenterveys	LaNuMi.29	terveyden edistäminen	0
124	Lasten ja nuorten mielenterveys	LaNuMi.30	perusterveydenhuolto	0
125	Tyhjä	Tyhjä.1	Tyhjä pöytä	0

Laskenta

Graafiolion luominen

Tämä koodi tuottaa graafiolion lähtien alkuperäisdatasta.

• Ajo 26.9.2018 sisältäen avoimen tieteen [1]
• Ajo 28.9.2018 sisältäen lasten ja muorten mielenterveyden [2]
• Ajo 3.10.2018 [3]
• Ajo 7.10.2018 [4]
• arg2334: . Koodissa on jokin bugi, katso ajo [5]. --Jouni Tuomisto (keskustelu) 2. marraskuuta 2018 kello 11.33 (UTC) (type: ; paradigms: science: relevant attack)

arg5019: . DO NOT RUN THIS UNTIL THE GOHERR ASSESSMENT BUG HAS BEEN FIXED. OTHERWISE ASSESSMENT NETWORK WILL BREAK. --Jouni Tuomisto (keskustelu) 5. marraskuuta 2018 kello 20.51 (UTC) (type: ; paradigms: science: relevant attack)

+ Näytä koodi- Piilota koodi # This is code Op_fi5849/preprocess on page [[Näkemysverkko]] # Almost identical code is Op_en3861/ on page [[:op_en:Insight network]] ############### Create global variables at file global.R library(OpasnetUtils) objects.latest("Op_en3861", code_name="insightNetwork") # [[Insight network]] insightNetwork. Contains list of objects needed # If you want to use alternative objects, fetch them here. insightNetwork <- EvalOutput(insightNetwork,verbose=TRUE) cat("This code uses the following objects:\n") oprint(insightNetwork@dependencies) meta@data <- meta@data[1:27,] # Because something wrong with row 28. cat("The network data comes from these sources:\n") oprint(meta@data) insightTables <- makeInsightTables(meta) # Fetches the data from their original sources. You can update (part of) insightTables by rerunning with (partial) meta. graphTable <- makeGraphTable(verbose=FALSE) # Produces a table in standard format for insight networks gr <- makeInsightGraph(graphTable) # Creates a DiagrammeR graph object objects.store(gr, seeds, objtypes) cat("Graph object gr and shiny inputs seeds and objtypes stored.\n") # render_graph(gr) #ui <- makeUi() # Shiny user interface #shinyApp(ui, server) # Launch insight network on shiny server

Metatietotaulu tietolähteistä

+ Näytä koodi- Piilota koodi # This is code Op_fi5849/meta on page [[Näkemysverkko]] library(OpasnetUtils) meta <- Ovariable(ddata="Op_fi5849",subset="Tietolähteet") # Originally table #3 on page https://yhteistyotilat.fi/wiki08/x/1oGxAg colnames(meta@data) <- c("Name","Description","Id","Type","Table","Firstrow","URL","Numbering","PRLtrunk") objects.store(meta) cat("Ovariable meta stored.\n")

Käyttöliittymän oletukset

+ Näytä koodi- Piilota koodi # This is code Op_fi5849/seeds on page [[Näkemysverkko]] library(OpasnetUtils) seeds <- Ovariable(ddata="Op_fi5849", subset="Alkusolmut", getddata = FALSE) # Originally was table "Seed nodes in shiny" on page [[Ympäristöterveysindikaattori]] objects.store(seeds) cat("Ovariable seeds stored.\n")

+ Näytä koodi- Piilota koodi # This is code Op_fi5849/objtypes on page [[Näkemysverkko]] library(OpasnetUtils) objtypes <- c("ovariable","index","value judgement","graph","toimija") objects.store(objtypes) cat("Vector objtypes stored.\n")

makeGraphTable datan muokkaamisesta graafitauluksi

+ Näytä koodi- Piilota koodi # Tämä on koodi Op_fi5849/makeGraphTable sivulla [[Näkemysverkko]] library(OpasnetUtils) #' @title makeGraphTable function converts scraped data.frames into a standard data.frames for graphs (nodes and edges separately) #' @param verbose if TRUE, show intermediate results and explanations #' @return a list with two data.frames for making a diagram: first for nodes, second for edges makeGraphTable <- function(verbose=FALSE) { sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/" if(exists("insightTables")) { meta <- insightTables$meta } else { meta <- opasnet.csv( # Väärä koodaus mutta miksi? Tiedosto on oikein. "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip", wiki="opasnet_fi", unzip="meta.csv", sep=",",row.names=NULL,header=TRUE,stringsAsFactors=FALSE,fileEncoding = "UTF-8" ) } out <- list() for(i in 1:nrow(meta)) { if(verbose) print(i) if(exists("insightTables")) { temp <- insightTables[[i]] } else { temp <- opasnet.csv( "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip", wiki="opasnet_fi", unzip=gsub("[Öö\xf6]","o",gsub("[ÄÅäå\xe4]","a",paste0(meta$Ilmio[i],".csv"))), sep=",",row.names=NULL,header=TRUE,stringsAsFactors=FALSE,fileEncoding = "UTF-8" ) } if(verbose) oprint(head(temp)) # Convert structural names to English colnames(temp)[colnames(temp)=="Lyhenne"] <- "label" # Columns defined by DiagrammeR start with small letter colnames(temp)[colnames(temp)=="Luokka"] <- "type" colnames(temp)[colnames(temp)%in% c("Toimenpide","Nimi","Asia")] <- "Item" colnames(temp)[colnames(temp) %in% c("Predikaatti","Relaatio")] <- "Relation" colnames(temp)[colnames(temp) %in% c("Objekti","Kohde")] <- "Object" colnames(temp)[colnames(temp) %in% c("Kuvaus","Lisatietoa","Kommentteja")] <- "Description" colnames(temp)[colnames(temp) %in% c("Aihe1","Tehtavakokonaisuus")] <- "Teema" colnames(temp)[colnames(temp) %in% c("Tunnistenumero","Obs", "Nro")] <- "Oldid" if(!"label" %in% colnames(temp)) temp$label <- NA # temp$label <- ifelse(is.na(temp$label), substr(temp$Item,1,50), temp$label) tmp3 <- if("Oldid" %in% colnames(temp)) temp$Oldid else 1:nrow(temp) tmp3 <- if(is.na(meta$Id[i]) | meta$Id[i]=="") tmp3 else paste(meta$Id[i],tmp3,sep=".") temp$Oldid = tmp3 temp[is.na(colnames(temp))] <- NULL colnames(temp) <- gsub("[- ]", ".", colnames(temp)) out[[i]] <- temp } # Table-specific adjustments tst <- match("HYTE", meta$Name) if(!is.na(tst) && length(tst)==1) out[[tst]] <- splizzeria(out[[tst]], cols = c("Ulottuvuus","Osiotyyppi","JHS.luokka"), split = "/") # HYTE tst <- match("LAPE", meta$Name) if(!is.na(tst) && length(tst)==1) out[[tst]] <- splizzeria(out[[tst]], cols = c("JHS.luokka"), split = ",") # LAPE tst <- match("Hiilineutraali Helsinki -ohjelman toimijat ja osallistujat", meta$Name) if(!is.na(tst) && length(tst)==1) out[[tst]]$Oldid <- paste0(out[[tst]]$Oldid, "000") d <- data.frame() # HYTE JA LAPE ELI SOTEARV tmp <- data.frame() tst <- (1:nrow(meta))[meta$Type=="sotearv"] if(!is.na(tst) && length(tst)>0) { for(i in tst) { if(nrow(tmp)==0) tmp <- out[[i]] else tmp <- orbind(tmp, out[[i]]) } tmp <- orbind(orbind(orbind(orbind( data.frame( Oldid = tmp$Oldid, type = paste(tmp$Teema, "indikaattori",sep="-"), Item = tmp$Item, Relation = "ulottuvuus", Object = tmp$Ulottuvuus, URL = ifelse( is.na(as.numeric(substr(tmp$Sotkanet.id,1,4))), NA, paste0(sotkanet, substr(tmp$Sotkanet.id,1,4)) ), Description = tmp$Ryhman.perustelut, # label = ifelse(is.na(tmp$label),substr(tmp$Item,1,30),tmp$label), stringsAsFactors = FALSE ), data.frame( Item = tmp$Item, Relation = "osiotyyppi", Object = tmp$Osiotyyppi, stringsAsFactors = FALSE )), data.frame( Item = tmp$Item, Relation = "discussed in", Object = tmp$Tietolahde, stringsAsFactors = FALSE )), data.frame( Item = tmp$Item, Relation = "JHS-luokka", Object = tmp$JHS.luokka, stringsAsFactors = FALSE )), data.frame( type = "index", Item = unique(c(tmp$Ulottuvuus, tmp$JHS.luokka, tmp$Osiotyyppi)), stringsAsFactors=FALSE ) ) if(verbose) oprint(head(tmp)) d <- tmp } #### Hyvinvointikertomukset tmp <- data.frame() tst <- (1:nrow(meta))[meta$Type=="hvkertomus"] if(!is.na(tst) && length(tst)>0) { for(i in tst) { if(nrow(tmp)==0) tmp <- out[[i]] else tmp <- orbind(tmp, out[[i]]) } tmp <- data.frame( Oldid=tmp$Oldid, type="indikaattori", Item=tmp$Item, # label=substr(tmp$Item,1,30), Relation="omistaa kontekstin", Object=tmp$Teema, Description = paste(tmp$Item, tmp$Teema, tmp$Vaestoryhma, sep=". "), URL = "https://www.hyvinvointikertomus.fi/#/welcome", stringsAsFactors=FALSE ) if(verbose) oprint(head(tmp)) if(nrow(d)>0) d <- orbind(d, tmp) else d <- tmp } ########## KUVA-indikaattorit tmp <- data.frame() tst <- (1:nrow(meta))[meta$Type=="kuvaind"] if(!is.na(tst) && length(tst)>0) { for(i in tst) { if(nrow(tmp)==0) tmp <- out[[i]] else tmp <- orbind(tmp, out[[i]]) } tmp <- data.frame( Oldid=tmp$Oldid, type="indikaattori", Item=tmp$Item, # label=substr(tmp$Item,1,30), Relation="omistaa kontekstin", Object=tmp$Teema, Description = paste(tmp$Item, tmp$Teema, sep=". "), URL = "https://thl.fi/fi/tutkimus-ja-kehittaminen/tutkimukset-ja-hankkeet/sote-tietopohjan-kehittamishanke/kansallisen-mittariston-valmistelu-kuva-indikaattorit-", stringsAsFactors=FALSE ) if(verbose) oprint(head(tmp)) if(nrow(d)>0) d <- orbind(d, tmp) else d <- tmp } ## Oletusmuotoiset taulut (Ympäristöterveys, Lasten ja aikuisten lihavuus, Yleiset ja erityiset luokittelut) tmp <- data.frame() tst <- (1:nrow(meta))[meta$Type %in% c("oletus", "keskustelu","arviointi")] if(!is.na(tst) && length(tst)>0) { for(i in tst) { if(nrow(tmp)==0) tmp <- out[[i]] else tmp <- orbind(tmp, out[[i]]) } tmp <- splizzeria(tmp, cols="Object", split=",") tmp$URL <- ifelse( grepl("http",tmp$URL), tmp$URL, ifelse( is.na(as.numeric(substr(tmp$URL,1,4))), NA, paste0(sotkanet, substr(tmp$URL,1,4)) ) ) if(verbose) oprint(head(tmp)) if(nrow(d)>0) d <- orbind(d, tmp) else d <- tmp } ####### HNH2035-toimenpiteet # Tämä koodi on tilapäinen ja pitäisi korjata alkuperäiseen taulukkoon. Sano Sonjalle. repl <- array(c( "S&C säätiö","Smart&Clean", "yhteistyössä","", "yhteistyö","", "Yhteistyö:","", "ja","", "HSY Ilmastoinfo","Ilmastoinfo", "HSY:n Ilmastoinfo","Ilmastoinfo", "HSY/Ilmastoinfo","Ilmastoinfo", "Kanslia ELO/Hanki","Kanslia/ELO", "Kanslia/3D","3D", "Kanslia/Aluerakentaminen","Aluerakentaminen", "GEO","Geo", "kasko","Kasko", "sote","Sote", "palvelukeskus","Palvelukeskus", "ympa","Ympa", "RYA","Rya", "PALU","Palu", "Palu/Rava","Rava", "YMPA","Ympa", "MAKA","Maka", "KYMP","Kymp", "Smart&Clean -säätiö","Smart&Clean", "Smart & Clean -säätiö","Smart&Clean", "virium","Virium", "nuorisopalvelur","Nuorisopalvelut", "kanslia","Kanslia", "Kaupunginkanslia","Kanslia", "kaupunginkanslia","Kanslia", "(HSL), (HSY)",",", "ympa","Ympa", "Palu/Ympa","Ympa", "Maka/Like Kanslia","Maka,Kanslia" ), dim=c(2,28) ) tst <- match("Hiilineutraali Helsinki 2035 toimenpiteet", meta$Name) if(!is.na(tst) && length(tst)==1) { tmp <- out[[tst]] for(i in 1:ncol(repl)) { tmp$Vastuu <- gsub(repl[1,i],repl[2,i],tmp$Vastuu) } tmp <- fillprev(tmp,"Teema") tmp <- tmp[!is.na(tmp$Item) , ] toimet <- opbase.data("Op_fi5767", subset="Toimenpiteiden linkit") # This is done until URL is directly on gsheet. toimet$Oldid <- paste(meta$Id[tst], toimet$Obs,sep=".") tmp <- merge(tmp,toimet, all.x=TRUE) tmp$URL <- ifelse(!is.na(tmp$Result), as.character(tmp$Result), "https://www.hel.fi/static/liitteet/kaupunkiymparisto/julkaisut/julkaisut/HNH-2035-toimenpideohjelma.pdf") # tmp <- splizzeria(tmp, cols="Kustannukset", split="/") # Not used because doubles relations temp2 <- splizzeria(tmp, cols="Vastuu", split=",") tmp <- orbind(orbind( data.frame( Oldid=tmp$Oldid, type="toimenpide 1", Item=tmp$Item, # label=substr(tmp$Item,1,30), Relation="omistaa kontekstin", Object=tmp$Teema, Description = paste(tmp$Item, tmp$Aikajanne, tmp$Vaativuus, tmp$Kustannukset, sep=". "), URL = tmp$URL, stringsAsFactors=FALSE ), data.frame( Oldid=temp2$Oldid, Item=temp2$Item, # label=substr(temp2$Item,1,30), Relation="vastuullisena", Object=temp2$Vastuu, stringsAsFactors=FALSE ) ), data.frame( Oldid=paste0("HNH2035teema.", 1:length(unique(tmp$Teema))), type="index", Item=unique(tmp$Teema), Description = paste("HNH2035-ohjelman teema", unique(tmp$Teema)) ) ) if(verbose) oprint(head(tmp)) if(nrow(d)>0) d <- orbind(d, tmp) else d <- tmp } ########################### Create graph list with everything needed for ecd_graph # d$label <- ifelse(is.na(d$label), substr(d$Item,1,30), d$label) fix <- matrix(c( "Kustannukset ja RR", "Kustannukset ja rahoituksen riittävyys", "Saatavuua", "saatavuus" ),nrow=2) tmp <- d$Object[!is.na(d$Relation) & !is.na(d$Object) & d$Relation=="ulottuvuus"] for(i in 1:ncol(fix)) { tmp <- ifelse(tmp==fix[1,i],fix[2,i],tmp) } d$Object[!is.na(d$Relation) & !is.na(d$Object) & d$Relation=="ulottuvuus"] <- tmp for(i in 1:ncol(d)) { d[[i]] <- gsub("[\"']", " ", d[[i]]) } if(verbose) { cat("Datataulukko.\n") oprint(head(d)) } return(d) } objects.store(makeGraphTable) cat("Function makeGraphTable stored.\n")