立山植生モニタリング調査の植物目録

RData_flora()

RData_flora()

Examples

head(flora)
#> # A tibble: 6 × 6
#>          id form  spj                      sp                   family_jp family
#>       <dbl> <chr> <chr>                    <chr>                <chr>     <chr> 
#> 1 787801050 h     アイイタドリ             Fallopia x bohemica… タデ科    Polyg…
#> 2 787963020 bl    アオダモ                 Fraxinus lanuginosa… モクセイ科…… Oleac…
#> 3 787921240 ds    アオノツガザクラ         Phyllodoce aleutica… ツツジ科  Erica…
#> 4 787401090 h     アカショウマ             Astilbe thunbergii … ユキノシタ科…… Saxif…
#> 5 787971050 bs    アカミノイヌツゲ         Ilex sugerokii Maxi… モチノキ科…… Aquif…
#> 6 781001070 h     アカミノルイヨウショウマ Actaea erythrocarpa… キンポウゲ科…… Ranun…
flora[flora$美松!="",c("spj","sp")]
#> Warning: Unknown or uninitialised column: `美松`.
#> Error in flora[flora$美松 != "", c("spj", "sp")]: Can't subset rows with `flora$美松 != ""`.
#> ✖ Logical subscript `flora$美松 != ""` must be size 1 or 294, not 0.
sp.<-c("ブナ","ハイマツ","リュウキュウマツ","イソマツ")
cat("以下はfloraリストにありません")
#> 以下はfloraリストにありません
data.frame(sp=sp.[!is.element(sp.,flora$spj)])
#>                 sp
#> 1 リュウキュウマツ
#> 2         イソマツ


head(flora)
#> # A tibble: 6 × 6
#>          id form  spj                      sp                   family_jp family
#>       <dbl> <chr> <chr>                    <chr>                <chr>     <chr> 
#> 1 787801050 h     アイイタドリ             Fallopia x bohemica… タデ科    Polyg…
#> 2 787963020 bl    アオダモ                 Fraxinus lanuginosa… モクセイ科…… Oleac…
#> 3 787921240 ds    アオノツガザクラ         Phyllodoce aleutica… ツツジ科  Erica…
#> 4 787401090 h     アカショウマ             Astilbe thunbergii … ユキノシタ科…… Saxif…
#> 5 787971050 bs    アカミノイヌツゲ         Ilex sugerokii Maxi… モチノキ科…… Aquif…
#> 6 781001070 h     アカミノルイヨウショウマ Actaea erythrocarpa… キンポウゲ科…… Ranun…
flora[flora$美松!="",c("spj","sp")]
#> Warning: Unknown or uninitialised column: `美松`.
#> Error in flora[flora$美松 != "", c("spj", "sp")]: Can't subset rows with `flora$美松 != ""`.
#> ✖ Logical subscript `flora$美松 != ""` must be size 1 or 294, not 0.
sp.<-c("ブナ","ハイマツ","リュウキュウマツ","イソマツ")
cat("以下はfloraリストにありません")
#> 以下はfloraリストにありません
data.frame(sp=sp.[!is.element(sp.,flora$spj)])
#>                 sp
#> 1 リュウキュウマツ
#> 2         イソマツ