如何拆分没有定义分隔符的数据帧列

如何将此列'seriesID'拆分为多列以使其看起来像下表一样？基本上我需要将字符串分成多个长度为（3,3,6,1,1,3）的字符串。如何拆分没有定义分隔符的数据帧列

seriesID 
1 ISU111aaaaaa33001 
2 ISU222bbbbbb33001 
3 ISU000cccccc63001 
4 ISU333dddddd63001 


seriesID    pre supp ind  data case area 
1 ISU111aaaaaa33001 ISU 111 aaaaaa 3  3  001 
2 ISU222bbbbbb33001 ISU 222 bbbbbb 3  3  001 
3 ISU000cccccc63001 ISU 000 cccccc 6  3  001 
4 ISU333dddddd63001 ISU 333 dddddd 6  3  001

谢谢！

来源

2017-03-16 Michael

seriesID <- c('ISU00000000033001', 
      'ISU00000000033001', 
      'ISU00000000063001', 
      'ISU00000000063001') 



df <- data.frame(pre = substr(seriesID,1,3), 
      supp =substr(seriesID,4,6), 
      ind =substr(seriesID,7,12), 
      data =substr(seriesID,13,13), 
      case =substr(seriesID,14,14), 
      area =substr(seriesID,15,17)) 

df 


pre supp ind data case area 
1 ISU 000 000000 3 3 001 
2 ISU 000 000000 3 3 001 
3 ISU 000 000000 6 3 001 
4 ISU 000 000000 6 3 001

来源

2017-03-16 20:29:55

您可以使用readr作为固定wdith文件“重新读取”您的数据。例如

series=c("ISU00000000033001","ISU00000000033001","ISU00000000063001","ISU00000000063001") 

read_fwf(paste(series, collapse="\n"), fwf_widths(c(3,3,6,1,1,3))) 
# A tibble: 4 × 6 
#  X1 X2  X3 X4 X5 X6 
# <chr> <chr> <chr> <int> <int> <chr> 
# 1 ISU 000 000000  3  3 001 
# 2 ISU 000 000000  3  3 001 
# 3 ISU 000 000000  6  3 001 
# 4 ISU 000 000000  6  3 001

注意，我们折叠串矢量成单个字符串与新的线，其可能是低效的大型载体。

来源

2017-03-16 20:26:58 MrFlick

这是不是愚蠢？ – zx8754

这听起来像你真正应该处理这个，当你阅读使用像read.fwf()数据：https://stat.ethz.ch/R-manual/R-devel/library/utils/html/read.fwf.html。

但要解决这个问题提出，只要使用substr()

seriesID <- c('ISU00000000033001', 'ISU00000000033001', 'ISU00000000063001', 'ISU00000000063001') 

df <- data.frame(seriesID = seriesID, 
    pre = substr(seriesID, 1, 3), 
    supp = substr(seriesID, 4, 6), 
    ind = substr(seriesID, 7, 12), 
    data = substr(seriesID, 13, 13), 
    case = substr(seriesID, 14, 14), 
    area = substr(seriesID, 15, 17)) 

print(df) 
#   seriesID pre supp ind data case area 
# 1 ISU00000000033001 ISU 000 000000 3 3 001 
# 2 ISU00000000033001 ISU 000 000000 3 3 001 
# 3 ISU00000000063001 ISU 000 000000 6 3 001 
# 4 ISU00000000063001 ISU 000 000000 6 3 001

来源

2017-03-16 20:31:47 andrew

您还可以使用substr：

widths = c(3,3,6,1,1,3) 
end = cumsum(widths) 
start = c(1, head(end, -1) + 1) 

as.data.frame(mapply(substr, start, end, MoreArgs = list(x=df$seriesID))) 

# V1 V2  V3 V4 V5 V6 
#1 ISU 000 000000 3 3 001 
#2 ISU 000 000000 3 3 001 
#3 ISU 000 000000 6 3 001 
#4 ISU 000 000000 6 3 001

来源

2017-03-16 20:35:00 Psidom

您可以使用separate从包tidyr：

df <- data.frame(series=c("ISU00000000033001","ISU00000000033001","ISU00000000063001","ISU00000000063001"), stringsAsFactors=FALSE) 

library(tidyr) 
df %>% 
    separate(series, 
      c("pre", "supp", "ind", "data", "case", "area"), 
      sep=cumsum(c(3,3,6,1,1))) 

    pre supp ind data case area 
1 ISU 000 000000 3 3 001 
2 ISU 000 000000 3 3 001 
3 ISU 000 000000 6 3 001 
4 ISU 000 000000 6 3 001

来源

2017-03-16 20:39:44 HubertL

如何拆分没有定义分隔符的数据帧列

回答

相关问题