Field trip trail

Field work activities from 2006-2012 in China

Field work experiences

Field trip trail

Field work activities from 2006-2012 in China

Field work experiences

I have visited a lot places in south part of China. These places are genreally hostspots of biodiversity of China. Especially I love Xizang! I hope I have chance to introduce more details of this facinating landscape, spelendid vegation, and each plant I came across during my trip.

🍀 🌸 đŸŒŋ đŸŒĩ 🍄 🌴 đŸŒŗ đŸŒŧ

Here some bullets of my trips I have make since 2006 - 2012:

  • 2012
    Trip to southern Yunnan along Myanmar border with Pam S. Soltis and Doug E. Soltis, collecting materials for Tree of life — China Project. Trip to Hainan tropical rain forest with Doug E. Soltis, collecting materials of Tree for life — China Project.
  • 2006 ~ 2011
    Joined in the expedition team of national herbarium (PE) for collection many times, successively visited a series of biodiversity hotspots, such as Jilin, Hubei, Chongqing, Guangxi, Sichuan, Xizang, etc.

I use R code and Baidumap API to show my trips:

Warning: This script may not work well in R markdown enviroment, but I tried by copying out the code as a single script in R studio. It works.

rm(list=ls())
# you need to install these packages if have not done so.
#install.packages("devtools")
# devtools::install_github("lchiffon/REmap")
# devtools::install_github("badbye/baidumap"")
install.packages("png")
library("png")

library("REmap")
library("baidumap")

# I realized chinese string have more success match with their coordinates
 city<- c("北äēŦ","吉林įœ", "åšŋ东","暖北","重åē†","åšŋčĨŋ","čĨŋ藏","å››åˇ", "äē‘南", "æĩˇå—")
 begin<-rep("beijing",length(city))   #(čĩˇį‚š)
 mapdata<-data.frame(begin,city)
 getBaiduMap2(city, width = 400, height = 400, zoom = 10, scale = 2,
             color = "color", messaging = TRUE)
 map_pic <- remap(mapdata = mapdata,  #æ•°æŽæĄ†
                 title = "Footsteps covered most hotspots of China", #标éĸ˜
                 subtitle = "Field work activities from 2006-2012",  #副标éĸ˜
                 theme = get_theme(theme = "Dark")) #ä¸ģéĸ˜
plot(map_pic)

Field trip trail

Avatar
Miao Sun
Postdoc Fellow

Related

comments powered by Disqus