r - 如何使用列表子元素名称而不是实际子元素名称

Question

我有一个通过 API 获取的列表:

my_ls <- list(list(hs_legal_basis = list(value = "Freely given consent from contact"), 
hs_date_entered_lead = list(value = "1603393304662"), hs_email_last_send_date = list(
    value = "1663103935369")), list(hs_legal_basis = list(
value = "Legitimate interest – prospect/lead"), hs_date_entered_lead = list(
value = "1588624274359"), hs_email_last_send_date = list(
value = "1657120876426")), list(hs_legal_basis = list(value = "Freely given consent from contact"), 
hs_date_entered_lead = list(value = "1622833942763"), hs_email_last_send_date = list(
    value = "1601582035403")))

尴尬的是每个元素都有“value”的名称。当使用 bind_rows 转换为数据框时，列名称在每种情况下都作为“值”出现。

我想要的实际值的列名称是子列表名称 - 从上面的示例来看，这些名称将是:

• hs_legal_basis
• hs_date_entered_lead 或
• hs_email_last_send_date

如何有效地将“value”的元素名称替换为父子列表名称？

理想情况下，我想使用 purrr 函数来完成此操作。

谢谢。

Answer 1

你可以这样做:

library(purrr)

map_dfc(transpose(my_ls), unlist) 

# A tibble: 3 × 3
  hs_legal_basis                      hs_date_entered_lead hs_email_last_send_date
  <chr>                               <chr>                <chr>                  
1 Freely given consent from contact   1603393304662        1663103935369          
2 Legitimate interest – prospect/lead 1588624274359        1657120876426          
3 Freely given consent from contact   1622833942763        1601582035403