Field work activities from 2006-2012 in China

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)