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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Näytä kirjatut jättipalsamikasvustot: jälkimmäinen kartta toimii)
 
(Yhtä välissä olevaa versiota samalta käyttäjältä ei näytetä)
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=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 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",
name = dat$Kasvusto,
  name = dat$Kasvusto,
description = 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

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.