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

La fonction GCP Cloud pour écrire des données dans BigQuery s'exécute avec succès, mais les données n'apparaissent pas dans la table BigQuery

Image
J'exécute la fonction cloud suivante. Il s'exécute avec succès et indique que les données ont été chargées dans la table. Mais lorsque j'interroge BigQuery, aucune donnée n'a été ajoutée. Je ne reçois aucune erreur et aucune indication que cela ne fonctionne pas. from google.cloud import bigquery import pandas as pd def download_data(event, context): df = pd.read_csv('https://covid.ourworldindata.org/data/ecdc/full_data.csv') # Create an empty list Row_list =[] # Iterate over each row for index, rows in df.iterrows(): # Create list for the current row my_list =[rows.date, rows.location, rows.new_cases, rows.new_deaths, rows.total_cases, rows.total_deaths] #print(my_list) # append the list to the final list Row_list.append(my_list) ## Get Biq Query Set up client = bigquery.Client() table_id = "<project_name>.raw.daily_load" table = client.get_table(table_id) print(client) print(table_id) print(table) errors = client.insert_rows(...
Lire la suite

Erreur Symfony : "Une exception a été levée lors du rendu d'un modèle"

j'essaie d'inclure <link href="{{ asset('css/mystyle.css') }}" rel="stylesheet"/> dans mon fichier twig et le rendre. Mais cela me donne une exception PHP non interceptée Twig_Error_Runtime : "Une exception a été levée lors du rendu d'un modèle ("Le fichier manifeste de l'actif "/../public/build/manifest.json" n'existe pas.") ça marche quand j'utilise link href="css/mystyle.css" rel="stylesheet"/> . Voici mon contrôleur: <?php namespace App\Controller; use Symfony\Component\Routing\Annotation\Route; use Symfony\Bundle\FrameworkBundle\Controller\AbstractController; use Symfony\Component\HttpFoundation\Response; class WelcomeController extends AbstractController { /** * @Route("/", name="welcome") */ public function index() { return $this->render('welcome/index.html.twig'); } } Voici mon modèle de brindille : <!doctype html> ...
Lire la suite