Question

我有以下数据框：

id<-c(1,2,3,4)
date<-c("23-01-08","01-11-07","30-11-07","17-12-07")
df<-data.frame(id,date)
df$date2<-as.Date(as.character(df$date), format = "%d-%m-%y")

在我的表格的第4列中，我想根据日期将我的数据划分为校准和有效，以便日期＆lt; = 2007-12-16，第四列应为calib，否则它应该是{ {1}}

我写了以下几行：

valid

第一个问题是，通过执行此命令，第4列中的所有单元格将变为for ( i in 1:4) if (df[i,3]<=2007-12-16)(df[i,4]="calib")else (df[i,4]="valid")，并且似乎无法正确处理日期条件。所以我的第一个问题是如何解决这个问题。

第二个问题是我的真实数据框有600000行，执行此命令需要数小时。我想知道是否有任何方法可以更快地执行此命令并具有完整的CPU容量。

谢谢！

Answer 1

R 矢量化，因此您可以在一个语句中执行此操作：

R> df <- within(df,state <- ifelse(date2<=as.Date("2007-12-16"),"calib","valid"))
R> df
  id     date      date2 state
1  1 23-01-08 2008-01-23 valid
2  2 01-11-07 2007-11-01 calib
3  3 30-11-07 2007-11-30 calib
4  4 17-12-07 2007-12-17 valid
R>

如果within，with或transform看起来很奇怪，您也可以直接执行此操作：

R> df$state <- ifelse(df$date2<=as.Date("2007-12-16"),"calib","valid")
R> df
  id     date      date2 state
1  1 23-01-08 2008-01-23 valid
2  2 01-11-07 2007-11-01 calib
3  3 30-11-07 2007-11-30 calib
4  4 17-12-07 2007-12-17 valid
R>

创建＆lt; =＆gt; R中的日期格式的条件

1 个答案: