%% #+TITLE: Un gráfico TikZ sobre métodos de muestreo
%% #+AUTHOR: Emilio Torres Manzanera
%% #+DATE: Time-stamp: <2020-07-31 12:56 emilio on emilio-XPS-15-9570>
%% #+PROPERTY: header-args  :exports code  :eval no 
%% # Created from metodosdemuestreo.tex

%% * Un gráfico TikZ sobre métodos de muestreo
%%
%% Una voz clama en la mar de datos:
%% «¡[[https://muestrear-no-es-pecado.netlify.app/][Muestrar no es pecado]]!».
%% El muestreo constituye el fundamento de la Estadística Inferencial y permite
%% [[https://www.fharrell.com/post/stat-ml/][asignar un modelo probabilístico]] a los datos.

%% Los principales muestreos estadísticos (/sampling/) se basan en el
%% muestreo aleatorio simple (/simple random sampling/), que consiste
%% en seleccionar al azar elementos. El muestreo sistemático
%% (/sistematic sampling/) lista los elementos y analiza uno de
%% cada tantos. El muestreo estratificado (/stratified
%% sampling/) divide a la población en estratos homogéneos y
%% selecciona dentro de cada estrato, mientras que el muestreo por conglomerados
%% (/cluster sampling/) agrupa a la población en
%% conglomerados heterogéneos y escoge varios para su estudio.
%% 
%% 
%% [[./graphics/gr-tikz-metodo-muestreo.png]]
%% 
%% [[./gr-tikz-metodo-muestreo.tex][Código fuente TeX]].
%% 
%% [[./gr-tikz-metodo-muestreo.pdf][Versión en pdf]].
%% 
%% ** Referencias
%% - [[https://tex.stackexchange.com/questions/174715/typesetting-figure-in-latex][Figures in LaTeX]].
%% - [[https://www.scribbr.com/methodology/sampling-methods/][Sampling methods]].
%% - [[https://muestrear-no-es-pecado.netlify.app/][Muestrar no es pecado]].
%% - [[https://www.fharrell.com/post/stat-ml/][Road Map for Choosing Between Statistical Modeling and Machine Learning]].
%%
%% ** Código

\documentclass{standalone}
\usepackage[utf8]{inputenc}     % Linux
\usepackage[osf,sc]{mathpazo} % tufte-book fonts
\usepackage[scaled=0.90]{helvet}
\usepackage[scaled=0.85]{beramono}

\usepackage{tikz}

\begin{document}

\newcommand{\man}[2]{%% #1 = draw options % #2  = location
\begin{scope}[#1,shift={(#2)}]
    \fill [rounded corners=1.5] (0,0.4) -- (0,0.8) -- (0.4,0.8) -- (0.4,0.4) --
    (0.325,0.4) -- (0.325,0.7) -- (0.3,0.7) -- (0.3,0) -- (0.225,0) --
    (0.225,0.4) -- (0.175,0.4) -- (0.175,0) -- (0.1,0) -- (0.1,0.7) --
    (0.075,0.7) -- (0.075,0.4) -- cycle;
    \fill (0.2,0.9) circle (0.1);
\end{scope}}
\def\ellipseman(#1,#2);{%
\draw [thick] (#1+0.2,#2+0.5) ellipse [x radius = 0.3cm, y radius = 0.6cm];}


\begin{tikzpicture}

    \draw (2,9) node {\textbf{Muestreo aleatorio}};

    \foreach \x in {0,1,1.5,3,3.5} {
    \man{orange}{\x,7.2}
    }
    \foreach \x in {0.5,2,2.5} {
    \man{blue}{\x,7.2}
    }
    \foreach \x in {0.25,0.75,1.75,2.75} {
    \man{orange}{\x,6}
    }
    \foreach \x in {1.25,2.25,3.25} {
    \man{blue}{\x,6}
    }
    \foreach \x in {0,1.5,3.5} {
    \ellipseman(\x,7.2);
    }
    \foreach \x in {0.25,1.25} {
    \ellipseman(\x,6);
    }


    \draw (8,9) node {\textbf{Muestreo sistem\'atico}};

    \foreach \x in {0,1,1.5,3,3.5} {
    \man{orange}{\x+6,7.2}
    }
    \foreach \x in {0.5,2,2.5} {
    \man{blue}{\x+6,7.2}
    }
    \foreach \x in {0.25,0.75,1.75,2.75} {
    \man{orange}{\x+6,6}
    }
    \foreach \x in {1.25,2.25,3.25} {
    \man{blue}{\x+6,6}
    }
    \foreach \x in {0,1.5,3} {
    \ellipseman(\x+6,7.2);
    }
    \foreach \x in {0.75,2.25} {
    \ellipseman(\x+6,6);
    }

    
    \draw (2,4.5) node {\textbf{Muestreo estratificado}};

    \foreach \x in {0,0.5,1} {
    \man{orange}{\x,7.2-4.4}
    }
    \foreach \x in {2,2.5,...,4} {
    \man{blue}{\x,7.2-4.4}
    }
    \foreach \x in {0.25,0.75} {
    \man{orange}{\x,6-4.4}
    }
    \foreach \x in {2.25,2.75,3.25,3.75} {
    \man{blue}{\x,6-4.4}
    }
    \foreach \x in {0,2.5,4} {
    \ellipseman(\x,7.2-4.4);
    }
    \foreach \x in {0.25,2.75} {
    \ellipseman(\x,6-4.4);
    }



    \draw (2+6,4.5) node {\textbf{Muestreo por conglomerados}};

    \foreach \x in {0,1,2,4,5} {
    \man{orange}{\x+5.5,7.2-4.4}
    }
    \foreach \x in {0.5,2.5,3,4.5} {
    \man{blue}{\x+5.5,7.2-4.4}
    }
    \foreach \x in {0.25,0.75,3,3.5} {
    \man{orange}{\x+5.5,6-4.4}
    }
    \foreach \x in {1.25,2.5} {
    \man{blue}{\x+5.5,6-4.4}
    }

    \draw [thick] (6.0+2+0.2,7.2-4.4+0.5) ellipse [x radius = 1.2cm, y radius = 0.6cm];
    \draw [thick] (5.5+0.75+0.2,6-4.4+0.5) ellipse [x radius = 1.2cm, y radius = 0.6cm];

\end{tikzpicture}

\end{document}

%%% Local Variables:
%%% TeX-master: t
%%% reftex-default-bibliography: ("bibliografia.bib")
%%% ispell-local-dictionary: "es_ES"
%%% End:
