報告書用植生経年変化表
VegetationChronologyTable_report(plot_name = "Arimine", vc = VC)
VegetationChronologyTable_report("Arimine")
#> # A tibble: 83 × 24
#> layer sp form f1 f2 f3 f4 f5 F1 F2 F3 F4
#> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr> <chr> <chr>
#> 1 B2 アオダモ…… bl 0.0769 0.692 0.885 0.769 0.769 Ⅰ Ⅳ Ⅴ Ⅳ
#> 2 B2 アクシバ…… bs 0 0 0.0769 0.0769 0.0769 - - Ⅰ Ⅰ
#> 3 B2 イタヤカエ… bl 0.231 0.423 0.692 0.577 0.577 Ⅱ Ⅲ Ⅳ Ⅲ
#> 4 B2 ウリハダカ… bl 0.462 0.923 0.923 1 1 Ⅲ Ⅴ Ⅴ Ⅴ
#> 5 B2 ウワミズザ… bl 0.769 0.654 0.808 0.923 0.923 Ⅳ Ⅳ Ⅴ Ⅴ
#> 6 B2 エゾユズリ… bs 0.0769 0.0769 0.115 0.0769 0.0769 Ⅰ Ⅰ Ⅰ Ⅰ
#> 7 B2 オオイタヤ… bl 0 0 0.154 0 0 - - Ⅰ -
#> 8 B2 オオカメノ… bs 1 0.962 1 1 1 Ⅴ Ⅴ Ⅴ Ⅴ
#> 9 B2 オオバクロ… bs 0.962 0.962 1 1 1 Ⅴ Ⅴ Ⅴ Ⅴ
#> 10 B2 クサアジサ… bs 0.115 0.154 0.0769 0 0 Ⅰ Ⅰ Ⅰ -
#> # ℹ 73 more rows
#> # ℹ 12 more variables: F5 <chr>, c1 <dbl>, c2 <dbl>, c3 <dbl>, c4 <dbl>,
#> # c5 <dbl>, di1 <dbl>, di2 <dbl>, di3 <dbl>, di4 <dbl>, di5 <dbl>, cal <dbl>
VCrepo<-lapply(plt$plot_name,VegetationChronologyTable_report)
names(VCrepo)<-plt$plot_name
VCrepo[["Kagamiishi"]]
#> # A tibble: 40 × 24
#> layer sp form f1 f2 f3 f4 f5 F1 F2 F3 F4
#> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr> <chr> <chr>
#> 1 B2 アカミノイヌツゲ… bs 0.115 0.154 0.269 0.154 0.154 Ⅰ Ⅰ Ⅱ Ⅰ
#> 2 B2 ウスノキ bs 0 0 0 0.0769 0.0769 - - - Ⅰ
#> 3 B2 ウラジロナナカマ… bs 0 0 0.192 0.231 0.308 - - Ⅰ Ⅱ
#> 4 B2 オオシラビソ…… cl 0.923 0.846 0.923 0.923 0.962 Ⅴ Ⅴ Ⅴ Ⅴ
#> 5 B2 オオバスノキ…… bs 0.731 0.692 0.846 0.885 0.885 Ⅳ Ⅳ Ⅴ Ⅴ
#> 6 B2 クロウスゴ…… bs 0.846 0.885 0.923 0.962 0.962 Ⅴ Ⅴ Ⅴ Ⅴ
#> 7 B2 コヨウラクツツジ… bs 0.423 0.615 0.5 0.577 0.538 Ⅲ Ⅳ Ⅲ Ⅲ
#> 8 B2 ナナカマド…… bs 0.577 0.577 0.577 0.615 0.615 Ⅲ Ⅲ Ⅲ Ⅳ
#> 9 B2 ハイマツ cs 0.962 0.962 0.923 0.885 0.923 Ⅴ Ⅴ Ⅴ Ⅴ
#> 10 B2 ハクサンシャクナ… bs 0.5 0.577 0.538 0.692 0.692 Ⅲ Ⅲ Ⅲ Ⅳ
#> # ℹ 30 more rows
#> # ℹ 12 more variables: F5 <chr>, c1 <dbl>, c2 <dbl>, c3 <dbl>, c4 <dbl>,
#> # c5 <dbl>, di1 <dbl>, di2 <dbl>, di3 <dbl>, di4 <dbl>, di5 <dbl>, cal <dbl>
# usethis::use_data(VCrepo,overwrite = TRUE)