比较列名，使地块(compare column names and make plots)

我想两个COLUMNNAMES从两个数据帧进行比较，并创建一个从原始数据帧匹配COLUMNNAMES图。

a<-data.frame(a1=c(1,2,3,4,5),a2=c(2,3,4,5,6),b1=c(3,4,5,6,7),c1=c(4,5,6,7,8))
b<-data.frame(c1=c(10,20,30,40,50),b1=c(20,30,40,50,60),d1=c(30,40,50,60,70))

输出应该是这样的：情节（B $ C1，一个$ C1）地块（B $ B1，一个$ B1）

我可以创建与上面的代码的故事情节，但我需要它来实现自动化，因为我的数据框太大。

Answer 1:

这里有一种方法：

shared.names <- intersect(names(a), names(b))
par(mfrow=n2mfrow(length(shared.names)))
for (name in shared.names) plot(a[[name]], b[[name]], main=name)

文章来源: compare column names and make plots