Ero sivun ”Jättipalsami” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(karttakoodi päivitetty muttei toimi)
Rivi 9: Rivi 9:
name:location|description:Raahaa nasta kasvuston kohdalle|type:location|
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;
Rivi 41: Rivi 42:
</rcode>
</rcode>


== Näytä tallennettu rastilenkki ==
== Näytä kirjatut jättipalsamikasvustot ==


<rcode name="rastit" label="Näytä rastit" embed=1 showcode=-1 variables="
<rcode name="rastit" label="Näytä rastit" embed=1 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 50: 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 <- opbase.data("Op_fi5613", subset = "Kasvustot")  
dat <- opbase.data("Op_fi5613", subset = "Kasvustot")  
Rivi 61: Rivi 69:
dat <- dropall(dat)
dat <- dropall(dat)


dat$LA <- as.numeric(levels(dat$LA)[dat$LA])
dat$LA <- as.numeric(as.character(dat$LA))
dat$LO <- as.numeric(levels(dat$LO)[dat$LO])
dat$LO <- as.numeric(as.character(dat$LO))


oprint(dat, digits = 6)
oprint(dat, digits = 6)


coordinates(dat)=c("LO","LA")
dynamic <- dat
 
coordinates(dynamic)=c("LO","LA")


out <- google.point_kml(
out <- google.point_kml(
obj = dat,
obj = dynamic,
kmlname = "Kasvustot",
kmlname = "Kasvustot",
kmldescription = "KML-tiedostona",
kmldescription = "KML-tiedostona",
Rivi 77: Rivi 87:


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,
coord = c("LA", "LO"),
proj4string = "+init=epsg:3857"#3067" # Coordinate system is wrong!
), # Finnish Land Survey uses ETRS-TM35FIN
# http://spatialreference.org/ref/epsg/etrs89-etrs-tm35fin/
# http://en.wikipedia.org/wiki/Swiss_coordinate_system
plotvar = "odatResult",
legend_title = "Jättipalsamin kasvustot",
numbins = 4,
pch = 19,
cex = sqrt(9) * 3
)


</rcode>
</rcode>

Versio 27. elokuuta 2016 kello 19.48

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

Raahaa nasta kasvuston kohdalle:

Anna kasvuston kuvaus:

Kuinka suurella alueella kasvusto on?:

Aikaleima:
..

Näytä kirjatut jättipalsamikasvustot

Minkä päivän karttoja katsotaan?:
..




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.