r - 拆分字符串并转置结果

Question

我有一个数据集，它在沿着中央骨架的每个像素位置都有宽度。宽度以逗号分隔的单个字符串形式输出。

cukeDatatest <- read.delim("https://gist.githubusercontent.com/bhive01/e7508f552db0415fec1749d0a390c8e5/raw/a12386d43c936c2f73d550dfdaecb8e453d19cfe/widthtest.tsv")
str(cukeDatatest) # or dplyr::glimpse(cukeDatatest)

我需要用宽度保留 File 和 FruitNum 标识符。

我想要的输出有三列 File、FruitNum、ObjectWidth，但 File 和 FruitNum 重复了该水果的 ObjectWidth 的长度。位置很重要，所以对这些向量进行排序会非常糟糕。此外，每个水果的长度都不同(如果这对您的方法很重要)。

我以前使用过 str_split() 从字符串中剖析一些元素，但从来没有这么大的东西，也没有这么多(我有 8000 个)。处理时间是一个问题，但会等待正确的结果。

我更习惯于dplyr而不是data.table，但我看到Arun在这方面做了一些努力:R split text string in a data.table columns

Answer 1

使用 splitstackshape包裹

library(splitstackshape)
res <- cSplit(cukeDatatest, splitCols = "ObjectWidth", sep = ",", direction = "long")

# result
head(res)
#                            File FruitNum ObjectWidth
# 1: IMG_7888.JPGcolcorrected.jpg        1           4
# 2: IMG_7888.JPGcolcorrected.jpg        1          10
# 3: IMG_7888.JPGcolcorrected.jpg        1          14
# 4: IMG_7888.JPGcolcorrected.jpg        1          15
# 5: IMG_7888.JPGcolcorrected.jpg        1          22
# 6: IMG_7888.JPGcolcorrected.jpg        1          26