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

Comment convertir une interface{} qui est vraiment une tranche de types dont le genre est reflect.Int32 en tranche de int32 ?

J'ai ce qui suit: type Int32A int32 type Int32B int32 et souhaite implémenter une fonction qui peut accepter n'importe quelle tranche de types dont le type est reflect.Int32 et le convertir en []int32 . Par example: func ConvertTypeSliceToInt32Slice(es «es-type») []int32 { result:= make([]int32, len(es)) for i:= 0; i < len(result); i++ { result[i] = es[i].(int32) } return result } func caller() { Int32as:= Int32A{1, 2} Int32bs:= Int32B{3, 5} int32as:= ConvertTypeSliceToInt32Slice(Int32as) int32bs:= ConvertTypeSliceToInt32Slice(Int32bs) } Comment cela peut-il être fait avec n'importe quelle définition de type arbitraire dont le genre est reflect.Int32 ? (Contexte : cette fonction sera utilisée pour convertir des tranches de proto enum s ; c'est-à-dire que l'ensemble complet des types est inconnu et illimité, il switch n'est donc pas possible d'effectuer un a sur chaque type). De plus, j'utilise 1.17 donc je ne peux pas utiliser de types pa...
Lire la suite

Créer un fichier CSV à partir d'un fichier texte avec des jetons d'en-tête à l'aide de scripts shell

Je souhaite créer un fichier CSV à partir d'un ensemble de fichiers texte dans un répertoire avec la structure suivante pour les importer ultérieurement dans une base de données. Title: Article title Word Count: 100 Summary: Article summary. Can consist of multiple lines. Keywords: keyword1, keyword2, keyword3 Article Body: The rest of the article body. Till the end of the file. Le résultat souhaité est donc de les avoir dans un fichier CSV avec des sections comme en-têtes avec leur contenu comme suit. Title | Word Count | Summary | Keywords | Article Body | Article title | 100 | Article summary.\nCan... | keyword1, keyword2, keyword3 |... | Article2 title | 110 | Article summary.\nCan... | keyword1, keyword2, keyword3 |... | J'ai essayé quelques approches avec des scripts awk et shell, mais je n'ai pas réussi jusqu'à présent. Des idées? Solution du problème Selon la documentation de COPY, PostgreSQL prend entièrement en charge le format CSV, ainsi qu'un for...
Lire la suite