R：每x行合并2个不同的数据帧（每5行，然后7行，然后可能3行，以此类推）

我需要一些帮助合并RStudio中的2个数据帧

我想按照以下模式将我的PP数据框合并到我的MergeHeader数据框中： 每次数据中有一个递增的数字时

instance_reporting_properties.Numéro_x0020_du_x0020_formulaire

列，我想合并PP数据帧的一行

比如说,， 我想将PP数据框的第5行添加到mergeHeader数据框中值为5的行中

然后几行什么都不做，第六行PP再做一次。 等等 诀窍在于每个值（在MergeHeader数据帧中）之间的NA行数不同

这里是我的数据帧的简化版本：

     > dput(head(tmpPP, 5))
structure(list(`_x0031__x0020_-_x0020_Type_x0020_de_x0020_demande_x0020__x0028_Alias_x0029_` = c("Demande de création", 
"Demande de création", NA, NA), `_x0032__x0020_-_x0020_Numéro_x0020_du_x0020_formulaire_x0020__x0028_Alias_x0029_` = c("N 5", 
"N 6", NA, NA), `_x0033__x0020_-_x0020_Demandeur_x0020__x0028_Alias_x0029_` = c("par MOLLE Francois pour", 
"par CABRERA Fabienne pour", NA, NA), `_x0034__x0020_-_x0020_Fournisseur_x0020__x0028_Alias_x0029_` = c("MONNIEZ CHRISTOPHE JACQUES", 
"A . C . C . REFERENCE TOURS", NA, NA), `_x0035__x0020_-_x0020_Date_x0020_de_x0020_la_x0020_demande_x0020__x0028_Alias_x0029_` = c("le Monday, January 2, 2017 8:44:07 AM", 
"le Monday, January 2, 2017 8:56:47 AM", NA, NA), Code_x0020_fournisseur = c("FA01070-59242", 
"FA01792-74000", "FA01072-68110", "En cours"), Code_x0020_NAF = c("1071C", 
"7911Z", NA, NA), Date_x0020_de_x0020_la_x0020_demande = c("1/2/2017", 
"1/2/2017", "1/2/2017", "1/2/2017"), `Délai_x0020_de_x0020_paiement` = c("45 jours fin de mois", 
"45 jours fin de mois", "Comptant", "Comptant"), Demandeur = c("MOLLE Francois", 
"CABRERA Fabienne", "DI MARCO Elio", "CHOPIN Anne Flore"), Famille_x0020_Achat = c("061101 - Consommables alimentaires, boissons et dérivés", 
"060302 - Agences de voyages", NA, NA), Fournisseur = c("MONNIEZ CHRISTOPHE JACQUES", 
"A . C . C . REFERENCE TOURS", "CONTROLE TECHNIQUE PASSION ILLZACH", 
"DIRECTION REGIONALE FINANCES PUBLIQUES PROVENCE ALPES COTE D'AZUR ET DEPARTEMENT BOUCHES DU RHONE"
), Mode_x0020_de_x0020_paiement_x0020_1 = c("VIR", "VIR", "VIR", 
"VIR"), Nom_x0020_Approbateur = c("Vincent DESTOT", "BURTEY Thomas", 
"Laurent GELHAYE", NA), Nom_x0020_Gestionnaire_x0020_RFN = c("Elisa WATELLOO", 
"KOLANUS Karolina", "Elisa WATELLOO", "Elisa WATELLOO"), `Numéro_x0020_du_x0020_formulaire` = c("5", 
"6", "7", "8"), Personne_x0020_en_x0020_charge = c("Réviseurs", 
"Réviseurs", "Réviseurs", NA), `Pôle_x0020_du_x0020_demandeur` = c("Hauts De France", 
"Bourgogne - Franche - Comté", "Grand Est", "Société EAP"), 
    Statut = c("Finalisée", "Finalisée", "Finalisée", "Demande refusée Gestionnaire"
    ), Type_x0020_de_x0020_demande = c("Demande de création", 
    "Demande de création", "Demande de création", "Demande de création"
    ), Type_x0020_de_x0020_fournisseur = c("Français", NA, "Français", 
    "Français"), `Date_x0020_de_x0020_création` = c("1/2/2017", 
    "1/1/0001", "1/2/2017", NA), Date_x0020_de_x0020_rejet = c(NA, 
    NA, "1/1/0001", NA), Prestataire_x0020_de_x0020_service = c(NA, 
    "Oui", "Oui", NA), Mode_x0020_de_x0020_paiement_x0020_2 = c(NA_character_, 
    NA_character_, NA_character_, NA_character_), Motif_x0020_de_x0020_rejet = c(NA_character_, 
    NA_character_, NA_character_, NA_character_), `Activité_x0020_Tourisme` = c(NA_character_, 
    NA_character_, NA_character_, NA_character_)), .Names = c("_x0031__x0020_-_x0020_Type_x0020_de_x0020_demande_x0020__x0028_Alias_x0029_", 
"_x0032__x0020_-_x0020_Numéro_x0020_du_x0020_formulaire_x0020__x0028_Alias_x0029_", 
"_x0033__x0020_-_x0020_Demandeur_x0020__x0028_Alias_x0029_", 
"_x0034__x0020_-_x0020_Fournisseur_x0020__x0028_Alias_x0029_", 
"_x0035__x0020_-_x0020_Date_x0020_de_x0020_la_x0020_demande_x0020__x0028_Alias_x0029_", 
"Code_x0020_fournisseur", "Code_x0020_NAF", "Date_x0020_de_x0020_la_x0020_demande", 
"Délai_x0020_de_x0020_paiement", "Demandeur", "Famille_x0020_Achat", 
"Fournisseur", "Mode_x0020_de_x0020_paiement_x0020_1", "Nom_x0020_Approbateur", 
"Nom_x0020_Gestionnaire_x0020_RFN", "Numéro_x0020_du_x0020_formulaire", 
"Personne_x0020_en_x0020_charge", "Pôle_x0020_du_x0020_demandeur", 
"Statut", "Type_x0020_de_x0020_demande", "Type_x0020_de_x0020_fournisseur", 
"Date_x0020_de_x0020_création", "Date_x0020_de_x0020_rejet", 
"Prestataire_x0020_de_x0020_service", "Mode_x0020_de_x0020_paiement_x0020_2", 
"Motif_x0020_de_x0020_rejet", "Activité_x0020_Tourisme"), .internal.selfref = <pointer: (nil)>, row.names = 5:8, class = c("data.table", 
"data.frame"))





    dputTmp <- dput(head(tmp,18))
