datax <- read.csv("C:\Users\Jennifer\Desktop\place.csv",header=T,sep=" ") datay <- read.csv("C:\Users\Jennifer\Desktop\price.csv",header=T,sep=" ") merge(datax,datay,by='product')
product place price pm_num
1 apple 上海 2.1 3
2 orange 广州 3.0 6
3 peek 上海 4.0 6
4 peer 深圳 3.0 4
5 water 北京 4.0 5