※ 引述《SleepyChink (SleepyChink)》之铭言： : [问题类型]: : 我想用R做一件事，但不知道如何完成。 : [软体熟悉度]: : 请把以下不需要的部份删除 : 新手(没写过程式，R 是我的第一次) : [问题叙述]: : X Y Z Val : 1 1 1 1 1 : 2 2 1 1 0 : 3 1 2 1 0 : 4 2 2 1 0 : 5 1 1 2 1 : 6 2 1 2 1 : 7 1 2 2 1 : 8 2 2 2 0 : 要如何将资料按照Val分成两组连续资料? : 大概成为下列样式 : Val. 0. 1. : 2. 1. : 1. 1. : 1. 1. : 1. 1. : 2. 1. : 1. 2. : 以此类推资料长度不会一样，不足可以以0补齐吗？ : 麻烦大家帮忙解惑一下，遇过几次感觉应该是基本的资料处理，但依旧卡以刚开始学习请 : 多多包涵。 : 谢谢 : library(data.table) library(magrittr) library(plyr) library(dplyr) library(tidyr) dat <- fread(' X Y Z Val 1 1 1 1 2 1 1 0 1 2 1 0 2 2 1 0 1 1 2 1 2 1 2 1 1 2 2 1 2 2 2 0') %>% tbl_dt # dplyr gather(dat, cate1, cate2, -Val) # Source: local data table [24 x 3] # # Val cate1 cate2 # (int) (chr) (int) # 1 1 X 1 # 2 0 X 2 # 3 0 X 1 # 4 0 X 2 # 5 1 X 1 # 6 1 X 2 # 7 1 X 1 # 8 0 X 2 # 9 1 Y 1 # 10 0 Y 1 # .. ... ... ... # stack dat %<>% tbl_df # data.table不能用stack，转成data.frame stack(dat, -Val) %>% cbind(rep(dat$Val, 3)) # values ind rep(dat$Val, 3) # 1 1 X 1 # 2 2 X 0 # 3 1 X 0 # 4 2 X 0 # 5 1 X 1 # 6 2 X 1 # 7 1 X 1 # 8 2 X 0 # 9 1 Y 1 # 10 1 Y 0 # 11 2 Y 0 # 12 2 Y 0 # 13 1 Y 1 # 14 1 Y 1 # 15 2 Y 1 # 16 2 Y 0 # 17 1 Z 1 # 18 1 Z 0 # 19 1 Z 0 # 20 1 Z 0 # 21 2 Z 1 # 22 2 Z 1 # 23 2 Z 1 # 24 2 Z 0 -- R资料整理套件系列文： magrittr #1LhSWhpH (R_Language) http://tinyurl.com/1LhSWhpH data.table #1LhW7Tvj (R_Language) http://tinyurl.com/1LhW7Tvj dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/1LhpJCfB dplyr(下) #1Lhw8b-s (R_Language) tidyr #1Liqls1R (R_Language) http://tinyurl.com/1Liqls1R --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.109.73.232 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1458476621.A.E86.html