比较列名称和绘制图表

Question

我想比较两个数据框中的两个列名，并使用原始数据框中匹配的列名创建图。

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，a $ 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)