Ero sivun ”Jättipalsami” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(ensimmäinen luonnos sivun Rastilenkin suunnittelija pohjalta) |
(→Näytä kirjatut jättipalsamikasvustot: jälkimmäinen kartta toimii) |
||
| (3 välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| Rivi 7: | Rivi 7: | ||
<rcode name="merkkaa" label="Merkkaa kasvusto" embed=1 showcode=-1 variables=" | <rcode name="merkkaa" label="Merkkaa kasvusto" embed=1 showcode=-1 variables=" | ||
name:location|description:Raahaa nasta kasvuston kohdalle | name:location|description:Raahaa nasta kasvuston kohdalle|type:location| | ||
name:kasvusto|description:Anna kasvuston kuvaus|type:selection|options: | name:kasvusto|description:Anna kasvuston kuvaus|type:selection|options: | ||
'ei lainkaan';Jättipalsamia ei ole lainkaan alueella; | |||
'yksittäisiä';Yksittäisiä kasveja pitkin aluetta; | 'yksittäisiä';Yksittäisiä kasveja pitkin aluetta; | ||
'seassa';Paljon jättipalsamia muun kasvuston seassa; | 'seassa';Paljon jättipalsamia muun kasvuston seassa; | ||
'hallitsee';Jättipalsami on syrjäyttänyt lähes kaiken muun| | 'hallitsee';Jättipalsami on syrjäyttänyt lähes kaiken muun| | ||
default:'seassa'| | |||
name:alue|description:Kuinka suurella alueella kasvusto on?|type:selection|options: | name:alue|description:Kuinka suurella alueella kasvusto on?|type:selection|options: | ||
'halkaisija | 'halkaisija alle 1 m';Halkaisija on alle 1 m; | ||
'halkaisija 1-5 m';Halkaisija on 1-5 m; | 'halkaisija 1-5 m';Halkaisija on 1-5 m; | ||
'halkaisija 5-20 m';Halkaisija on 5-20 m; | 'halkaisija 5-20 m';Halkaisija on 5-20 m; | ||
'halkaisija yli 20 m';Halkaisija on yli 20 m| | 'halkaisija yli 20 m';Halkaisija on yli 20 m| | ||
default:'halkaisija 1-5 m'| | |||
name:aika|description:Aikaleima|type:date | name:aika|description:Aikaleima|type:date | ||
"> | "> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
| Rivi 30: | Rivi 34: | ||
) | ) | ||
opbase.upload(input = out, ident = " | opbase.upload(input = out, ident = "Op_fi5613", name = "Jättipalsami", subset = "Kasvustot", | ||
obj_type = "variable", act_type = "append", language = "fin", who = wiki_username | obj_type = "variable", act_type = "append", language = "fin", who = wiki_username | ||
) | ) | ||
| Rivi 38: | Rivi 42: | ||
</rcode> | </rcode> | ||
== Näytä | == Näytä kirjatut jättipalsamikasvustot == | ||
<rcode name="rastit" label="Näytä rastit" embed= | <rcode name="rastit" label="Näytä rastit" embed=0 showcode=-1 graphics=1 variables=" | ||
name:aika|description:Minkä päivän karttoja katsotaan?|type:date | name:aika|description:Minkä päivän karttoja katsotaan?|type:date | ||
"> | "> | ||
| Rivi 48: | Rivi 51: | ||
library(OpasnetUtilsExt) | library(OpasnetUtilsExt) | ||
library(rgdal) | library(rgdal) | ||
library(ggplot2) | |||
library(maptools) | |||
library(RColorBrewer) | |||
library(classInt) | |||
library(RgoogleMaps) | |||
objects.latest("Op_en6007", code_name = "answer") # [[OpasnetUtils/Drafts]] findrest | |||
dat <- dat[dat$Aika == as.character(aika) | dat <- opbase.data("Op_fi5613", subset = "Kasvustot") | ||
ajat <- unique(dat$Aika) | |||
cat("Kasvustotietoja on merkitty näinä päivinä:\n") | |||
oprint(ajat) | |||
dat <- dat[dat$Aika == as.character(aika) , ] | |||
dat <- dropall(dat) | dat <- dropall(dat) | ||
dat$LA <- as.numeric( | dat$LA <- as.numeric(as.character(dat$LA)) | ||
dat$LO <- as.numeric( | dat$LO <- as.numeric(as.character(dat$LO)) | ||
oprint(dat, digits = 6) | oprint(dat, digits = 6) | ||
coordinates( | dynamic <- dat | ||
coordinates(dynamic)=c("LO","LA") | |||
out <- google.point_kml( | out <- google.point_kml( | ||
obj = dynamic, | |||
kmlname = "Kasvustot", | |||
kmldescription = "KML-tiedostona", | |||
name = dat$Kasvusto, | |||
description = dat$Kasvusto | |||
) | ) | ||
google.show_kml_data_on_maps(out) | google.show_kml_data_on_maps(out) | ||
fixed <- dat | |||
levels(fixed$Alue) | |||
fixed$Alue <- c(1, 3, 10, 30)[fixed$Alue] | |||
oprint(fixed) | |||
colnames(fixed)[colnames(fixed) == "Alue"] <- "Result" | |||
odat <- EvalOutput(Ovariable("odat", data = fixed)) | |||
# 63.822273981505 27.2848428623258 | |||
MyRmap( | |||
ova2spat(odat), | |||
plotvar = "odatResult", | |||
legend_title = "Jättipalsamin kasvustot", | |||
numbins = 4, | |||
zoom = 14, | |||
pch = 19, | |||
cex = sqrt(odat$odatResult) * 1 | |||
) | |||
</rcode> | </rcode> | ||
Nykyinen versio 30. elokuuta 2016 kello 06.38
Jättipalsami on himalajalta kotoisin oleva kukkakasvi, jota on tuotu Suomeen puutarhakasviksi. Se on erittäin tehokas leviämään, ja se onkin monin paikoin alkanut levitä pihoilta pientareille ja syrjäyttänyt kotoperäisen lajiston. Siksi monet tahot ovat suositelleet jättipalsamin kitkemistä, jotta se ei leviäisi laajemmin suomalaiseen luontoon, jossa sillä ei ole lainkaan luontaisia vihollisia.
Tällä sivulla voit raportoida jättipalsamin esiintymispaikoista. Myöhemmin saamme toivottavasti myös työkalun, jossa voit varata itsellesi tiettyjä kasvustoja kitkettäväksi ja raportoida kitkemisen onnistumisesta.
Merkkaa uusi jättipalsamikasvusto
Näytä kirjatut jättipalsamikasvustot
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
http://fi.opasnet.org/fi_wiki/index.php/Rastilenkin_suunnittelija?merkkaa[käyttäjänro]=234&rastit[käyttäjänro]=234&rastit[aika]=2013-12-27 Linkin muotoilu, jossa annetaan koodeille merkkaa ja rastit parametrien arvot käyttäjänro = 234 ja aika = 2013-12-27.