R Faites pivoter une seule colonne pour placer les données sur une ligne

Je voudrais prendre une colonne et la faire pivoter pour avoir une seule ligne de données. Actuellement, j'ai deux colonnes et je veux que la seconde soit placée sur une seule ligne

Data:

structure(list(Specimen.Number.Full = structure(c(73L, 73L, 1L, 
1L, 1L, 1L, 1L, 3L, 3L, 3L),.Label = c("CN000007S/22", "CN000009Z/22", 
"CN000014B/22", "CN000015R/22", "CN000016X/22", "CN000026S/22", 
"CN000030K/22", "CN000047X/22", "CN000049L/22", "CN000050A/22", 
"CN000088T/22", "CN000090Z/22", "CN000091N/22", "CN000116M/22", 
"CN000117J/22", "CN000185E/22", "CN000186H/22", "CN000202V/22", 
"CN000203B/22", "CN000204R/22", "CN000205X/22", "CN000224X/22", 
"CN000225D/22", "CN000226L/22", "CN000305M/22", "CN000322T/22", 
"CN000326V/22", "CN000327B/22", "CN000331P/22", "CN000349J/22", 
"CN000390R/22", "CN000398E/22", "CN000399H/22", "CN000402Y/22", 
"CN000456H/22", "CN000469Y/22", "CN000484D/22", "CN000506H/22", 
"CN000523Q/22", "CN000525H/22", "CN000557Z/22", "CN000568G/22", 
"CN000570T/22", "CN000586B/22", "CN000606G/22", "CN000607Z/22", 
"CN000608N/22", "CN000610M/22", "CN000620B/22", "CN000621R/22", 
"CN000624S/22", "CN000625G/22", "CN000626Z/22", "CN000631V/22", 
"CN000644R/22", "CN000645X/22", "CN000646D/22", "CN000647L/22", 
"CN000648S/22", "CN000655B/22", "CN000656R/22", "CN000675K/22", 
"CN000681Y/22", "CN000682P/22", "CN000683A/22", "CN000700C/22", 
"CN000726X/22", "CN000756K/22", "CN000757M/22", "CN000758J/22", 
"CN000759V/22", "CN000798W/22", "PR000048H/22", "PR000134L/22", 
"PR000259Q/22", "PR000407X/22", "PR000599Q/22", "PR000905J/22", 
"PR000956C/22", "PR000978A/22", "PR001017D/22", "PR001110W/22", 
"PR001306J/22", "PR001633X/22", "PR001715J/22", "PR001776A/22", 
"PR001844P/22", "PR001995B/22", "PR002001D/22", "PR002054X/22", 
"PR002497Q/22", "PR002608W/22", "PR003018R/22", "PR003194L/22", 
"PR003265A/22", "PR003294N/22", "PR003377E/22", "PR003524Z/22", 
"PR003707V/22", "PR004375B/22", "PR004637T/22", "PR004769Q/22", 
"PR004822S/22", "PR005090H/22", "PR005105X/22", "PR005133V/22", 
"PR005698V/22", "PR005758X/22", "PR006170X/22", "PR006193X/22", 
"PR006600T/22", "PR006626D/22", "PR006905Q/22", "PR007427G/22", 
"PR007962P/22", "PR008110F/22", "PR008449K/22", "PR008534H/22", 
"PR008537P/22", "PR008607E/22", "PR008748D/22", "PR008826B/22", 
"PR008928M/22", "PR009127K/22", "PR009298E/22", "PR009489D/22", 
"PR009590Q/22", "PR009596F/22", "PR009666C/22", "PR009668K/22", 
"PR010000C/22", "PR010027D/22", "PR010055T/22", "PR010145A/22", 
"PR010511B/22", "PR010940R/22", "PR011196J/22", "PR011482W/22", 
"PR011557K/22", "PR011601Y/22", "PR011882F/22", "PR011992Q/22", 
"PR012389Z/22", "PR012695Q/22", "PR780367W/22"), class = "factor"), 
 Secondary.Code = structure(c(14L, 49L, 29L, 33L, 42L, 25L, 
 34L, 29L, 33L, 41L),.Label = c("M00100", "M09000", "M09350", 
 "M14110", "M42100", "M64300", "M73320", "M74000", "M80103", 
 "M80106", "M80413", "M80703", "M81402", "M81403", "M81406", 
 "M82100", "M82103", "M82110", "M82630", "M82900", "M84723", 
 "M84803", "M87203", "MM0017", "MM0018", "P11431", "P1149", 
 "P30851", "P30852", "P30853", "P30855", "P30866", "P30871", 
 "P30890", "P30891", "P30892", "P30893", "P30894", "P30895", 
 "P30896", "P30897", "P30898", "P31000", "P97002", "P97003", 
 "P97004", "P97005", "P97006", "P97008", "P97019", "P97020"
 ), class = "factor")), row.names = c(1L, 3L, 4L, 5L, 6L, 
7L, 8L, 14L, 15L, 16L), class = "data.frame")

