## 合并两列内容
install.packages("tidyr")
library(tidyr)
EUR <- tidyr::unite(EUR,"markername",X1,X11008,sep=":",remove=FALSE)

 目标数据框<-tidyr::unite(目标数据框，“想合成的列名”，列1，列2，sep="连接符号"，remove=TURE）#移除原本两行