<div dir="ltr">Hola, como andan!<div><br></div><div>Tengo una base de datos de medicamentos (monodrogas), con tres variables, unidades, precio y precio unitario. Necesito llegar a un data frame donde tenga solo las monodrogas que cumplen alguna condición en la variable unidades, pero considerando varias monodrogas.</div><div><br></div><div>Esto es un recorte de la base:</div><div> <br></div><div><table border="0" cellpadding="0" cellspacing="0" width="320" style="border-collapse:collapse;width:240pt">
<colgroup><col width="80" span="4" style="width:60pt">
</colgroup><tbody><tr height="20" style="height:15pt">
<td height="20" width="80" style="height:15pt;width:60pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">Monodroga</td>
<td width="80" style="width:60pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">UNIDADES</td>
<td width="80" style="width:60pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">Precio</td>
<td width="80" style="width:60pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">PrecioUnit</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">aciclovir</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">20</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">111272</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">55.636</span></td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">aciclovir</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">20</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">97464</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">48.732</span></td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">aciclovir</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">40</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">98322</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">432</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">aciclovir</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">40</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">98322</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">324</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">paracetamol</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">1</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">19291</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">192.91</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">paracetamol</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">1</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">24702</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">247.02</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">paracetamol</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">1</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">21120</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">211.2</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">paracetamol</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">10</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">9993</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">9.993</span></td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">paracetamol</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">10</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">10443</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">10.443</span></td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">rosuvastatina</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">14</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">141134</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">100.81</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">rosuvastatina</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">28</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">258262</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">92.2364286</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">rosuvastatina</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">28</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">201590</td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap">71.9964286</td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">rosuvastatina</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">30</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">183717</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">61.239</span></td>
</tr>
<tr height="20" style="height:15pt">
<td height="20" style="height:15pt;padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">rosuvastatina</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">30</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">231935</span></td>
<td align="right" style="padding-top:1px;padding-right:1px;padding-left:1px;color:black;font-size:11pt;font-family:Calibri,sans-serif;vertical-align:bottom;border:none;white-space:nowrap"><span style="background-color:rgb(0,255,255)">77.3116667</span></td>
</tr>
</tbody></table></div><div><br></div><div>Por ejemplo, para la monodroga "aciclovir" necesito solo las filas donde Unidades==20, en paracetamol==10 y en rosuvastatina==30.</div><div><br></div><div>Estoy trabajando con tidyverse y he probado algunas cosas que no han funcionado.</div><div><br></div><div>prom_max_min_base_precios_May_2021_final<-base_precios_May_2021_final %>%<br> ##unite("concat1",CodDrog,CodForma,sep="",remove = FALSE) %>%<br> ##unite("concat2",CodDrog,CodForma,Potencia,sep="",remove = FALSE) %>%<br> filter(!<a href="http://is.na/" target="_blank">is.na</a>(CodDrog)) %>%<br> ##filter(monodroga=="aciclovir", Unidades %in% c(20)) %>%<br> group_by(concat1,concat2,monodroga) %>%<br> summarize(min_may_2021=min(precio_unitario),<br> max_may_2021=max(precio_unitario),<br> prom_may_2021=mean(precio_unitario)) %>%<br> ungroup()<br></div><div><br></div><div>Ajdunto la base en csv.</div><div><br></div><div>Muchas gracias!</div></div>