通过子串位置的R和值（无列）

Question

我有一个任务是在400 b长文件（500K行）中汇总多个标志，我的输入是.txt文件。 我知道我可以使用colSums，但我不想用列加载数据，因为它是动态的，所以如果我需要让我们说像子串（d，12,13），d，16这样的和值16。请以聪明的方式做到这一点？所以我得到类似下面的东西，我使用writeLInes作为输入只是为了清洁测试，主要部分不工作在## Tx all

    dd <- c('Charly 010101010101010101010','Mike   011111111111113111111','Zulu   010101010101010101010')
    dd
    writeLines(dd, "IN.txt")

    d <- readLines("IN.txt")
    d
    cl <- c('C1','C2')       ## col names

    d1 <-  ## !!!
         c( sum(as.numeric(substring(d,12,13))),
            sum(as.numeric(substring(d,16,16)))
          )
    d1

    out <- data.frame(cl,d1)
    write.csv("Out.csv", out")

###  desired output    *** updated 6/12 1pm EST
C1  C2
13   1