{"id":207,"date":"2023-10-11T19:18:58","date_gmt":"2023-10-11T19:18:58","guid":{"rendered":"https:\/\/agustincastro.es\/?p=207"},"modified":"2026-01-24T13:23:21","modified_gmt":"2026-01-24T13:23:21","slug":"generar-nombres-de-empresas-biotecnologicas-al-azar-lo-hacemos-en-r","status":"publish","type":"post","link":"https:\/\/agustincastro.es\/index.php\/2023\/10\/11\/generar-nombres-de-empresas-biotecnologicas-al-azar-lo-hacemos-en-r\/","title":{"rendered":"\u00bfGenerar nombres de empresas biotecnol\u00f3gicas al azar? Lo hacemos en R."},"content":{"rendered":"\n<p>Cuando estamos haciendo an\u00e1lisis de datos puede sernos de utilidad contar con un generador de nombres al azar. Pueden ser nombres de personas, y apellidos, nombres de empresas, o cualquier otra cosa que requiera contar con un buen n\u00famero de estos elementos. <\/p>\n\n\n\n<p>Aqu\u00ed va una pr\u00e1ctica en la que se desarrolla c\u00f3mo podr\u00eda hacerse esto en R (pincha en el enlace si quieres verlo en RPubs <strong>[<a href=\"https:\/\/rpubs.com\/acastro\/generar_nombres\">generar nombres<\/a>]<\/strong><\/p>\n\n\n\n<p>&#8211;<\/p>\n\n\n\n<h4 class=\"wp-block-heading\">P\u00edldoras_R. Material de formaci\u00f3n<\/h4>\n\n\n\n<p>En esta pr\u00e1ctica generamos nombres de empresas biotecnol\u00f3gicas al azar, a partir de dos listados de elementos obtenidos de consultas a chatgpt.<\/p>\n\n\n\n<p>[mi_blog]\u00a0<a href=\"https:\/\/agustincastro.es\/\">https:\/\/agustincastro.es<\/a><\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"832\" height=\"468\" data-src=\"https:\/\/agustincastro.es\/wp-content\/uploads\/2023\/10\/Random_Subset.png\" alt=\"\" class=\"wp-image-208 lazyload\" data-srcset=\"https:\/\/agustincastro.es\/wp-content\/uploads\/2023\/10\/Random_Subset.png 832w, https:\/\/agustincastro.es\/wp-content\/uploads\/2023\/10\/Random_Subset-300x169.png 300w, https:\/\/agustincastro.es\/wp-content\/uploads\/2023\/10\/Random_Subset-768x432.png 768w\" data-sizes=\"(max-width: 832px) 100vw, 832px\" src=\"data:image\/svg+xml;base64,PHN2ZyB3aWR0aD0iMSIgaGVpZ2h0PSIxIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciPjwvc3ZnPg==\" style=\"--smush-placeholder-width: 832px; --smush-placeholder-aspect-ratio: 832\/468;\" \/><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">Vectores con nombres de empresas y adjetivos.<\/h2>\n\n\n\n<p>Los nombres de las empresas estar\u00e1n formados por dos palabras, un nombre, almacenado en&nbsp;<strong>lab_names<\/strong>, y un adjetivo, en&nbsp;<strong>lab_adjetives<\/strong>. Ambos vectores han sido obtenidos de dos consultas a&nbsp;<strong>chatgtp<\/strong>. Se le pidi\u00f3 un listado con 150 posibles nombres de empresas biotecnol\u00f3gicas que estuvieran formados por una \u00fanica palabra. Igualmente, se hizo lo mismo para el vector con los \u201cadjetivos\u201d.Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-1\"><\/a>lab_names &lt;- c(\"BioSynth\", \"ChemixLab\", \"PharmaWave\", \"LifeCore\", \"NanoBio\", \"GenoTechnics\", \"QuantumChem\", \"BioGene\", \"MediSynth\", \"LabPro\", \"Bioteched\", \"EnviroLab\", \"SynthCorp\", \"BioPharma\", \"GenoTech\", \"ChemWare\", \"MediGene\", \"QuantumBio\", \"LifeLab\", \"NanoTech\", \"SynthLife\", \"ChemixGen\", \"BioInno\", \"PharmaSyn\", \"GenoLab\", \"MediLife\", \"BiotechLab\", \"LabBio\", \"EnviroGen\", \"NanoPharm\", \"ChemCore\", \"Lifer\", \"QuantumCore\", \"SynthTech\", \"MediPharm\", \"GenoWave\", \"BioGenix\", \"LabSynth\", \"PharmaCorp\", \"NanoCore\", \"ChemBio\", \"EnviroTech\", \"LifeTech\", \"QuantumGen\", \"MediGenix\", \"BioCorp\", \"GenoBio\", \"SynthWave\", \"BiotechX\", \"LabGen\", \"NanoLife\", \"PharmaInno\", \"EnviroBio\", \"ChemPro\", \"LifeInno\", \"QuantumPharm\", \"MediPro\", \"GenoInno\", \"BioTech\", \"SynthPharm\", \n\"LabPharm\", \"NanoSynth\", \"LifeBio\", \"EnviroSynth\", \"MediSynthX\", \"GenoPro\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-12\"><\/a>\"ChemSynth\", \"BioPharmX\", \"QuantumLab\", \"NanoPharma\", \"LifePharm\", \"SynthInno\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-13\"><\/a>\"MediPharma\", \"GenoCorp\", \"BioWare\", \"LabLife\", \"EnviroInno\", \"NanoGenix\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-14\"><\/a>\"ChemProX\", \"QuantumBios\", \"MediCore\", \"SynthLifeX\", \"BioLifeX\", \"PharmaTech\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-15\"><\/a>\"LifeGenix\", \"GenoPharmaX\", \"NanoBioX\", \"ChemTechX\", \"MediBioX\", \"SynthPharmaX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-16\"><\/a>\"LabGenix\", \"EnviroGenix\", \"NanoGen\", \"BioGen\", \"LifeProX\", \"MediPharmX\", \"GenoGenixX\", \"BioSolve\", \"ChemBioX\", \"GenoNova\", \"NanoCoreX\", \"SynthPharmaZ\", \"LabInnoX\", \"EnviroLifeZ\", \"MediTechX\", \"QuantumProZ\", \"LifeGenius\", \"PharmaBioZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-19\"><\/a>\"BioTechLabZ\", \"GenoScienceZ\", \"NanoPharmX\", \"ChemXcelZ\", \"SynthoMedX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-20\"><\/a>\"MediWaveZ\", \"LabPulseX\", \"EnviroTechZ\", \"GenoSynthX\", \"BioMaxZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-21\"><\/a>\"NanoBioTechZ\", \"LifeTechX\", \"QuantumBioX\", \"ChemWaveZ\", \"SynthoLifeX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-22\"><\/a>\"LabCoreZ\", \"GenoTechX\", \"EnviroPharmX\", \"BioInnoZ\", \"NanoProX\", \"LifePharmZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-23\"><\/a>\"PharmaGenX\", \"QuantumCoreX\", \"MediSynthZ\", \"ChemXpertX\", \"SynthoGenX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-24\"><\/a>\"LabXpressZ\", \"GenoInnoZ\", \"EnviroBioX\", \"BioTechXcelX\", \"NanoPharmaZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-25\"><\/a>\"LifeGenixX\", \"PharmaTechZ\", \"QuantumBioXcelX\", \"MediWaveXcelX\", \"ChemCoreXcelZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-26\"><\/a>\"SynthoPharmaX\", \"LabTechZ\", \"BioGenXcel\", \"NanoCoreInno\", \"LifePharmTech\",\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-27\"><\/a>\"SynthoMedInnovations\", \"QuantumGen\")\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-28\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-29\"><\/a>lab_adjetives &lt;- c(\"Innovative\", \"Technological\", \"Biologicals\", \"Therapeutic\", \"Pharmacological\", \"Biogenetic\", \"Clinical\", \"Modern\", \"Efficient\", \"Investigative\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-31\"><\/a>\"Experimental\", \"Biomedical\", \"Moleculare\", \"Engineering\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-32\"><\/a>\"Precise\", \"Analyticals\", \"Synthetics\", \"Futuristic\", \"Personalized\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-33\"><\/a>\"Specialized\", \"Genetic\", \"Nano\", \"Neuropharmaceutical\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-34\"><\/a>\"Ecological\", \"Veterinary\", \"International\", \"Scientific\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-35\"><\/a>\"Inspiring\", \"Sustainable\", \"Advanced\", \"Revolutionary\", \"Healthy\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-36\"><\/a>\"Radiological\", \"Biochemicals\", \"Cloning\", \"Environmentaly\", \"Regenerative\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-37\"><\/a>\"Bioinformatics\", \"Microscopic\", \"Pioneering\", \"Metabolic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-38\"><\/a>\"Pharmaceuticals\", \"Medical\", \"Intelligent\", \"Genomic\", \"Chemical\", \"Analytical\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-39\"><\/a>\"Organic\", \"Inorganic\", \"Biochemical\", \"Physical\", \"Nuclear\", \"Synthetic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-40\"><\/a>\"Molecular\", \"Polymer\", \"Atomic\", \"Pharmaceutical\", \"Environmental\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-41\"><\/a>\"Quantum\", \"Spectroscopic\", \"Biological\", \"Radiologicals\", \"Chemotherapeutic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-42\"><\/a>\"Catalytics\", \"Hazardous\", \"Combustible\", \"Explosive\", \"Toxic\", \"Radioactive\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-43\"><\/a>\"Corrosive\", \"Flammable\", \"Reactive\", \"Stoichiometric\", \"Ionic\", \"Covalent\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-44\"><\/a>\"Thermodynamic\", \"Kinetic\", \"Aqueous\", \"Saturated\", \"Unsaturated\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-45\"><\/a>\"Volatile\", \"Nonvolatile\", \"Exothermic\", \"Endothermic\", \"Equilibrium\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-46\"><\/a>\"Isotopic\", \"Redox\", \"Precipitation\", \"Titration\", \"Soluble\", \"Insoluble\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-47\"><\/a>\"Catalyzed\", \"Inhibitor\", \"Catalytic\", \"Molar\", \"Empirical\", \"Molary\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-48\"><\/a>\"Hydrophobic\", \"Hydrophilic\", \"Hygroscopic\", \"Luminous\", \"Photovoltaic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-49\"><\/a>\"Electrolytic\", \"Crystalline\", \"Amorphous\", \"Homogeneous\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-50\"><\/a>\"Heterogeneous\", \"Supersaturated\", \"Unsaturatedly\", \"Chemisorption\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-51\"><\/a>\"Adsorbent\", \"Coagulation\", \"Adsorption\", \"Desorption\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-52\"><\/a>\"Ionization\", \"Extraction\", \"Crystallization\", \"Chromatographic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-53\"><\/a>\"Quantitative\", \"Qualitative\", \"Isotopics\", \"Sublimation\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-54\"><\/a>\"Precipitate\", \"Electrophilic\", \"Nucleophilic\", \"Condensation\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-55\"><\/a>\"Volatility\", \"Ionotropic\", \"Biodegradable\", \"Thermophilic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-56\"><\/a>\"Photoreactive\", \"Aromatic\", \"Aliphatic\", \"Elastomeric\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-57\"><\/a>\"Polymeric\", \"Amphoteric\", \"Hydrolytic\", \"Fluorescent\", \"Phosphorescent\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-58\"><\/a>\"Radioresistant\", \"Combustion\", \"Pyrolytic\", \"Aerobic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-59\"><\/a>\"Anaerobic\", \"Oxidative\", \"Reductive\", \"Hydrosensitive\", \"Thermochemical\",\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb1-60\"><\/a>\"Crisis\", \"Endless\")<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">Comprobar n\u00famero de elementos en los vectores<\/h2>\n\n\n\n<p>Comprobamos el n\u00famero de elementos de ambos vectores. Como podemos ver, en el listado de nombres de laboratorios hay 151 elementos, uno m\u00e1s de los que pedimos. En este punto solo sabemos eso. \u00bfPodr\u00eda haber un nombre repetido? \u00bfCu\u00e1l?Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb2-1\"><\/a>length(lab_names)<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] 151<\/code><\/pre>\n\n\n\n<p>Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb4-1\"><\/a>length(lab_adjetives)<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] 150<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">Buscar elementos \u00fanicos y duplicados<\/h2>\n\n\n\n<p>Nos aseguramos de que no hay ning\u00fan nombre o adjetivo repetido en las listas. Podemos utilizar la funci\u00f3n&nbsp;<strong>length<\/strong>&nbsp;y&nbsp;<strong>unique<\/strong>&nbsp;para obtener los nombres de elementos \u00daNICOS (no repetidos), y su n\u00famero. Si nos fijamos bien, vemos que el n\u00famero de elementos \u00fanicos que obtenemos en el vector lab_names es de 150, cuando sabemos ya que hab\u00eda 151. Esto se debe a que la funci\u00f3n&nbsp;<strong>unique<\/strong>&nbsp;nos da los nombres&nbsp;<strong>que no se repiten<\/strong>, lo que indica que hay uno repetido.<\/p>\n\n\n\n<p>Podemos saber cuales son los elementos repetidos con la funci\u00f3n&nbsp;<strong>duplicated<\/strong>. Este ejemplo, el nombre&nbsp;<strong>\u201cQuantumGen\u201d<\/strong>&nbsp;est\u00e1 repetido, y habr\u00eda que eliminarlo para que tener 150 nombres y que, adem\u00e1s, que sean \u00fanicos.Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb6-1\"><\/a>length(unique(lab_names))<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] 150<\/code><\/pre>\n\n\n\n<p>Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb8-1\"><\/a>length(unique(lab_adjetives))<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] 150<\/code><\/pre>\n\n\n\n<p>Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb10-1\"><\/a>lab_names&#91;duplicated(lab_names)]<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] \"QuantumGen\"<\/code><\/pre>\n\n\n\n<p>Para coger una muestra del vector nombres, y otra del de adjetivos, creamos primero primero dos vectores mucho m\u00e1s grandes, con 1.000 elementos seleccionados al azar en cada uno de ellos utilizando la funci\u00f3n&nbsp;<strong>sample<\/strong>. Posteriormente tomamos&nbsp;<strong>una<\/strong>&nbsp;muestra de estos, y los guardamos en&nbsp;<strong>n1<\/strong>&nbsp;y&nbsp;<strong>n2<\/strong>. Finalmente los unimos en&nbsp;<strong>n3<\/strong>&nbsp;con la funci\u00f3n&nbsp;<strong>paste<\/strong>. Con&nbsp;<strong>print<\/strong>&nbsp;se nos muestra en pantalla el nombre final de la empresa.Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-1\"><\/a>lab_names_1000 &lt;- sample(lab_names, 1000, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-2\"><\/a>lab_adjetives_1000 &lt;- sample(lab_adjetives, 1000, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-3\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-4\"><\/a>n1 &lt;- sample(lab_names_1000, 1, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-5\"><\/a>n2 &lt;- sample(lab_adjetives_1000, 1, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-6\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-7\"><\/a>n3 &lt;&lt;- paste(n1, n2)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-8\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb12-9\"><\/a>print(n3)<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## &#91;1] \"BioLifeX Soluble\"<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">Funci\u00f3n para generar&nbsp;<em>n<\/em>&nbsp;nombres<\/h2>\n\n\n\n<p>Por \u00faltimo creamos la funci\u00f3n&nbsp;<strong>nombre_empresa<\/strong>, con la que podremos generar el n\u00famero de nombres que nos interese.Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-1\"><\/a>nombre_empresa &lt;- <strong>function<\/strong>(numero) {\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-2\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-3\"><\/a>lab_names &lt;- c(\"BioSynth\", \"ChemixLab\", \"PharmaWave\", \"LifeCore\", \"NanoBio\", \"GenoTechnics\", QuantumChem\", \"BioGene\", \"MediSynth\", \"LabPro\", \"Bioteched\", \"EnviroLab\", \"SynthCorp\", \"BioPharma\", \"GenoTech\", \"ChemWare\", \"MediGene\", \"QuantumBio\", \"LifeLab\", \"NanoTech\", \"SynthLife\", \"ChemixGen\", \"BioInno\", \"PharmaSyn\", \"GenoLab\", \"MediLife\", \"BiotechLab\", \"LabBio\", \"EnviroGen\", \"NanoPharm\", \"ChemCore\", \"Lifer\", \"QuantumCore\", \"SynthTech\", \"MediPharm\", \"GenoWave\", \"BioGenix\", \"LabSynth\", \"PharmaCorp\", \"NanoCore\", \"ChemBio\", \"EnviroTech\", \"LifeTech\", \"QuantumGen\", \"MediGenix\", \"BioCorp\", \"GenoBio\", \"SynthWave\", \"BiotechX\", \"LabGen\", \"NanoLife\", \"PharmaInno\", \"EnviroBio\", \"ChemPro\", \"LifeInno\", \"QuantumPharm\", \"MediPro\", \"GenoInno\", \"BioTech\", \"SynthPharm\", \n\"LabPharm\", \"NanoSynth\", \"LifeBio\", \"EnviroSynth\", \"MediSynthX\", \"GenoPro\", \n\"ChemSynth\", \"BioPharmX\", \"QuantumLab\", \"NanoPharma\", \"LifePharm\", \"SynthInno\", \n\"MediPharma\", \"GenoCorp\", \"BioWare\", \"LabLife\", \"EnviroInno\", \"NanoGenix\", \n\"ChemProX\", \"QuantumBios\", \"MediCore\", \"SynthLifeX\", \"BioLifeX\", \"PharmaTech\", \n\"LifeGenix\", \"GenoPharmaX\", \"NanoBioX\", \"ChemTechX\", \"MediBioX\", \"SynthPharmaX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-18\"><\/a>\"LabGenix\", \"EnviroGenix\", \"NanoGen\", \"BioGen\", \"LifeProX\", \"MediPharmX\", \"GenoGenixX\", \"BioSolve\", \"ChemBioX\", \"GenoNova\", \"NanoCoreX\", \"SynthPharmaZ\", \"LabInnoX\", \"EnviroLifeZ\", \"MediTechX\", \"QuantumProZ\", \"LifeGenius\", \"PharmaBioZ\", \"BioTechLabZ\", \"GenoScienceZ\", \"NanoPharmX\", \"ChemXcelZ\", \"SynthoMedX\", \n\"MediWaveZ\", \"LabPulseX\", \"EnviroTechZ\", \"GenoSynthX\", \"BioMaxZ\", \n\"NanoBioTechZ\", \"LifeTechX\", \"QuantumBioX\", \"ChemWaveZ\", \"SynthoLifeX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-24\"><\/a>\"LabCoreZ\", \"GenoTechX\", \"EnviroPharmX\", \"BioInnoZ\", \"NanoProX\", \"LifePharmZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-25\"><\/a>\"PharmaGenX\", \"QuantumCoreX\", \"MediSynthZ\", \"ChemXpertX\", \"SynthoGenX\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-26\"><\/a>\"LabXpressZ\", \"GenoInnoZ\", \"EnviroBioX\", \"BioTechXcelX\", \"NanoPharmaZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-27\"><\/a>\"LifeGenixX\", \"PharmaTechZ\", \"QuantumBioXcelX\", \"MediWaveXcelX\", \"ChemCoreXcelZ\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-28\"><\/a>\"SynthoPharmaX\", \"LabTechZ\", \"BioGenXcel\", \"NanoCoreInno\", \"LifePharmTech\",\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-29\"><\/a>\"SynthoMedInnovations\", \"QuantumGen\")\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-30\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-31\"><\/a>lab_adjetives &lt;- c(\"Innovative\", \"Technological\", \"Biologicals\", \"Therapeutic\", \"Pharmacological\", \"Biogenetic\", \"Clinical\", \"Modern\", \"Efficient\", \"Investigative\", \"Experimental\", \"Biomedical\", \"Moleculare\", \"Engineering\", \"Precise\", \"Analyticals\", \"Synthetics\", \"Futuristic\", \"Personalized\", \"Specialized\", \"Genetic\", \"Nano\", \"Neuropharmaceutical\", \"Ecological\", \"Veterinary\", \"International\", \"Scientific\", \"Inspiring\", \"Sustainable\", \"Advanced\", \"Revolutionary\", \"Healthy\", \n\"Radiological\", \"Biochemicals\", \"Cloning\", \"Environmentaly\", \"Regenerative\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-39\"><\/a>\"Bioinformatics\", \"Microscopic\", \"Pioneering\", \"Metabolic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-40\"><\/a>\"Pharmaceuticals\", \"Medical\", \"Intelligent\", \"Genomic\", \"Chemical\", \"Analytical\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-41\"><\/a>\"Organic\", \"Inorganic\", \"Biochemical\", \"Physical\", \"Nuclear\", \"Synthetic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-42\"><\/a>\"Molecular\", \"Polymer\", \"Atomic\", \"Pharmaceutical\", \"Environmental\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-43\"><\/a>\"Quantum\", \"Spectroscopic\", \"Biological\", \"Radiologicals\", \"Chemotherapeutic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-44\"><\/a>\"Catalytics\", \"Hazardous\", \"Combustible\", \"Explosive\", \"Toxic\", \"Radioactive\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-45\"><\/a>\"Corrosive\", \"Flammable\", \"Reactive\", \"Stoichiometric\", \"Ionic\", \"Covalent\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-46\"><\/a>\"Thermodynamic\", \"Kinetic\", \"Aqueous\", \"Saturated\", \"Unsaturated\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-47\"><\/a>\"Volatile\", \"Nonvolatile\", \"Exothermic\", \"Endothermic\", \"Equilibrium\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-48\"><\/a>\"Isotopic\", \"Redox\", \"Precipitation\", \"Titration\", \"Soluble\", \"Insoluble\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-49\"><\/a>\"Catalyzed\", \"Inhibitor\", \"Catalytic\", \"Molar\", \"Empirical\", \"Molary\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-50\"><\/a>\"Hydrophobic\", \"Hydrophilic\", \"Hygroscopic\", \"Luminous\", \"Photovoltaic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-51\"><\/a>\"Electrolytic\", \"Crystalline\", \"Amorphous\", \"Homogeneous\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-52\"><\/a>\"Heterogeneous\", \"Supersaturated\", \"Unsaturatedly\", \"Chemisorption\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-53\"><\/a>\"Adsorbent\", \"Coagulation\", \"Adsorption\", \"Desorption\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-54\"><\/a>\"Ionization\", \"Extraction\", \"Crystallization\", \"Chromatographic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-55\"><\/a>\"Quantitative\", \"Qualitative\", \"Isotopics\", \"Sublimation\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-56\"><\/a>\"Precipitate\", \"Electrophilic\", \"Nucleophilic\", \"Condensation\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-57\"><\/a>\"Volatility\", \"Ionotropic\", \"Biodegradable\", \"Thermophilic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-58\"><\/a>\"Photoreactive\", \"Aromatic\", \"Aliphatic\", \"Elastomeric\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-59\"><\/a>\"Polymeric\", \"Amphoteric\", \"Hydrolytic\", \"Fluorescent\", \"Phosphorescent\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-60\"><\/a>\"Radioresistant\", \"Combustion\", \"Pyrolytic\", \"Aerobic\", \n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-61\"><\/a>\"Anaerobic\", \"Oxidative\", \"Reductive\", \"Hydrosensitive\", \"Thermochemical\",\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-62\"><\/a>\"Crisis\", \"Endless\")\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-63\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-64\"><\/a>lab_names_1000 &lt;- sample(lab_names, 1000, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-65\"><\/a>lab_adjetives_1000 &lt;- sample(lab_adjetives, 1000, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-66\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-67\"><\/a>n1 &lt;- sample(lab_names_1000, numero, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-68\"><\/a>n2 &lt;- sample(lab_adjetives_1000, numero, replace = TRUE)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-69\"><\/a>n3 &lt;&lt;- paste(n1, n2)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-70\"><\/a>\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-71\"><\/a>return(n3)\n<a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb14-72\"><\/a>}<\/code><\/pre>\n\n\n\n<p>Si, por ejemplo, queremos que nos ofrezca&nbsp;<strong>10 nombres<\/strong>, llamamos a la funci\u00f3n de la siguiente forma. Los nombres resultantes de las empresas ser\u00e1n listados.Hide<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code><a href=\"https:\/\/rstudio-pubs-static.s3.amazonaws.com\/1097406_798fb4b0eed84cfe9573317c805cc7cf.html#cb15-1\"><\/a>nombre_empresa(10)<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>##  &#91;1] \"GenoInnoZ Soluble\"         \"MediGene Reductive\"       \n##  &#91;3] \"EnviroTechZ Radiologicals\" \"MediSynthZ Metabolic\"     \n##  &#91;5] \"NanoCoreInno Saturated\"    \"SynthoPharmaX Biomedical\" \n##  &#91;7] \"QuantumBioX Chemical\"      \"PharmaBioZ Nucleophilic\"  \n##  &#91;9] \"GenoPro Amphoteric\"        \"NanoGenix Engineering\"<\/code><\/pre>\n\n\n\n<p>eof.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Cuando estamos haciendo an\u00e1lisis de datos puede sernos de utilidad contar con un generador de nombres al azar. Pueden ser nombres de personas, y apellidos, nombres de empresas, o cualquier otra cosa que requiera contar con un buen n\u00famero de estos elementos. Aqu\u00ed va una pr\u00e1ctica en la que se desarrolla c\u00f3mo podr\u00eda hacerse esto [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":330,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7,5],"tags":[],"class_list":["post-207","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r","category-tecnica-y-practica"],"_links":{"self":[{"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/posts\/207","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/comments?post=207"}],"version-history":[{"count":4,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/posts\/207\/revisions"}],"predecessor-version":[{"id":332,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/posts\/207\/revisions\/332"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/media\/330"}],"wp:attachment":[{"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/media?parent=207"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/categories?post=207"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/agustincastro.es\/index.php\/wp-json\/wp\/v2\/tags?post=207"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}