r - 比较列名并绘制图表

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))

输出应该是这样的： plot (b$c1,a$c1) plot (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)