2017-01-23 2 views

ответ

2

Мы можем сделать это с помощью extract из tidyr

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, если это возможно. Таким образом, мне больше нравится второй вариант. Я указываю на это, поэтому ОП не считает нужным использовать тидыр. – rbatt

Смежные вопросы