问题描述
嗨，谢谢大家，
下面，我粘贴了REAL数据的结构，以便您可以复制粘贴并使用它。
正如我所说，我的目的是要获得一个平面数据框，其中每一行代表列数据框“行”中的一行，并能够将发票的ID和客户的ID“绑定”到该数据框。
我一直在尝试 tidyr :: unnest（）， tidyr :: unnest_wider（）， tidyr :: unnest_longer（）， purrr :: pluck ，但它们似乎都不起作用。
这是转储中的结构：
invoice <-
structure(list(id = c("in_1000","in_1001"
),customer = c("cus_1000","cus_1001"),lines = structure(list(object = c("list","list"),data = list(
structure(list(id = "in_1000",object = "line_item",amount = 0L,currency = "eur",description = "Trial period for Food",discount_amounts = list(list()),discountable = TRUE,discounts = list(list()),livemode = TRUE,Metadata = structure(list(),.Names = character(0),row.names = c(NA,-1L),class = "data.frame"),period = structure(list(
end = 1605198759L,start = 1601919291L),.Names = c("end","start"),class = "data.frame",row.names = 1L),plan = structure(list(id = "plan_1000",object = "plan",active = TRUE,aggregate_usage = NA,amount = 5850L,amount_decimal = "5850",billing_scheme = "per_unit",created = 1603405572L,interval = "day",interval_count = 33L,Metadata = structure(list(
user_id = "1655",user_email = "iii@gmail.com",dog_name = "Nevada"),.Names = c("user_id","user_email","dog_name"),nickname = NA,product = "prod_1000",tiers = NA,tiers_mode = NA,transform_usage = NA,trial_period_days = NA,usage_type = "licensed"),.Names = c("id","object","active","aggregate_usage","amount","amount_decimal","billing_scheme","created","currency","interval","interval_count","livemode","Metadata","nickname","product","tiers","tiers_mode","transform_usage","trial_period_days","usage_type"),price = structure(list(id = "plan_1000",object = "price",lookup_key = NA,Metadata = structure(list(user_id = "1655",recurring = structure(list(aggregate_usage = NA,.Names = c("aggregate_usage",transform_quantity = NA,type = "recurring",unit_amount = 5850L,unit_amount_decimal = "5850"),"lookup_key","recurring","transform_quantity","type","unit_amount","unit_amount_decimal"
),proration = FALSE,quantity = 1L,subscription = "sub_1000",subscription_item = "si_1000",tax_amounts = list(
list()),tax_rates = list(list()),type = "subscription"),"description","discount_amounts","discountable","discounts","period","plan","price","proration","quantity","subscription","subscription_item","tax_amounts","tax_rates","type"
),structure(list(
id = "il_1001",amount = 6300L,description = "1 Ã\u0097 Food (at â\u0082¬63.00 / every 32 days)",period = structure(list(
end = 1606161749L,start = 1603396949L),plan = structure(list(id = "plan_1001",amount_decimal = "6300",created = 1600632148L,interval_count = 32L,Metadata = structure(list(
user_id = "1297",user_email = "jjj@gmail.com",dog_name = "Jaro"),price = structure(list(id = "plan_1001",Metadata = structure(list(user_id = "1297",unit_amount = 6300L,unit_amount_decimal = "6300"),"unit_amount_decimal"
),subscription = "sub_1001",subscription_item = "si_1001",tax_amounts = list(
list()),"type"
),row.names = 1L)),has_more = c(FALSE,FALSE),total_count = c(1L,1L),url = c("/v1/invoices/in_1000/lines","/v1/invoices/in_1001/lines")),.Names = c("object","data","has_more","total_count","url"),row.names = 1:2)),"customer","lines"),row.names = 1:2,class = "data.frame")
再次感谢！
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）