CS2<-function(f,cs){
f$p<-paste(f$site,f$D)
f$p<-str_replace_all(f$p,"层片","")
cs$p<-paste(cs$site,cs$D)
jg2<-left_join(cs,f[,3:7],by="p")
jg2
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.