2017-01-23 166 views

回答

2

我们可以从extracttidyr

library(tidyr) 
extract(df1, date, into = c("Year", "Month", "Day"), "(.{4})(.{2})(.{2})") 

做这做另一种选择是read.csv

cbind(df1, read.csv(text=sub("(.{4})(.{2})(.{2})", "\\1,\\2,\\3", 
    df1$date), header=FALSE, col.names = c("Year", "Month", "Day"))) 
+3

我喜欢尽可能使用基础R。因此,我更喜欢你的第二个选项。我指出这一点,所以OP不认为有必要使用tidyr。 – rbatt