Tidyr与多个分离器结合

Question

是否有可能使用tidyr中的unite但修改不同的分隔符？

我有：

head(df1)
col1  col2     col3  col4
John  middle   no    Switzerland
Sue   middle   yes   Norway
Nancy low      yes   Germany
Sid   high     no    Germany

df<-unite(df1, col1, col2, col3, col4, sep=";", col="var")

head(df)
var
John;middle;no;Switzerland
Sue;middle;yes;Norway
Nanc;low;yes;Germany
Sid;high;no;Germany

这是所需的输出：

head(df)
var
p_John;x_middle;d_no;c_Switzerland
p_Sue;x_middle;d_yes;c_Norway
p_Nanc;x_low;d_yes;c_Germany
p_Sid;x_high;d_no;c_Germany

谢谢。