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:
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)