Я хотел бы разбить один столбец на два в кадре данных на основе разделителя. Например,
a|b
b|c
чтобы стать
a b
b c
в кадре данных.
Спасибо!
Я хотел бы разбить один столбец на два в кадре данных на основе разделителя. Например,
a|b
b|c
чтобы стать
a b
b c
в кадре данных.
Спасибо!
@Taesung Shin - это правильно, но тогда еще немного волшебства, чтобы превратить его в data.frame
.
Я добавил строку "x | y", чтобы избежать двусмысленностей:
df <- data.frame(ID=11:13, FOO=c('a|b','b|c','x|y'))
foo <- data.frame(do.call('rbind', strsplit(as.character(df$FOO),'|',fixed=TRUE)))
Или, если вы хотите заменить столбцы в существующем файле data.frame:
within(df, FOO<-data.frame(do.call('rbind', strsplit(as.character(FOO), '|', fixed=TRUE))))
Что производит:
ID FOO.X1 FOO.X2
1 11 a b
2 12 b c
3 13 x y
У Hadley очень элегантное решение сделать это внутри фреймов данных в его пакете reshape
, используя функцию colsplit
.
require(reshape)
> df <- data.frame(ID=11:13, FOO=c('a|b','b|c','x|y'))
> df
ID FOO
1 11 a|b
2 12 b|c
3 13 x|y
> df = transform(df, FOO = colsplit(FOO, split = "\\|", names = c('a', 'b')))
> df
ID FOO.a FOO.b
1 11 a b
2 12 b c
3 13 x y
Недавно популярный пакет tidyr
делает это с separate
. Он использует регулярные выражения, поэтому вам нужно будет избежать |
df <- data.frame(ID=11:13, FOO=c('a|b', 'b|c', 'x|y'))
separate(data = df, col = FOO, into = c("left", "right"), sep = "\\|")
ID left right
1 11 a b
2 12 b c
3 13 x y
хотя в этом случае значения по умолчанию достаточно умны для работы (он ищет не буквенно-цифровые символы для разделения).
separate(data = df, col = FOO, into = c("left", "right"))
Просто наткнулся на этот вопрос, поскольку он был связан в недавнем вопросе о SO.
Бесстыдный ответ: используйте cSplit
из моего пакета splitstackshape:
df <- data.frame(ID=11:13, FOO=c('a|b','b|c','x|y'))
library(splitstackshape)
cSplit(df, "FOO", "|")
# ID FOO_1 FOO_2
# 1 11 a b
# 2 12 b c
# 3 13 x y
Эта конкретная функция также обрабатывает разделение нескольких столбцов, даже если каждый столбец имеет другой разделитель:
df <- data.frame(ID=11:13,
FOO=c('a|b','b|c','x|y'),
BAR = c("A*B", "B*C", "C*D"))
cSplit(df, c("FOO", "BAR"), c("|", "*"))
# ID FOO_1 FOO_2 BAR_1 BAR_2
# 1 11 a b A B
# 2 12 b c B C
# 3 13 x y C D
По существу, это удобная обертка для удобства использования базовый R-подход может быть:read.table(text = some_character_vector, sep = some_sep)
и привязки, которая выводится на исходный data.frame
. Другими словами, другой
df <- data.frame(ID=11:13, FOO=c('a|b','b|c','x|y'))
cbind(df, read.table(text = as.character(df$FOO), sep = "|"))
ID FOO V1 V2
1 11 a|b a b
2 12 b|c b c
3 13 x|y x y
strsplit(c('a|b','b|c'),'|',fixed=TRUE)
Объединение ответов @Ramnath и @Tommy позволило мне найти подход, который работает в базе R для одного или нескольких столбцов.
Основное использование:
> df = data.frame(
+ id=1:3, foo=c('a|b','b|c','c|d'),
+ bar=c('p|q', 'r|s', 's|t'), stringsAsFactors=F)
> transform(df, test=do.call(rbind, strsplit(foo, '|', fixed=TRUE)), stringsAsFactors=F)
id foo bar test.1 test.2
1 1 a|b p|q a b
2 2 b|c r|s b c
3 3 c|d s|t c d
Несколько столбцов:
> transform(df, lapply(list(foo,bar),
+ function(x)do.call(rbind, strsplit(x, '|', fixed=TRUE))), stringsAsFactors=F)
id foo bar X1 X2 X1.1 X2.1
1 1 a|b p|q a b p q
2 2 b|c r|s b c r s
3 3 c|d s|t c d s t
Лучшее именование нескольких разделенных столбцов:
> transform(df, lapply({l<-list(foo,bar);names(l)=c('foo','bar');l},
+ function(x)do.call(rbind, strsplit(x, '|', fixed=TRUE))), stringsAsFactors=F)
id foo bar foo.1 foo.2 bar.1 bar.2
1 1 a|b p|q a b p q
2 2 b|c r|s b c r s
3 3 c|d s|t c d s t