如何用R函数匹配两张表再进行运算，最后输出几个excel？

A表				B表
地区	产品	数量		地区	产品	价格
北美	1	100		北美	1	10
亚太	2	200		亚太	2	20
亚太	3	300
非洲	4	500

已知A/B两张表，先按照产品把B表的价格匹配到A表，然后新增收入列（数量*价格），最后按照不同地区将A表
分割几个excel分表：北美.csv  亚太.csv   非洲.csv，或者一个excel几个sheet表，怎么通过R函数写出来呢？

A表
地区	产品	数量	价格	收入
北美	1	100	10	1000
亚太	2	200	20	4000
亚太	3	300
非洲	4	500

wuchm 发表于 2015-2-26 10:25
明白了。
现在是合并两个表，如果合并5个表，可以一次合并吗？是不是把五个表放在一个merge函数里呢？

Reduce(function(x,y) merge(x, y, all.x=TRUE）, list(dat1, dat2, dat3, dat4, dat5))

Reduce函数将function逐个应用于：
dat1, dat2 --> temp1
temp1, dat3 --> temp2
temp2, dat4 --> temp3
temp3, dat5 --> temp4
以此类推

抱歉一直没看到你的回复

merge（）

1. #匹配A/B表
   
2. f <- merge(dat, dat2, by=c('地区', '产品'),all.x=TRUE, all.y=TRUE)
   
3. #新增收入列
   
4. f $ '收入' <- f[,3] * f[,4]
   
5. #分割并保存为几个csv在f盘下：
   
6. sapply(split(f, f[,1]), function(x) write.csv(x, paste0('f:/',x[1,1])))

复制代码

dplyr:::left_join()

jz.mraz 发表于 2015-2-25 21:15

谢谢！
这样合并，是把两个表的所有行都合起来了吧。
如果想以第一个表为基础，匹配第二表呢？就是类似excel的vloooup功能。

谢谢！

wuchm 发表于 2015-2-26 08:57
谢谢！
这样合并，是把两个表的所有行都合起来了吧。
如果想以第一个表为基础，匹配第二表呢？就是类似 ...

意思就是保留第一个表的所有，保留第二个表中存在在第一个表的内容？
all.x 和 all.y 都是FALSE的时候是只保留两个表中相互匹配的内容
all.x=TRUE, all.y=FALSE 是保留第一个的全部，第二个的匹配内容
反之亦然

jz.mraz 发表于 2015-2-26 09:09
意思就是保留第一个表的所有，保留第二个表中存在在第一个表的内容？
all.x 和 all.y 都是FALSE的时候是 ...

明白了。
现在是合并两个表，如果合并5个表，可以一次合并吗？是不是把五个表放在一个merge函数里呢？

jz.mraz 发表于 2015-2-25 14:51
Reduce(function(x,y) merge(x, y, all.x=TRUE）, list(dat1, dat2, dat3, dat4, dat5))

Reduce函数将 ...

谢谢你的精彩回复。

另外再请教你个问题：R可以像excel那样，将一个excel几个sheet表分别导入R，将R中的几个数据表格导出到一个excel几个sheet存储呢？

[quote]wuchm 发表于 2015-2-27 14:47 http://www.r-bloggers.com/read-excel-files-from-r/