R语言数据操作求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好! 刚接触R语言,可能问题有些幼稚，还请大家不吝帮助，谢谢！

      我有两个数据集A和B（包括时间，类型，数值等数据），除去类型一列外，A包含B，A'和B'是除去类型一列后的新数据集，
我用c<- setdiff（A'，B'）得到不包含B'中数据的新数据集。问题是，如何将相应的类型参数添加到新数据集中，或者如何从A中提取出c中数据对应的各行数据？

     先多谢各位大侠了！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 数据集 大家好

没看懂你要的结果，模拟下结果，贴图。

多谢你的回复。
不好意思没有表达清楚，下面举例两个数据框，要得到包含在A中但不包含在B中的数据，要包括type这一列参数。请教一下，如何处理？
A和B如下:
A:                                                              B:
time               type        price              amount                  time        price          amount
13:07:38        买入        0.572         111.8                         13:07:38        0.572         111.8
13:03:46        卖出        0.571         728.3842                 12:54:37        0.572         68
13:01:43        卖出        0.571         1200                         12:54:12        0.572         46.9101
13:01:06        卖出        0.571         1328.3842                 12:53:33        0.572         46.9101
13:00:54        卖出        0.571         1748.3842                 12:51:47        0.572         417
12:54:37        买入        0.572         68                         12:50:01        0.572         500
12:54:12        卖出        0.572         46.9101                 12:49:34        0.572                103
12:53:33        卖出        0.572         2953.0899                 12:49:18        0.572         35
12:53:33        卖出        0.572         46.9101                 12:49:03        0.572         1000
12:51:47        买入        0.572        417                         12:48:35        0.572         200
12:50:01        买入        0.572         500       
12:49:34        买入        0.572         103
12:49:18        买入        0.572         35
12:49:03        买入        0.572                1000
12:48:35        买入        0.572          200

想得到A排除B后的C,如下：                                                       
  time         type         price                amount
13:03:46        卖出        0.571         728.3842
13:01:43        卖出        0.571         1200
13:01:06        卖出        0.571         1328.3842
13:00:54        卖出        0.571         1748.3842
12:53:33        卖出        0.572         2953.0899
12:51:47        买入        0.572         417
12:50:01        买入        0.572         500
12:49:18        买入        0.572         35

。。
哈尔滨qa63597432.jimdo.com,西安jiaodi8.jimdo.com,宜春183427464.jimdo.com,齐齐哈尔diwozhao6088891054.jimdo.com,
上海womeicu118550631.jimdo.com,苏州zhiju7151157873.jimdo.com,吉林ci33212731180.jimdo.com,玉溪12a96b148508.jimdo.com,
常德cisou73715966.jimdo.com,黄山lieyepaolan0.jimdo.com,大理keliangsong0709290.jimdo.com,上海shanheneiyou8.jimdo.com,
上海hui7697801.jimdo.com,杭州xianfutj481.jimdo.com,红河wei050910697.jimdo.com,包头tongqiong87418.jimdo.com,长春panchiyin3ow8.jimdo.com,景德镇ixynbnu.jimdo.com,赣州chuwu990436.jimdo.com,上海robin55ym.jimdo.com,南京lunshai969912037.jimdo.com,北京souyuane1318.jimdo.com,成都dunmujia77.jimdo.com,泸州yunguanao460.jimdo.com.贵阳chentianzaixian.jimdo.com,遵义ywllx247.jimdo.com,西安weihanri97417.jimdo.com,宝鸡jiaomujiaohuan47.jimdo.com,哈尔滨taoyuanxin4551.jimdo.com,佛山huixingc6246.jimdo.com

唉，我以为有人解答问题了呢。空欢喜一场啊
希望有人能帮上忙

问了两次呀，参见 ：https://bbs.pinggu.org/thread-3929410-1-1.html

> setdiff.data.frame = function(A, B){

+     g <-  function( y, B){

+         any(apply(B, 1, FUN =function(x)

+             identical(all.equal(x,y),TRUE) ) )}

+     unique(A[!apply(A,1, FUN = function(t) g(t[-2], B) ), ])

+  }

> setdiff.data.frame = function(A, B){

+     g <-  function( y, B){

+         any(apply(B, 1, FUN =function(x)

+             identical(all.equal(x,y),TRUE) ) )}

+     unique(A[!apply(A,1, FUN = function(t) g(t[-2], B) ), ])

+ }

> setdiff.data.frame(A, B)

     timetypeprice    amount

213:03:46 卖出0.571  728.3842

313:01:43 卖出0.5711200.0000

413:01:06 卖出0.5711328.3842

513:00:54 卖出0.5711748.3842

8 12:53:33 卖出0.5722953.0899

非常感谢楼上大侠的回复，
你的代码正好解决了我的问题，我接下来仔细学习研究一下。