División de una columna numérica para un marco de datos

Question

Tengo un dataframe df como se muestra a continuación

  name  position            
1 HLA   1:1-15            
2 HLA   1:2-16 
3 HLA   1:3-17         

Me gustaría dividir la columna de posición en dos columnas más basadas en el carácter ":" de forma que obtenga

name    seq    position            
1 HLA   1       1-15            
2 HLA   1       2-16 
3 HLA   1       3-17 

Así que pensé que esto serviría,

df <- transform(df,pos = as.character(position)) 

df_split<- strsplit(df$pos, split=":")

#found this hack from an old mailing list post
df <- transform(df, seq_name= sapply(df_split, "[[", 1),pos2= sapply(df_split, "[[", 2))

sin embargo obtengo un error

Error in strsplit(df$pos, split = ":") : non-character argument

¿Qué puede fallar? Cómo se consigue esto en R. He simplificado mi caso aquí, en realidad el marco de datos tiene más de cien mil filas.

Answer 1

df_split<- strsplit(as.character(df$position), split=":")
df <- transform(df, seq_name= sapply(df_split, "[[", 1),pos2= sapply(df_split, "[[", 2))
> 
> df
  name position    pos seq_name pos2
1  HLA   1:1-15 1:1-15        1 1-15
2  HLA   1:2-16 1:2-16        1 2-16
3  HLA   1:3-17 1:3-17        1 3-17

Answer 2

Aquí hay un método de una línea usando tidyr.separate():

library(tidyr)
df <- separate(df, position, into = c("seq","position"), sep = ":", extra = "merge")

Answer 3

El "truco" consiste en utilizar do.call .

> a <- data.frame(x = c("1:1-15", "1:2-16", "1:3-17"))
> a
       x
1 1:1-15
2 1:2-16
3 1:3-17
> a$x <- as.character(a$x)
> a.split <- strsplit(a$x, split = ":")
> tmp <-do.call(rbind, a.split)
> data.frame(a, tmp)
       x X1   X2
1 1:1-15  1 1-15
2 1:2-16  1 2-16
3 1:3-17  1 3-17