r - 从 R 中的列表创建数据框

Question

我有一个 list Path我想从中创建一个 dataframe具有以下特征:2 列，number和uri行数与我的 Path 中的位置一样多列表。

> Path
[[1]]
[1] S1A_IW_GRDH_1SDV_20190818T175529_20190818T175554_028627_033D25_22ED.SAFE

[[2]]
[1] S2A_MSIL1C_20190823T061631_N0208_R034_T42TXS_20190823T081730.SAFE

为此，我开始使用此代码。

df <- data.frame(number = c(1:length(Path)),
                 uri = c(Path[[1]], Path[[2]]))

number列已链接到 Path 的维度使用 1:length(Path) 列出，但是，我如何填充 uri列相应。意思是，Path[[1]]的值应该在 row 1 , column uri ，依此类推，以防万一 Path有更多的值(value)吗？

-- 编辑--

我需要将第三列添加到 dataframe哪些内容应取决于 Path[[i]] 的值。第三列名为 plugin和

• 如果 Path开始于S1 ，pluging的值该行应该是 "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn"

• 如果 Path开始于S2 ，pluging的值该行应该是 "class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM42N_ReaderPlugIn"

为此，我想使用 grepl('S2', Path)代码来检查条件，但我不确定如何在 dataframe 中分配适当的值

Answer 1

一个选项是来自base R的stack，用于在命名列表后创建两列data.frame > 带有序列的向量

stack(setNames(Path, seq_along(Path)))[2:1]

---

或者另一种选择是取消列出 list 并创建 data.frame (假设 list 元素长度 1)

data.frame(number = seq_along(Path), url = unlist(Path))

如果list的元素的长度不相等

data.frame(number = rep(seq_along(Path), lengths(Path)), url = unlist(Path))

---

或者我们可以使用tibble中的enframe

library(tibble)
library(tidyr)
library(purrr)   
library(dplyr) 
enframe(Path, name = "number", value = "url") %>%
      unnest %>%
      mutate(Plugin = case_when(substr(url, 1, 2) == "S1" ~ "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", TRUE ~ "class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM42N_ReaderPlugIn"))