Question

我将输出流式传输为文本，格式如下：

[2] "TWS OrderStatus: orderId=12048 status=PreSubmitted 
                      filled=0 remaining=300 averageFillPrice=0 "

[3] "TWS OrderStatus: orderId=12049 status=PreSubmitted 
                      filled=0 remaining=300 averageFillPrice=0 "

我想捕获此类输出并将其转换为包含以下列的数据框：orderId, status, filled, remaining, averageFillPrice。

我想知道最有效的方法是什么。

我尝试使用capture.output捕获它，但后来我不确定如何将其转换为数据框。

Answer 1

我认为您可以使用一些基本字符串函数来完成此操作。如果您将字符串存储在列表中，如下例所示，您可以创建一个函数来提取所需的信息，然后将其应用于列表并输出数据框：

a <- "TWS OrderStatus: orderId=12048 status=PreSubmitted filled=0 remaining=300 averageFillPrice=0 "
b <- "TWS OrderStatus: orderId=12049 status=PreSubmitted filled=0 remaining=300 averageFillPrice=0 "
dat <- list(a, b)

extract <- function(x) {
    a <- as.vector(strsplit(x, " ")[[1]])[-(1:2)]
    return(sapply(a, function(b) substr(b, gregexpr("=", b)[[1]] + 1, nchar(b))))
}

as.data.frame(t(sapply(dat, extract)))

输出可能更漂亮，但我相信你可以稍微清理一下。如果您的所有数据都遵循相同的模式（即按空格分割，并且您不希望等号出现在等号之前），它就可以工作。

Answer 2

另一种可能的解决方案，

library("splitstackshape")
library("stringr")
makedf <- function(x) {
v1 <- str_split(trimws(sub(".*?:(.+)", "\\1", x)), " ") 
v3 <- as.data.frame(sapply(v1, function(i) t(i)))
v4 <- as.data.frame(t(cSplit(v3, "V1", "=")))
v4[] <- lapply(v4, as.character)
colnames(v4) <- v4[1,]
v4 <- v4[-1,]
    }
FinalDF <- rbindlist(lapply(txt, makedf))
FinalDF
#   orderId       status filled remaining averageFillPrice
#1:   12048 PreSubmitted      0       300                0
#2:   12049 PreSubmitted      0       300                0

数据

txt <- list("TWS OrderStatus: orderId=12048 status=PreSubmitted filled=0 remaining=300 averageFillPrice=0 ", "TWS OrderStatus: orderId=12049 status=PreSubmitted filled=0 remaining=300 averageFillPrice=0 ")

捕获文本输出作为结构化数据框架

2 个答案: