Split колонки в двух в г

Question

Моя ДФ выглядит следующим образом:

Time 
Week End 07-01-10 
Week End 07-02-10 

Я хочу, чтобы это как

Column  Time 
Week End 07-01-10 
Week End 07-02-10 

Я гугле пакет stringr будет полезным, но я не могу использовать его правильно, так как есть два пробела.

Answer 1

Вы можете использовать extract из tidyr пакета, в котором можно указать регулярные выражения, чтобы разделить колонки:

library(tidyr) 
extract(df, Time, into = c("Column", "Time"), "(.*)\\s(\\S+)") 
#  Column  Time 
# 1 Week End 07-01-10 
# 2 Week End 07-02-10 

Используйте (.*)\\s(\\S+), чтобы захватить две группы и раскол в пространстве, за которым следует группа, которая не содержит никакого пространства \\S+.

Если вы хотите использовать stringr пакет, вы можете использовать str_match функции с аналогичной функциональностью:

stringr::str_match(df$Time, "(.*)\\s(\\S+)")[, 2:3] 
#  [,1]  [,2]  
# [1,] "Week End" "07-01-10" 
# [2,] "Week End" "07-02-10" 

strsplit также работает, если указать место быть один перед цифрой, здесь ?= стендов для прогностического и \\d это аббревиатура для цифр и эквивалентно [0-9]:

do.call(rbind, strsplit(df$Time, "\\s(?=\\d)", perl = T)) 
#  [,1]  [,2]  
# [1,] "Week End" "07-01-10" 
# [2,] "Week End" "07-02-10" 

Answer 2

Вот решение базовой-R.

df <- data.frame(c("Week End 07-01-10", "Week End 07-02-10"), 
       stringsAsFactors=FALSE) 
names(df) <- "Time" 

# Assuming all columns end with (time?) in the same format. 
df$Column <- substring(df$Time, 0, nchar(df$Time)-9) 
df$Time <- substring(df$Time, nchar(df$Time)-8, nchar(df$Time)) 
df <- df[, c(2,1)]; df # Changing column order 

Answer 3

Мы можем использовать read.table из base R. Нет необходимости в пакетах

read.table(text=sub("\\s+(\\S+)$", ",\\1", df1$Time), header=FALSE, 
    col.names = c("Column", "Time"), stringsAsFactors=FALSE, sep=",") 
# Column  Time 
#1 Week End 07-01-10 
#2 Week End 07-02-10