迭代一列的每行中的每个字符

Question

该列的示例为test <- c('apple #1930', 'apple #84555', 'apple A #33859', 'apple good', 'peach brand A - level 1 #8839', 'peach brand A - middle or not', 'peach brand A #2283')

我希望我的结果表是这样的：

 Name           Description     Number
apple              NA           #1930
apple              NA           #84555
apple              A            #33859
apple             good            NA
peach brand A     level 1        #8839
peach brand A    middle or not      NA
peach brand A       NA           #2283

我试过了`

findiffs <- rle(test)

newdf <- data.frame(
                    firststring = test[cumsum(findiffs$length)],
                    secondstring = test[cumsum(findiffs$length)+1]
                    )

newdf <- newdf[-dim(newdf)[1],] 

但是它没有给我想要的输出。

任何帮助都将不胜感激！

Answer 1

我猜每一列都有它自己的分隔符。因此，您可能想要尝试这样的操作：

test <- data.frame(orig = c('apple #1930', 'apple #84555', 'apple A #33859', 'apple good', 'peach brand A - level 1 #8839', 'peach brand A - middle or not', 'peach brand A #2283'))


test %>% separate(orig, into= c("a", "b"), sep = "[#]") %>%  separate(a, into=c("aa", "bb"), sep="[-]")


              aa             bb     b
1         apple            <NA>  1930
2         apple            <NA> 84555
3       apple A            <NA> 33859
4     apple good           <NA>  <NA>
5 peach brand A        level 1   8839
6 peach brand A   middle or not  <NA>
7 peach brand A            <NA>  2283