我正在尝试编写一个函数来将4个数据帧相互映射，并且我已经将我所遇到的全部问题缩小到一行代码，因为某些原因R没有运行。
Compare=function(a,b,c,d){
d1=a
d2=b
d3=c
d4=d
for(n in 1:4){
assign(paste0("colnames",n),colnames(get(paste0("d",n))))
}
}
当我运行创建函数的colnames1，colnames2，colnames3和colnames4的行时，它可以工作，但是如果我使用该函数运行它，而d（1：4）都是作为各种dtaframes创建的，colnames1：4根本就没有创建。有谁知道这里发生了什么？