How to split a dataframe column into two columns

user_17690163 0
Viewed 144

Im looking to see how to split a single data frame column into two columns and replace a symbol for another. For example, if the data frame y has;

X1
NA
1/0:0.82
1/1:1.995
0/1:1.146
NA
1/1:1.995

I want to be able to split the data into two columns like so and substitute the "/" symbol for a".".

X1 X2
NA
1.0 0.82
1.1 1.995
0.1 1.146
NA
1.1 1.995

Whenever I try to use str.split I keep running into errors. Any help would e great.

Edit:

X1

NA

1|0:0.82

1|1:1.995

0|1:1.146

NA

1|1:1.995

How to separate it so its |X1|X2| |--|--| |NA| |1/0|0.82| etc

dataframe r split
3 Answers
read.table(text=df$X1, sep=':', fill=T, h=F, dec = '/')
   V1    V2
1  NA      
2 1.0  0.82
3 1.1 1.995
4 0.1 1.146
5  NA      
6 1.1 1.995

If you want columns in respective data.types:

type.convert(read.table(text=df$X1, sep=':', fill=T, h=F, dec = '/'), as.is = TRUE)
   V1    V2
1  NA    NA
2 1.0 0.820
3 1.1 1.995
4 0.1 1.146
5  NA    NA
6 1.1 1.995

df <- structure(list(X1 = c(NA, "1/0:0.82", "1/1:1.995", "0/1:1.146", NA,
                 "1/1:1.995")), class = "data.frame", row.names = c(NA, -6L))
user_83802720

You may use separate to split data on : into two columns and replace / to . in the first column. Using data from @Onyambu -

library(dplyr)
library(tidyr)

df <- df %>%
  separate(X1, c('X1', 'X2'), sep = ':') %>%
  mutate(X1 = sub('/', '.', X1)) %>%
  type.convert(as.is = TRUE)

df

#   X1    X2
#1  NA    NA
#2 1.0 0.820
#3 1.1 1.995
#4 0.1 1.146
#5  NA    NA
#6 1.1 1.995
user_39629140

Using strsplit

d$d
[1] NA          "1/0:0.82"  "1/1:1.995" "0/1:1.146" NA          "1/1:1.995"

data.frame( unname( t(data.frame( strsplit(sub("/",".",d$d), ":") )) ) )
    X1    X2
1 <NA>  <NA>
2  1.0  0.82
3  1.1 1.995
4  0.1 1.146
5 <NA>  <NA>
6  1.1 1.995

Data

d <- structure(list(d = c(NA, "1/0:0.82", "1/1:1.995", "0/1:1.146",
NA, "1/1:1.995")), class = "data.frame", row.names = c(NA, -6L
))

EDIT, For any other substitution use:

d$d
[1] NA          "1|0:0.82"  "1|1:1.995" "0|1:1.146" NA          "1|1:1.995"

data.frame( unname( t(data.frame( strsplit(sub("\\|","/",d$d), ":") )) ) )
    X1    X2
1 <NA>  <NA>
2  1/0  0.82
3  1/1 1.995
4  0/1 1.146
5 <NA>  <NA>
6  1/1 1.995
user_94620950
Related