melt函数可以将宽数据转化为长数据

dcast函数可以将长数据转化为宽数据

> DT = fread("melt_default.csv")

> DT

   family_id age_mother dob_child1 dob_child2 dob_child3

1:         1         30 1998-11-26 2000-01-29         NA

2:         2         27 1996-06-22         NA         NA

3:         3         26 2002-07-11 2004-04-05 2007-09-02

4:         4         32 2004-10-10 2009-08-27 2012-07-21

5:         5         29 2000-12-05 2005-02-28         NA

> DT.m1 <- melt(DT, measure.vars = c("dob_child1", "dob_child2", "dob_child3"),

+               variable.name = "child", value.name = "dob")

> DT.m1

    family_id age_mother      child        dob

 1:         1         30 dob_child1 1998-11-26

 2:         2         27 dob_child1 1996-06-22

 3:         3         26 dob_child1 2002-07-11

 4:         4         32 dob_child1 2004-10-10

 5:         5         29 dob_child1 2000-12-05

 6:         1         30 dob_child2 2000-01-29

 7:         2         27 dob_child2         NA

 8:         3         26 dob_child2 2004-04-05

 9:         4         32 dob_child2 2009-08-27

10:         5         29 dob_child2 2005-02-28

11:         1         30 dob_child3         NA

12:         2         27 dob_child3         NA

13:         3         26 dob_child3 2007-09-02

14:         4         32 dob_child3 2012-07-21

15:         5         29 dob_child3         NA

> dcast(DT.m1, family_id + age_mother ~ child, value.var = "dob")

   family_id age_mother dob_child1 dob_child2 dob_child3

1:         1         30 1998-11-26 2000-01-29         NA

2:         2         27 1996-06-22         NA         NA

3:         3         26 2002-07-11 2004-04-05 2007-09-02

4:         4         32 2004-10-10 2009-08-27 2012-07-21

5:         5         29 2000-12-05 2005-02-28         NA

对于较为复杂的数据可以这样做

> DT <- fread("melt_enhanced.csv")

> DT

   family_id age_mother dob_child1 dob_child2 dob_child3 gender_child1 gender_child2 gender_child3

1:         1         30 1998-11-26 2000-01-29         NA             1             2            NA

2:         2         27 1996-06-22         NA         NA             2            NA            NA

3:         3         26 2002-07-11 2004-04-05 2007-09-02             2             2             1

4:         4         32 2004-10-10 2009-08-27 2012-07-21             1             1             1

5:         5         29 2000-12-05 2005-02-28         NA             2             1            NA

> DT.m2 <- melt(DT, measure = patterns("^dob","^gender"), value.name = c("dob", "gender"))

> DT.m2

    family_id age_mother variable        dob gender

 1:         1         30        1 1998-11-26      1

 2:         2         27        1 1996-06-22      2

 3:         3         26        1 2002-07-11      2

 4:         4         32        1 2004-10-10      1

 5:         5         29        1 2000-12-05      2

 6:         1         30        2 2000-01-29      2

 7:         2         27        2         NA     NA

 8:         3         26        2 2004-04-05      2

 9:         4         32        2 2009-08-27      1

10:         5         29        2 2005-02-28      1

11:         1         30        3         NA     NA

12:         2         27        3         NA     NA

13:         3         26        3 2007-09-02      1

14:         4         32        3 2012-07-21      1

15:         5         29        3         NA     NA

> DT.c2 <- dcast(DT.m2, family_id + age_mother ~ variable, value.var = c("dob","gender"))

> DT.c2

   family_id age_mother      dob_1      dob_2      dob_3 gender_1 gender_2 gender_3

1:         1         30 1998-11-26 2000-01-29         NA        1        2       NA

2:         2         27 1996-06-22         NA         NA        2       NA       NA

3:         3         26 2002-07-11 2004-04-05 2007-09-02        2        2        1

4:         4         32 2004-10-10 2009-08-27 2012-07-21        1        1        1

5:         5         29 2000-12-05 2005-02-28         NA        2        1       NA

