Replace one string and create a column with another

Question

I have a data frame that looks like this

position=c("24,201", "8,915", "45,877:1","251,603")
evindence=c("RA", "RA","RA","RA")
test = data.frame(evindence,position)
  evindence position
1        RA   24,201
2        RA    8,915
3        RA 45,877:1
4        RA  251,603

I would like to use stringr or other tidyr applications to replace "," = "." and then create a new column when there is a string like ":".

I would like my dataset to look like this:

  evindence position insertion
1        RA   24201     NA
2        RA    8915     NA
3        RA   45877     1
4        RA  251603     NA

Any help or direction are appreciated

at least you were consistent with your typo :)

tjebo
– tjebo

2021-01-26 17:25:28 +00:00
Commented Jan 26, 2021 at 17:25 — tjebo
– tjebo, Commented Jan 26, 2021 at 17:25

thehand0 · Accepted Answer · 2021-01-26 17:16:14Z

3

Something like this might do the trick :

 # should remove the "," from the position column
test$position = gsub(",", "", position)
# should check if string contains :
test$insertion = grepl(":", test$position, fixed=TRUE)
# should extract anything before ":"
test$position = sapply(strsplit(test$position, "\\:"), "[", 1)

edited Jan 26, 2021 at 17:16

answered Jan 26, 2021 at 16:42

thehand0

1,1737 silver badges22 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

thehand0 Over a year ago

sorry for all the edits, had to redo it a few times. should do what you want now though :)

tjebo · Accepted Answer · 2021-01-26 17:30:58Z

2

and here the tidyverse option. Not saying it's better. Just another option. You'll get an appropriate warning for the NAs - sometimes you want warnings.

library(tidyverse)
position=c("24,201", "8,915", "45,877:1","251,603")
evindence=c("RA", "RA","RA","RA")
test = data.frame(evindence,position)

test %>%
  mutate(position = str_replace(position, ",", "\\.")) %>%
  separate(position, c("position", "insertion"), sep = ":")
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 3 rows [1, 2, 4].
#>   evindence position insertion
#> 1        RA   24.201      <NA>
#> 2        RA    8.915      <NA>
#> 3        RA   45.877         1
#> 4        RA  251.603      <NA>

^{Created on 2021-01-26 by the reprex package (v0.3.0)}

answered Jan 26, 2021 at 17:30

tjebo

24.1k8 gold badges73 silver badges108 bronze badges

1 Comment

tjebo Over a year ago

note if your intention is to create doubles, you still need to call "as.numeric"

Collectives™ on Stack Overflow

Replace one string and create a column with another

2 Answers 2

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related