Code R j'ai:

MSI.Secondary %>%
pivot_wider(names_from = Secondary.Code,values_from = Secondary.Code )

Sortie désirée:

| Specimen.Number.Full | Code.secondaire |

| -------------------- | -------------- |

| PR011196J/22 | M81406|

| PR000048H/22 | M81403| P97008 |

Sortie que j'obtiens :

| Specimen.Number.Full | Code.secondaire |

| -------------------- | -------------- |

| PR011196J/22 | ND | ND | ND | ND | ND | M81406 |

| PR000048H/22 | M81403 | P97008 | ND | ND | ND | ND |


Solution du problème

En utilisant group_by+ summarise, vous pouvez faire :

library(dplyr)
MSI.Secondary |> 
 group_by(Specimen.Number.Full) |> 
 summarise(Secondary.Code = paste(Secondary.Code, collapse = ", "))
#> # A tibble: 3 × 2
#> Specimen.Number.Full Secondary.Code  
#> <fct> <chr>   
#> 1 CN000007S/22 P30852, P30871, P30898, MM0018, P30890
#> 2 CN000014B/22 P30852, P30871, P30897 
#> 3 PR000048H/22 M81403, P97008

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Comment signer la connexion OKEx API version 5 avec websockets ?

Bien que cette question ait reçu une réponse pour les versions précédentes de l'API OKEx utilisant REST, elle ne l'a pas été pour la dernière version 5 de l'API utilisant des websockets. Les docs sont ici. Je reçois l'erreur suivante {"event":"error","msg":"Invalid sign","code":"60007"} , il doit donc y avoir un problème avec l'algorithme de chaîne de signature, mais je n'arrive pas à identifier où je fais une erreur. import hmac import json import time import hashlib import asyncio import websockets passphrase = "XXXX" secret_key = b"XXXX" api_key = "XXXX" timestamp = int(time.time()) print("timestamp: " + str(timestamp)) sign = str(timestamp) + 'GET' + '/users/self/verify' total_params = bytes(sign, encoding= 'utf-8') signature = hmac.new(bytes(secret_key, encoding= 'utf-8'), total_params, digestmod=hashlib.sha256).digest() sign...
Lire la suite

Détecter les appuis sur les touches fléchées en JavaScript

Comment détecter l'appui sur l'une des touches fléchées ? J'en ai profité pour savoir: function checkKey(e) { var event = window.event? window.event: e; console.log(event.keyCode) } Bien que cela fonctionnait pour toutes les autres touches, ce n'était pas le cas pour les touches fléchées (peut-être parce que le navigateur est censé faire défiler ces touches par défaut). Solution du problème event.key === "Flèche droite"... Plus récent et beaucoup plus propre: utilisez event.key . Plus de codes numériques arbitraires ! Si vous transpilez ou savez que vos utilisateurs utilisent tous des navigateurs modernes, utilisez ceci ! node.addEventListener('keydown', function(event) { const key = event.key; // "ArrowRight", "ArrowLeft", "ArrowUp", or "ArrowDown" }); Gestion détaillée : switch (event.key) { case "ArrowLeft": // Left pressed break; case "ArrowRight": // Right pressed break; c...
Lire la suite

Écart étrange du contrôleur de recherche iOS 13

Image
Lors de l'exécution de l'application sur iOS 13 beta 6, en utilisant Xcode 11 beta 5, je rencontre l'étrange lacune lors de la présentation du contrôleur de vue des résultats de recherche : Voici un peu comment cela est configuré : let searchResultsController = BLSearchResultsController() let ret = UISearchController(searchResultsController: searchResultsController) ret.searchResultsUpdater = self ret.delegate = self ret.searchBar.delegate = self; ret.searchBar.autocapitalizationType =.none ret.searchBar.placeholder = NSLocalizedString("SearchMsg", comment: "") ret.searchBar.enablesReturnKeyAutomatically = true if #available(iOS 13.0, *) { ret.searchBar.showsScopeBar = false ret.searchBar.backgroundColor =.white let searchTextField = ret.searchBar.searchTextField searchTextField.font = UIFont.tuttiRegularFont(16) searchTextField.accessibilityIdentifier = "Main Search Field" if let searchImageView = searchTextField.leftView as? UIImage...
Lire la suite