R语言学习笔记（十七）：data.table包中melt与dcast函数的使用的更多相关文章

  1. R语言学习笔记：使用reshape2包实现整合与重构

    R语言中提供了许多用来整合和重塑数据的强大方法. 整合 aggregate 重塑 reshape 在整合数据时,往往将多组观测值替换为根据这些观测计算的描述统计量. 在重塑数据时,则会通过修改数据的结 ...

  2. R语言学习笔记：使用tcltk包显示进度条

    一般在跑耗时较长的程序时,我们不知道程序到底有没有正常跑着,或者在爬虫的时候不知道爬到什么时候断了.因此可以添加进度条来显示当前进度,观察进度是否有进展.当进度条卡住的时候,可以判断程序断线,从而可以 ...

  3. R语言学习笔记：怎么从txt中读入数据

    1   从该链接中下载测试数据,http://pan.baidu.com/share/link?shareid=3322971616&uk=3862050759   2   把测试文件Anal ...

  4. R语言学习笔记：choose、factorial、combn排列组合函数

    一.总结 组合数:choose(n,k) —— 从n个中选出k个 阶乘:factorial(k) —— k! 排列数:choose(n,k) * factorial(k) 幂:^ 余数:%% 整数商: ...

  5. R语言学习笔记（十六）：构建分割点函数

    选取预测概率的分割点 cutoff<- function(n,p){ pp<-1 i<-0 while (pp>=0.02) { model.predfu<-rep(&q ...

  6. R语言学习笔记之: 论如何正确把EXCEL文件喂给R处理

    博客总目录:http://www.cnblogs.com/weibaar/p/4507801.html ---- 前言: 应用背景兼吐槽 继续延续之前每个月至少一次更新博客,归纳总结学习心得好习惯. ...

  7. R语言学习 第九篇：plyr包

    在数据分析中,整理数据的本质可以归纳为:对数据进行分割(Split),然后应用(Apply)某些处理函数,最后将结果重新组合(Combine)成所需的格式返回,简单描述为:Split - Apply ...

  8. R语言学习笔记1——R语言中的基本对象

    R语言,一种自由软件编程语言与操作环境,主要用于统计分析.绘图.数据挖掘.R本来是由来自新西兰奥克兰大学的Ross Ihaka和Robert Gentleman开发(也因此称为R),现在由“R开发核心 ...

  9. R语言学习 第十篇：包

    包(Package)是实现特定功能的.预先写好的代码库(library),通俗地说,包是含有函数.数据等的功能模块.R拥有大量的软件包,许多包都是由某一领域的专家编写的,但并不是所有的包都有很高的质量 ...

随机推荐

  1. 生产环境rac无法启动

    节点二crs无法启动,查看启动日志:ohasd.log位置在/u01/app/11.2.0/grid/log/host01/ohasd/ohasd.log另外root.sh的log在rootcrs_X ...

  2. sql 2008 远程过程调用失败 0x800706be

    啊哦,SQL Server挂了!sql 2008 远程过程调用失败 0x800706be,找了一下解决方案,如下: 1.打开控制面板->添加删除程序 2.卸载一个叫Microsoft SQL S ...

  3. 第3次Scrum冲刺

    *:first-child { margin-top: 0 !important; } body>*:last-child { margin-bottom: 0 !important; } /* ...

  4. 统计一段文章的单词频率，取出频率最高的5个单词和个数(python)

    练习题:统计一段英语文章的单词频率,取出频率最高的5个单词和个数(用python实现) 先全部转为小写再判定 lower() 怎么判定单词? 1 不是字母的特殊字符作为分隔符分割字符串 (避免特殊字符 ...

  5. asp.net反射的运用

    反射的用途:    (1)使用Assembly定义和加载程序集,加载在程序集清单中列出模块,以及从此程序集中查找类型并创建该类型的实例.     (2)使用Module了解包含模块的程序集以及模块中的 ...

  6. ACM-ICPC（10 / 10）——（完美世界2017秋招真题）

    今天学了莫比乌斯反演,竟然破天荒的自己推出来了一个题目!有关莫比乌斯反演的题解,和上次的01分数规划的题解明天再写吧~~~ 学长们都在刷面试题,我也去试了试,120分钟,写出6题要有一点熟练度才行.先 ...

  7. SPOJ8093【JZPGYZ - Sevenk Love Oimaster】

    怎么全是广义后缀自动机,我\(AC\)自动机不服 这道题可以使用的算法很多,\(SA\)或者\(SAM\)应该都可以 但是我都不会 但是这毕竟是一个多串匹配问题,\(AC\)自动机还是可以刚一刚的 我 ...

  8. HDU 5536 Chip Factory 【01字典树删除】

    题目传送门:http://acm.hdu.edu.cn/showproblem.php?pid=5536 Chip Factory Time Limit: 18000/9000 MS (Java/Ot ...

  9. 在idea配置jetty和创建（包、文件）javaWeb以及Servlet简单实现

    在创建之前要安装好jetty jetty官网链接:https://jettylife.com/ 现在进行创建项目: 需要按照好jdk 现在进行添加jetty 现在进行配置 完成后ok ok 下面警告的 ...

  10. JavaScript：改变 HTML 样式

    <!DOCTYPE html><html><head><meta http-equiv="Content-Type" content=&q ...