Как удалить эти символы из моего вектора строк - PullRequest
0 голосов
/ 21 сентября 2019

Мне нужно решение о том, как я могу очистить мой вектор строк, который имеет символы и символы, например

[1]c("hiv3=0", "comdiab=0", "ppl=0")
[2]c("fxet3=1", "hiv3=0", "ppl=0")
[3]c("fxet3=1", "escol4=0", "alcool=0", "tipores3=1")
[4]c("escol4=0", "alcool=0", "ppl=0", "tipores3=1")

Предполагаемая строка выдаст

[1]"hiv3=0,comdiab=0, ppl=0"
[2]"fxet3=1, hiv3=0, ppl=0"
[3]"fxet3=1, escol4=0, alcool=0, tipores3=1"
[4]"escol4=0, alcool=0, ppl=0, tipores3=1"

Любое решениеприемлемо, хотя я пытался использовать функцию Regex gsub функция будет очень приемлемо также

Ответы [ 2 ]

1 голос
/ 21 сентября 2019

Судя по сообщению, кажется, что list из vector с.Мы можем использовать paste для создания одной строки из list из vector s

sapply(lst1, paste, collapse=", ")
#[1] "hiv3=0, comdiab=0, ppl=0"         
#[2] "fxet3=1, hiv3=0, ppl=0"     
#[3] "fxet3=1, escol4=0, alcool=0, tipores3=1" 
#[4] "escol4=0, alcool=0, ppl=0, tipores3=1"  

или иначе можно изменить как

sapply(lst1, toString)

data

lst1 <- list(c("hiv3=0", "comdiab=0", "ppl=0"), c("fxet3=1", "hiv3=0", 
"ppl=0"), c("fxet3=1", "escol4=0", "alcool=0", "tipores3=1"), 
    c("escol4=0", "alcool=0", "ppl=0", "tipores3=1"))
0 голосов
/ 21 сентября 2019

обратный ответ

library(tidyverse)

my_strings <- list(c("hiv3=0", "comdiab=0", "ppl=0"),
           c("fxet3=1", "hiv3=0", "ppl=0"),
           c("fxet3=1", "escol4=0", "alcool=0", "tipores3=1"),
           c("escol4=0", "alcool=0", "ppl=0", "tipores3=1"))


map_chr(.x = my_strings, .f = str_c, collapse = " ") 

# [1] "hiv3=0 comdiab=0 ppl=0"              
# [2] "fxet3=1 hiv3=0 ppl=0"                
# [3] "fxet3=1 escol4=0 alcool=0 tipores3=1"
# [4] "escol4=0 alcool=0 ppl=0 tipores3=1"  
...