首页 > 解决方案 > 根据分隔符拆分列并创建新列

问题描述

需要帮助根据我在使用多个分隔符时遇到的不同分隔符拆分列下面是示例数据和预期输出。

样本数据

ContractCd <- c(9940099251,9940080497,9940099251,9940014221)

WBSElementNbr <- c("N1075001,N1075013,MT842001,N1128001,NN480001,N1142001,N1147001","IV768001&IU775001","NN480001;N1147001","D6268001/D6268005")

Sample Data
Data <- data.frame(ContractCd,WBSElementNbr)

预期产出

ContractCd <- c(9940099251,
                9940099251,
                9940099251,
                9940099251,
                9940099251,
                9940099251,
                9940099251,
                9940080497,
                9940080497,
                9940099251,
                9940099251,
                9940014221,
                9940014221)

WBSElementNbr <- c("N1075001",
                   "N1075013",
                   "MT842001",
                   "N1128001",
                   "NN480001",
                   "N1142001",
                   "N1147001",
                   "IV768001",
                   "IU775001",
                   "NN480001",
                   "N1147001",
                   "D6268001",
                   "D6268005")

Expected Output
Data1 <- data.frame(ContractCd,WBSElementNbr)

标签: r

解决方案


我们可以用separate_rows

library(tidyverse)
Data %>%
   separate_rows(WBSElementNbr)

推荐阅读