作者celestialgod (天)
看板R_Language
标题Re: [问题] dplyr 与 mutate用法
时间Thu Oct 13 19:55:30 2016
※ 引述《huangsam (sam)》之铭言：
: [问题类型]:
:
: 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
:
: [软体熟悉度]:
: 请把以下不需要的部份删除
: 入门(写过其他程式，只是对语法不熟悉)
:
: [问题叙述]:
: 请简略描述你所要做的事情，或是这个程式的目的
: 想要用dplyr中的mutate 搭配回圈使用或是大家有更好的想法
: 下方并无法将column1....改变只会产生新的栏位i
: [程式范例]:
:
: 想要用dplyr中的mutate做回圈举例如下
: x <- c("column1","column2", "column3",....)
: 总共可能有100个栏位其中有10个栏位是时间格式，目前我是用
: data %>% mutate(column1 = as.POSIXct....
: column2 = as.POSIXct....
: .
: .
: column10 = as.POSIXct...)
: for (i in x)
: {
: data %>% mutate( i = as.POSIXct(as.numeric(i)*(60*60*24), origin="1899-12-30"
: , tz="UCT") )
: }
:
: [环境叙述]:
:
:
: [关键字]:
:
: dplyr , mutate
:
好读版：
http://pastebin.com/vQbFHfxm
library(dplyr)
minDate <- as.POSIXct("1990-01-01")
N <- 1000
p <- 100
dat <- lapply(1:p, function(x) {
if (x > p*0.1){
rnorm(N)
} else {
as.integer(Sys.time()) - sample(2e8, N)
}
}) %>% `names<-`(paste0("V", 1:p)) %>% as_data_frame
possibleTimeCols <- sapply(dat[1, ], function(x){
as.POSIXct(x, origin = "1970-01-01", tz = "Asia/Taipei") >= minDate
}) %>% {names(.)[.]}
datOut <- dat %>% mutate_each_(funs(as.POSIXct(., origin = "1970-01-01",
tz = "Asia/Taipei")), vars = possibleTimeCols)
print(datOut)
# Source: local data frame [1,000 x 100]
#
# V1 V2 V3
# <time> <time> <time>
# 1 2011-12-15 20:55:45 2012-04-18 23:16:08 2012-10-13 13:38:58
# 2 2013-03-15 11:05:22 2013-07-28 18:11:49 2011-03-26 14:46:51
# 3 2015-03-03 13:54:22 2011-06-18 05:31:24 2012-03-26 14:53:00
# 4 2015-11-03 01:30:12 2011-11-02 01:21:49 2013-11-05 15:16:48
# 5 2012-11-18 12:06:22 2012-04-05 16:28:43 2010-09-12 14:24:42
# 6 2012-01-24 03:38:18 2014-11-09 11:54:44 2016-05-30 21:50:26
# 7 2010-08-03 22:27:15 2016-01-04 00:05:41 2014-02-16 00:53:00
# 8 2013-05-14 12:44:14 2011-12-24 22:13:11 2012-01-17 18:22:01
# 9 2011-05-14 16:28:25 2011-04-23 07:36:51 2011-05-01 04:31:10
# 10 2010-07-02 17:25:18 2010-08-26 05:15:27 2013-12-31 21:10:19
# data.table解法
library(data.table)
library(pipeR)
minDate <- as.POSIXct("1990-01-01")
N <- 1000
p <- 100
dat <- lapply(1:p, function(x) {
if (x > p*0.1){
rnorm(N)
} else {
as.integer(Sys.time()) - sample(2e8, N)
}
}) %>>% as.data.table
possibleTimeCols <- sapply(dat[1, ], function(x){
as.POSIXct(x, origin = "1970-01-01", tz = "Asia/Taipei") >= minDate
}) %>>% (names(.)[.])
dateDT <- dat[ , lapply(.SD, function(x) as.POSIXct(x, origin = "1970-01-01",
tz = "Asia/Taipei")) ,
.SDcols = possibleTimeCols]
dat[ , `:=`(eval(possibleTimeCols), dateDT)] %>>% print
# V1 V2 V3
# 1: 2014-04-29 22:17:22 2013-07-12 11:37:04 2013-12-19 13:01:16
# 2: 2010-11-15 19:23:53 2016-01-28 05:17:19 2013-06-16 15:04:38
# 3: 2013-04-14 18:16:29 2012-10-25 07:32:09 2012-09-30 05:00:31
# 4: 2010-10-19 02:10:24 2015-04-02 19:09:34 2012-09-11 20:30:54
# 5: 2012-09-10 02:39:22 2014-05-18 23:02:04 2015-11-19 21:44:06
# ---
# 996: 2016-09-20 12:48:47 2016-10-08 11:42:33 2013-08-07 23:56:46
# 997: 2011-12-19 12:23:57 2011-01-23 02:55:16 2015-12-25 23:17:27
# 998: 2013-08-29 22:00:48 2013-07-16 04:39:07 2014-03-17 08:53:01
# 999: 2011-11-13 19:55:30 2010-08-08 16:43:12 2012-01-24 10:58:16
# 1000: 2015-08-07 16:55:23 2015-11-22 21:17:57 2014-03-05 10:13:36
--
R资料整理套件系列文：
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.246.31.159
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1476359736.A.31C.html
※ 编辑: celestialgod (111.246.31.159), 10/13/2016 20:12:21
1F：→ huangsam: 这个有点难，但是写出来好强大！谢谢提供，有没有类似 10/13 22:35
2F：→ huangsam: 文章可以读'names <-'的用法 10/13 22:35
其实`names<-`是一个函数，下面两个是相等的
x %>>% `names<-`(nn)
names(x) <- nn
3F：→ huangsam: 那请问`..`这个用法是? 10/14 13:16
只是圈起来告诉R这是函数
※ 编辑: celestialgod (111.246.31.159), 10/14/2016 19:37:58