我需要帮助合并RStudio中的2个数据帧。
我想按照这种模式将我的PP数据框合并到我的MergeHeader数据框中：
每次有一个递增的数字
instance_reporting_properties.Numéro_x0020_du_x0020_formulaire列，我想合并PP数据框的一行。
例如， 我想将第5行PP数据帧添加到mergeHeader数据框中值为5的行。
然后没有几行，并再次为PP的第6行做。 等等。 诀窍是每个值之间的NA行数不同（在MergeHeader数据帧中）。
这是我的数据框的简化版本：
> 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")