<div dir="ltr">Basta dar um group_by(color) antes da amostragem:<div><br></div><div><div>df %>%</div><div> group_by(color) %>%</div><div> sample_n(3)</div></div><div><br></div><div><br></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr">--</div><div dir="ltr">Marcus Nunes</div><div dir="ltr">Professor Adjunto</div><div dir="ltr">Universidade Federal do Rio Grande do Norte</div><div dir="ltr">Centro de Ciências Exatas e da Terra</div><div dir="ltr">Departamento de Estatística</div><div dir="ltr">Laboratório de Estatística Aplicada</div><div dir="ltr"><a href="mailto:marcus.nunes@ccet.ufrn.br" target="_blank">marcus.nunes@ccet.ufrn.br</a></div><div dir="ltr"><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a></div><div dir="ltr"><br></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">2018-04-26 15:44 GMT-03:00 ASANTOS via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"> Prezados Membros do R,<br>
<br>
Preciso extrair linhas de um data frame dentro de cada nível de um fator, usando a função sample_n() do pacote dplyr. Sendo meu CRM:<br>
<br>
#Data set artificial<br>
<br>
df <- data.frame(matrix(rnorm(80), nrow=40))<br>
df$color <- rep(c("blue", "red", "yellow", "pink"), each=10)<br>
<br>
require(dplyr)<br>
<br>
#Sorteio<br>
<br>
sample_n(df, 3) #Sorteio sobre todo o data frame<br>
<br>
X1 X2 color<br>
6 -0.2386293 -1.2611679 blue<br>
21 0.6337288 -0.7817087 yellow<br>
28 -0.1949911 0.6397060 yellow<br>
<br>
No entanto, não é bem isso que eu quero, na verdade, eu gostaria de realizar o sorteio de uma amostra aleatória de tamanho 3 em cada nível do fator color, ou seja, quero que seja sorteados 3 valores para cada cor. Ficando algo do tipo:<br>
<br>
X1 X2 color<br>
<br>
3 0.22232534 1.83730750 blue<br>
<br>
6 -0.23862925 -1.26116791 blue<br>
<br>
7 -1.22555359 -1.60739354 blue<br>
<br>
15 -1.12092508 -0.04395679 red<br>
<br>
16 -0.68780179 0.51116139 red<br>
<br>
17 -0.98583965 0.09294828 red<br>
<br>
...<br>
<br>
Alguém poderia me ajudar a resolver isso?<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<br>
-- <br>
==============================<wbr>==============================<wbr>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yaho<wbr>o.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer" target="_blank">http://lattes.cnpq.br/13604032<wbr>01088680</a><br>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" rel="noreferrer" target="_blank">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016<br>
Researchgate: <a href="http://www.researchgate.net/profile/Alexandre_Santos10" rel="noreferrer" target="_blank">www.researchgate.net/profile/A<wbr>lexandre_Santos10</a><br>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" rel="noreferrer" target="_blank">br.linkedin.com/in/alexandre-d<wbr>os-santos-87961635</a><br>
Mendeley:<a href="http://www.mendeley.com/profiles/alexandre-dos-santos6/" rel="noreferrer" target="_blank">www.mendeley.com/prof<wbr>iles/alexandre-dos-santos6/</a><br>
==============================<wbr>==============================<wbr>==========<br>
<br>
______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br></div>