structure(list(`instance_reporting_properties.Numéro_x0020_du_x0020_formulaire` = c("5", 
NA, NA, NA, NA, "6", NA, NA, NA, NA, NA, NA, "7", NA, NA, NA, 
NA, "8"), `instance_reporting_properties.Pôle_x0020_de_x0020_rattachement` = c("Hauts De France", 
NA, NA, NA, NA, "Bourgogne - Franche - Comté", NA, NA, NA, NA, 
NA, NA, "Grand Est", NA, NA, NA, NA, "Société EAP")), .Names = c("instance_reporting_properties.Numéro_x0020_du_x0020_formulaire", 
"instance_reporting_properties.Pôle_x0020_de_x0020_rattachement"
), row.names = 21:38, class = "data.frame")

dput（头部（tmpPP，5）） 结构（列表（`uux0031\uuuux0020\ux0020\ux0020\ux0020\ux0020\ux0028\ux0028\u别名\ux0029\uu`=c（“需求方变更”）， “变更需求”，不适用，不适用），“'ux0032_uuuuuux0020_u-x0020_Numéro_x0020_ux0020_uux0020_0028_别名_x0029_239;c”（“N 5”， “N 6”，不适用，不适用），“par MOLLE Francois pour”， “帕·卡布雷拉·法比安·波尔”，不适用，不适用），“蒙尼兹·克里斯托夫·雅克”， “A.C.C.参考旅行团”，不适用，不适用），“'u x0035\u\u\u x0020\u x0020\u de\u x0020\u la\u x0020\u demande\u x0020\u x0028\u别名\u x0029\u”=C（“2017年1月2日星期一上午8:44:07”， “2017年1月2日星期一上午8:56:47”，NA，NA），代码为c（“FA01070-59242”， “FA01792-74000”、“FA01072-68110”、“En cours”，代码为， “7911Z”，不适用，不适用），日期（2017年1月2日）， “2017年1月2日”、“2017年1月2日”、“2017年1月2日”）、`Délai_x0020_de_x0020_paiement`=c（“45日财务报表”， “45焦耳的财政”，“Comptant”，“Comptant”，Demandeur=c（“MOLLE Francois”， “卡布雷拉·法比安内”、“迪马尔科·埃利奥”、“肖邦·安妮·弗洛尔”）、家庭用品（“061101-餐饮、博伊松和里夫”， “060302-航行社”，不适用，不适用），Fourniseur=c（“MONNIEZ CHRISTOPHE JACQUES”， “A.C.C.参考之旅”、“控制技术之旅”， “普罗旺斯阿尔卑斯蓝海岸和罗纳河流域公共财政方向” )，Mode_x0020_de_x0020_paiement_x0020_1=c（“VIR”、“VIR”、“VIR”， “VIR”，名称为“Vincent DESTOT”，“BURTEY Thomas”， “Laurent GELHAYE”，NA），名称为“Elisa WATELLOO”， “KOLANUS Karolina”、“Elisa WATELLOO”、“Elisa WATELLOO”）、`Numéro_x0020_du_x0020_formulaire`=c（“5”， “6”、“7”、“8”，人员费用=c（“Ré维修斯”， “Réviseurs”，“Réviseurs”，NA），`Pôle_x0020_du_x0020_demandeur`=c（“法兰西上”， “勃艮第-法兰西-康特”）、“大东部”、“社会经济共同体”， 状态=c（“最终确定”、“最终确定”、“最终确定”、“最终确定”、“最终确定”、“拒绝”或“拒绝”或“拒绝” )，类型_x0020_de_x0020_demande=c（“需求方变更”）， “需求方变更”、“需求方变更”、“需求方变更” )，Type_x0020_de_x0020_fourniseur=c（“Français”，NA，“Français”， “Français”），“日期”， “1/1/0001”、“1/2/2017”，不适用），日期（不适用， 不适用，“1/1/0001”，不适用），预状态服务=c（不适用， “Oui”，“Oui”，不适用），模式（不适用字符）， NA_字符，NA_字符，NA_字符），Motif_x0020_de_x0020_rejet=c（NA_字符， NA_character，NA_character，NA_character，`Activitéx0020_Tourisme`=c（NA_character， NA_字符，NA_字符，NA_字符），NA_字符，NA_字符，.Names=c（“_x0031__x0020_-_x0020_类型_x0020_deu x0020_需求方_x0020_x0028_别名_x0029_”， “x0032_uuux0020_ux0020_x0020_Numéro_x0020_x0020_x0028_x0029_x0029_0029_x0032_ux0022_x0028_x0028_x0029_029_029_029_002;”， “\u x0033\u\u x0020\u-\u x0020\u需求方\u x0020\u x0028\u别名\u x0029\u”， “_x0034__x0020_-_x0020_fourniseur_x0020_x0028_别名_x0029_”， “\ux0035\uuuuux0020\uux0020\uux0020\ux0020\ux0020\uux0028\ux0029\ux0029\uuux0035\uuuuuuux0020\ux0020\ux0028\ux0029\ux0035\ux0035\ux0020\ux0020\ux0028\ux0029\ux0029\ux， “代码”“代码”“日期”“需求日期”， “lai_x0020_de_x0020_paiement”、“Demandeur”、“Famille_x0020_Achat”， “Fournisseur”、“Mode_x0020_de_x0020_paiement_x0020_1”、“Nom_x0020_Approvater”， “Nom_x0020_Gestionnaire_x0020_RFN”，“Numéro_x0020_du_x0020_formulaire”， “人员费用”、“需求方费用”， “状态”、“需求类型”、“需求类型”、“需求类型”， “日期”“日期”“日期”， “预测试服务”、“模式测试服务”、“模式测试服务”， “Motif_x0020_de_x0020_rejet”，“ActivitéActivit_x0020_Tourisme”），.internal.selfref=，row.names=5:8，class=c（“data.table”， “data.frame”））

---

dputTmp请不要以图像形式提供数据。要使用它，我们必须再次输入所有内容。相反，使用

dput

创建数据的文本版本，并将其粘贴到问题中。如果数据太长，可以使用

dput（head（PP，20））

提供一个示例。好的，我现在就解决这个问题