Question

首先，我必须声明我绝对是R语言中的菜鸟。我只阅读了教程代码。

我需要改变当前状态：

timeseries <- as.data.frame(
  unlist(
    strsplit(
      rawToChar(
        output$stdout
      ),
      "\n"
    )
  )
)

                                   V1
1  DEV+M0001000 1514779200 1571637600
2  DEV+M0001CAL 1567108800 1567195200
3  DEV+M0003000 1514779200 1571637600
4  DEV+M0003CAL 1567105200 1567108800
5  DEV+M0004000 1514779200 1571637600
6  DEV+M0004CAL 1567108800 1567195200

…变成二维数据框，例如：

             V1         V2         V3
1  DEV+M0001000 1514779200 1571637600
2  DEV+M0001CAL 1567108800 1567195200
3  DEV+M0003000 1514779200 1571637600
4  DEV+M0003CAL 1567105200 1567108800
5  DEV+M0004000 1514779200 1571637600
6  DEV+M0004CAL 1567108800 1567195200

有什么建议吗？还是链接到相同的问题？

Answer 1

您可以拆分字符串，然后使用基数R将输出合并到数据帧中：

as.data.frame(do.call(rbind, strsplit(df$V1, " ")))

#### OUTPUT ####
            V1         V2         V3
1 DEV+M0001000 1514779200 1571637600
2 DEV+M0001CAL 1567108800 1567195200
3 DEV+M0003000 1514779200 1571637600
4 DEV+M0003CAL 1567105200 1567108800
5 DEV+M0004000 1514779200 1571637600
6 DEV+M0004CAL 1567108800 1567195200

您也可以尝试tidyr的{{1}}：

separate

Answer 2

我们可以在此处尝试使用sub作为基本的R选项：

df$V2 <- sub("^\\S+ (\\S+) \\S+", "\\1", df$V1)
df$V3 <- sub("^\\S+ \\S+ ", "", df$V1)
df$V1 <- sub(" \\S+ \\S+$", "", df$V1)
df
            V1         V2         V3
1 DEV+M0001000 1514779200 1571637600
2 DEV+M0001CAL 1567108800 1567195200

数据：

df <- data.frame(V1=c("DEV+M0001000 1514779200 1571637600",
                      "DEV+M0001CAL 1567108800 1567195200"), stringsAsFactors=FALSE)
df
                                  V1
1 DEV+M0001000 1514779200 1571637600
2 DEV+M0001CAL 1567108800 1567195200

Answer 3

数据：

df <- data.frame(V1=c("DEV+M0001000 1514779200 1571637600",
                              "DEV+M0001CAL 1567108800 1567195200"), stringsAsFactors=FALSE)


df$V2 <- "whatever"

df$V3 <- "how you going"

将字符串拆分为新列（不管df $ V1中的元素数量以及构成df的向量有多少，都可以使用）：

split_df <- cbind(df[, colnames(df) != "V1", drop = FALSE],

                  data.frame(do.call("rbind", strsplit(df$V1, "\\s+"))))

colnames(split_df) <- c(names(df[, names(df) != "V1"]),

                        as.character(c(
                          gsub(".*[$]", "", deparse(substitute(df$V1))),

                          paste0(rep("V", length(grep(
                            "\\s+", df$V1
                          ))),

                          c(ncol(df) + 1):(length(grep(
                            "\\s+", df$V1
                          )) + ncol(df)))
                        )))
names(split_df)

Answer 4

首先可以将其写为3列矩阵的子字符串，然后将其写入数据帧。

as.data.frame(matrix(sapply(timeseries,function(v) unlist(strsplit(v,split = " "))), ncol=3, byrow = TRUE))

在R数据帧内拆分每个字符串

4 个答案: