Visualización y Análisis en

class: center, middle, inverse, title-slide

# Visualización y Análisis en <img height="90" width="90" class="fa" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgcm9sZT0iaW1nIgogICB2aWV3Qm94PSIwIDAgMjQgMjQiCiAgIHZlcnNpb249IjEuMSIKICAgaWQ9InN2Zzg0OSIKICAgc29kaXBvZGk6ZG9jbmFtZT0icnN0dWRpby5zdmciCiAgIGlua3NjYXBlOnZlcnNpb249IjEuMCAoNDAzNWE0ZiwgMjAyMC0wNS0wMSkiPgogIDxtZXRhZGF0YQogICAgIGlkPSJtZXRhZGF0YTg1NSI+CiAgICA8cmRmOlJERj4KICAgICAgPGNjOldvcmsKICAgICAgICAgcmRmOmFib3V0PSIiPgogICAgICAgIDxkYzpmb3JtYXQ+aW1hZ2Uvc3ZnK3htbDwvZGM6Zm9ybWF0PgogICAgICAgIDxkYzp0eXBlCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vcHVybC5vcmcvZGMvZGNtaXR5cGUvU3RpbGxJbWFnZSIgLz4KICAgICAgPC9jYzpXb3JrPgogICAgPC9yZGY6UkRGPgogIDwvbWV0YWRhdGE+CiAgPGRlZnMKICAgICBpZD0iZGVmczg1MyIgLz4KICA8c29kaXBvZGk6bmFtZWR2aWV3CiAgICAgaW5rc2NhcGU6ZG9jdW1lbnQtcm90YXRpb249IjAiCiAgICAgcGFnZWNvbG9yPSIjZmZmZmZmIgogICAgIGJvcmRlcmNvbG9yPSIjNjY2NjY2IgogICAgIGJvcmRlcm9wYWNpdHk9IjEiCiAgICAgb2JqZWN0dG9sZXJhbmNlPSIxMCIKICAgICBncmlkdG9sZXJhbmNlPSIxMCIKICAgICBndWlkZXRvbGVyYW5jZT0iMTAiCiAgICAgaW5rc2NhcGU6cGFnZW9wYWNpdHk9IjAiCiAgICAgaW5rc2NhcGU6cGFnZXNoYWRvdz0iMiIKICAgICBpbmtzY2FwZTp3aW5kb3ctd2lkdGg9IjEyMzAiCiAgICAgaW5rc2NhcGU6d2luZG93LWhlaWdodD0iOTMxIgogICAgIGlkPSJuYW1lZHZpZXc4NTEiCiAgICAgc2hvd2dyaWQ9ImZhbHNlIgogICAgIGlua3NjYXBlOnpvb209IjMwLjYyNSIKICAgICBpbmtzY2FwZTpjeD0iMTIiCiAgICAgaW5rc2NhcGU6Y3k9IjEyIgogICAgIGlua3NjYXBlOndpbmRvdy14PSIwIgogICAgIGlua3NjYXBlOndpbmRvdy15PSIyMyIKICAgICBpbmtzY2FwZTp3aW5kb3ctbWF4aW1pemVkPSIwIgogICAgIGlua3NjYXBlOmN1cnJlbnQtbGF5ZXI9InN2Zzg0OSIgLz4KICA8dGl0bGUKICAgICBpZD0idGl0bGU4NDUiPlJTdHVkaW8gaWNvbjwvdGl0bGU+CiAgPHBhdGgKICAgICBkPSJNMTIuMTc4LjAwMmExMi4wMDIgMTIuMDAyIDAgMCAwLTguNjYyIDMuNTE1IDEyLjAwMiAxMi4wMDIgMCAwIDAgMCAxNi45NyAxMi4wMDIgMTIuMDAyIDAgMCAwIDE2Ljk3IDAgMTIuMDAyIDEyLjAwMiAwIDAgMCAwLTE2Ljk3QTEyLjAwMiAxMi4wMDIgMCAwIDAgMTIuMTc5LjAwMnpNNy43NyA1Ljk5NWMuNTYyLjEyOCAxLjA1LjIxNyAxLjY2My4yMTcuOTIxIDAgMS44NjMtLjIxNyAyLjc4Ni0uMjE3IDEuNzkgMCAzLjQ1LjgxNCAzLjQ1IDIuOCAwIDEuNTQtLjkyMSAyLjUxNy0yLjM1IDIuOTNsMi43ODggNC4xMDdoMS4zMDF2MS4wMWgtMS45ODZsLTMuMjkzLTQuOTM0aC0xLjc1N3YzLjkyNGgxLjcxOHYxLjAxSDcuNzd2LTEuMDFoMS40ODNWNy4xMzRMNy43NyA2Ljk1MXYtLjk1N3ptNC40NjYgMS4wMTJjLS41OTYgMC0xLjIxMy4wNTMtMS44NjQuMTI3djMuNzk4bC45NDEuMDJjMi4yOTguMDM0IDMuMTgzLS44NSAzLjE4My0yLjAyNiAwLTEuMzc2LS45OTctMS45MTktMi4yNi0xLjkxOXoiCiAgICAgaWQ9InBhdGg4NDciCiAgICAgc3R5bGU9ImZpbGw6I2Q5NjMxZTtmaWxsLW9wYWNpdHk6MSIgLz4KPC9zdmc+Cg==" />
## Sesión I
### Javier Tamayo Leiva <a href="mailto:j.tamayo.leiva@gmail.com"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgaW5rc2NhcGU6dmVyc2lvbj0iMS4wICg0MDM1YTRmLCAyMDIwLTA1LTAxKSIKICAgc29kaXBvZGk6ZG9jbmFtZT0iZW52ZWxvcGUtc29saWQuc3ZnIgogICBpZD0ic3ZnODM1IgogICB2ZXJzaW9uPSIxLjEiCiAgIHZpZXdCb3g9IjAgMCA1MTIgNTEyIgogICByb2xlPSJpbWciCiAgIGNsYXNzPSJzdmctaW5saW5lLS1mYSBmYS1lbnZlbG9wZSBmYS13LTE2IgogICBkYXRhLWljb249ImVudmVsb3BlIgogICBkYXRhLXByZWZpeD0iZmFzIgogICBmb2N1c2FibGU9ImZhbHNlIgogICBhcmlhLWhpZGRlbj0idHJ1ZSI+CiAgPG1ldGFkYXRhCiAgICAgaWQ9Im1ldGFkYXRhODQxIj4KICAgIDxyZGY6UkRGPgogICAgICA8Y2M6V29yawogICAgICAgICByZGY6YWJvdXQ9IiI+CiAgICAgICAgPGRjOmZvcm1hdD5pbWFnZS9zdmcreG1sPC9kYzpmb3JtYXQ+CiAgICAgICAgPGRjOnR5cGUKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9wdXJsLm9yZy9kYy9kY21pdHlwZS9TdGlsbEltYWdlIiAvPgogICAgICA8L2NjOldvcms+CiAgICA8L3JkZjpSREY+CiAgPC9tZXRhZGF0YT4KICA8ZGVmcwogICAgIGlkPSJkZWZzODM5IiAvPgogIDxzb2RpcG9kaTpuYW1lZHZpZXcKICAgICBpbmtzY2FwZTpjdXJyZW50LWxheWVyPSJzdmc4MzUiCiAgICAgaW5rc2NhcGU6d2luZG93LW1heGltaXplZD0iMCIKICAgICBpbmtzY2FwZTp3aW5kb3cteT0iMjMiCiAgICAgaW5rc2NhcGU6d2luZG93LXg9IjAiCiAgICAgaW5rc2NhcGU6Y3k9IjI1NiIKICAgICBpbmtzY2FwZTpjeD0iMjU2IgogICAgIGlua3NjYXBlOnpvb209IjEuMzkwNjI1IgogICAgIHNob3dncmlkPSJmYWxzZSIKICAgICBpZD0ibmFtZWR2aWV3ODM3IgogICAgIGlua3NjYXBlOndpbmRvdy1oZWlnaHQ9Ijk1NyIKICAgICBpbmtzY2FwZTp3aW5kb3ctd2lkdGg9Ijc3NiIKICAgICBpbmtzY2FwZTpwYWdlc2hhZG93PSIyIgogICAgIGlua3NjYXBlOnBhZ2VvcGFjaXR5PSIwIgogICAgIGd1aWRldG9sZXJhbmNlPSIxMCIKICAgICBncmlkdG9sZXJhbmNlPSIxMCIKICAgICBvYmplY3R0b2xlcmFuY2U9IjEwIgogICAgIGJvcmRlcm9wYWNpdHk9IjEiCiAgICAgYm9yZGVyY29sb3I9IiM2NjY2NjYiCiAgICAgcGFnZWNvbG9yPSIjZmZmZmZmIiAvPgogIDxwYXRoCiAgICAgc3R5bGU9ImZpbGw6IzhhYjBiZjtmaWxsLW9wYWNpdHk6MSIKICAgICBpZD0icGF0aDgzMyIKICAgICBkPSJNNTAyLjMgMTkwLjhjMy45LTMuMSA5LjctLjIgOS43IDQuN1Y0MDBjMCAyNi41LTIxLjUgNDgtNDggNDhINDhjLTI2LjUgMC00OC0yMS41LTQ4LTQ4VjE5NS42YzAtNSA1LjctNy44IDkuNy00LjcgMjIuNCAxNy40IDUyLjEgMzkuNSAxNTQuMSAxMTMuNiAyMS4xIDE1LjQgNTYuNyA0Ny44IDkyLjIgNDcuNiAzNS43LjMgNzItMzIuOCA5Mi4zLTQ3LjYgMTAyLTc0LjEgMTMxLjYtOTYuMyAxNTQtMTEzLjd6TTI1NiAzMjBjMjMuMi40IDU2LjYtMjkuMiA3My40LTQxLjQgMTMyLjctOTYuMyAxNDIuOC0xMDQuNyAxNzMuNC0xMjguNyA1LjgtNC41IDkuMi0xMS41IDkuMi0xOC45di0xOWMwLTI2LjUtMjEuNS00OC00OC00OEg0OEMyMS41IDY0IDAgODUuNSAwIDExMnYxOWMwIDcuNCAzLjQgMTQuMyA5LjIgMTguOSAzMC42IDIzLjkgNDAuNyAzMi40IDE3My40IDEyOC43IDE2LjggMTIuMiA1MC4yIDQxLjggNzMuNCA0MS40eiIKICAgICBmaWxsPSJjdXJyZW50Q29sb3IiIC8+Cjwvc3ZnPgo=" /></a> <a href="https://orcid.org/0000-0003-2610-6957"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgaW5rc2NhcGU6dmVyc2lvbj0iMS4wICg0MDM1YTRmLCAyMDIwLTA1LTAxKSIKICAgc29kaXBvZGk6ZG9jbmFtZT0ib3JjaWQuc3ZnIgogICBpZD0ic3ZnODM3IgogICB2ZXJzaW9uPSIxLjEiCiAgIHZpZXdCb3g9IjAgMCAyNCAyNCIKICAgcm9sZT0iaW1nIj4KICA8bWV0YWRhdGEKICAgICBpZD0ibWV0YWRhdGE4NDMiPgogICAgPHJkZjpSREY+CiAgICAgIDxjYzpXb3JrCiAgICAgICAgIHJkZjphYm91dD0iIj4KICAgICAgICA8ZGM6Zm9ybWF0PmltYWdlL3N2Zyt4bWw8L2RjOmZvcm1hdD4KICAgICAgICA8ZGM6dHlwZQogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3B1cmwub3JnL2RjL2RjbWl0eXBlL1N0aWxsSW1hZ2UiIC8+CiAgICAgIDwvY2M6V29yaz4KICAgIDwvcmRmOlJERj4KICA8L21ldGFkYXRhPgogIDxkZWZzCiAgICAgaWQ9ImRlZnM4NDEiIC8+CiAgPHNvZGlwb2RpOm5hbWVkdmlldwogICAgIGlua3NjYXBlOmN1cnJlbnQtbGF5ZXI9InN2ZzgzNyIKICAgICBpbmtzY2FwZTp3aW5kb3ctbWF4aW1pemVkPSIwIgogICAgIGlua3NjYXBlOndpbmRvdy15PSIyMyIKICAgICBpbmtzY2FwZTp3aW5kb3cteD0iMCIKICAgICBpbmtzY2FwZTpjeT0iMTIiCiAgICAgaW5rc2NhcGU6Y3g9IjEyIgogICAgIGlua3NjYXBlOnpvb209IjI5LjY2NjY2NyIKICAgICBzaG93Z3JpZD0iZmFsc2UiCiAgICAgaWQ9Im5hbWVkdmlldzgzOSIKICAgICBpbmtzY2FwZTp3aW5kb3ctaGVpZ2h0PSI5MjgiCiAgICAgaW5rc2NhcGU6d2luZG93LXdpZHRoPSI3NzYiCiAgICAgaW5rc2NhcGU6cGFnZXNoYWRvdz0iMiIKICAgICBpbmtzY2FwZTpwYWdlb3BhY2l0eT0iMCIKICAgICBndWlkZXRvbGVyYW5jZT0iMTAiCiAgICAgZ3JpZHRvbGVyYW5jZT0iMTAiCiAgICAgb2JqZWN0dG9sZXJhbmNlPSIxMCIKICAgICBib3JkZXJvcGFjaXR5PSIxIgogICAgIGJvcmRlcmNvbG9yPSIjNjY2NjY2IgogICAgIHBhZ2Vjb2xvcj0iI2ZmZmZmZiIKICAgICBpbmtzY2FwZTpkb2N1bWVudC1yb3RhdGlvbj0iMCIgLz4KICA8dGl0bGUKICAgICBpZD0idGl0bGU4MzMiPk9SQ0lEIGljb248L3RpdGxlPgogIDxwYXRoCiAgICAgc3R5bGU9ImZpbGw6IzhhYjBiZjtmaWxsLW9wYWNpdHk6MSIKICAgICBpZD0icGF0aDgzNSIKICAgICBkPSJNMTIgMEM1LjM3MiAwIDAgNS4zNzIgMCAxMnM1LjM3MiAxMiAxMiAxMiAxMi01LjM3MiAxMi0xMlMxOC42MjggMCAxMiAwek03LjM2OSA0LjM3OGMuNTI1IDAgLjk0Ny40MzEuOTQ3Ljk0N3MtLjQyMi45NDctLjk0Ny45NDdhLjk1Ljk1IDAgMCAxLS45NDctLjk0N2MwLS41MjUuNDIyLS45NDcuOTQ3LS45NDd6bS0uNzIyIDMuMDM4aDEuNDQ0djEwLjA0MUg2LjY0N1Y3LjQxNnptMy41NjIgMGgzLjljMy43MTIgMCA1LjM0NCAyLjY1MyA1LjM0NCA1LjAyNSAwIDIuNTc4LTIuMDE2IDUuMDI1LTUuMzI1IDUuMDI1aC0zLjkxOVY3LjQxNnptMS40NDQgMS4zMDN2Ny40NDRoMi4yOTdjMy4yNzIgMCA0LjAyMi0yLjQ4NCA0LjAyMi0zLjcyMiAwLTIuMDE2LTEuMjg0LTMuNzIyLTQuMDk3LTMuNzIyaC0yLjIyMnoiIC8+Cjwvc3ZnPgo=" /></a> <a href="https://scholar.google.com/citations?user=Rr-4cmQwXX4C&hl=es"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgd2lkdGg9IjM4NCIKICAgaGVpZ2h0PSI1MTIiCiAgIHZpZXdCb3g9IjAgMCAzODQgNTEyIgogICB2ZXJzaW9uPSIxLjEiCiAgIGlkPSJzdmc4IgogICBpbmtzY2FwZTp2ZXJzaW9uPSIxLjAgKDQwMzVhNGYsIDIwMjAtMDUtMDEpIgogICBzb2RpcG9kaTpkb2NuYW1lPSJnb29nbGUtc2Nob2xhci5zdmciPgogIDx0aXRsZQogICAgIGlkPSJ0aXRsZTgzMyI+R29vZ2xlIFNjaG9sYXI8L3RpdGxlPgogIDxkZWZzCiAgICAgaWQ9ImRlZnMyIiAvPgogIDxzb2RpcG9kaTpuYW1lZHZpZXcKICAgICBpZD0iYmFzZSIKICAgICBwYWdlY29sb3I9IiNmZmZmZmYiCiAgICAgYm9yZGVyY29sb3I9IiM2NjY2NjYiCiAgICAgYm9yZGVyb3BhY2l0eT0iMS4wIgogICAgIGlua3NjYXBlOnBhZ2VvcGFjaXR5PSIwLjAiCiAgICAgaW5rc2NhcGU6cGFnZXNoYWRvdz0iMiIKICAgICBpbmtzY2FwZTp6b29tPSIwLjc1IgogICAgIGlua3NjYXBlOmN4PSIxOTIiCiAgICAgaW5rc2NhcGU6Y3k9IjI1NiIKICAgICBpbmtzY2FwZTpkb2N1bWVudC11bml0cz0icHgiCiAgICAgaW5rc2NhcGU6Y3VycmVudC1sYXllcj0ibGF5ZXI2IgogICAgIGlua3NjYXBlOmRvY3VtZW50LXJvdGF0aW9uPSIwIgogICAgIHNob3dncmlkPSJ0cnVlIgogICAgIHVuaXRzPSJweCIKICAgICBzaG93Z3VpZGVzPSJ0cnVlIgogICAgIGlua3NjYXBlOmd1aWRlLWJib3g9InRydWUiCiAgICAgaW5rc2NhcGU6d2luZG93LXdpZHRoPSIxNjgwIgogICAgIGlua3NjYXBlOndpbmRvdy1oZWlnaHQ9Ijk1OCIKICAgICBpbmtzY2FwZTp3aW5kb3cteD0iMCIKICAgICBpbmtzY2FwZTp3aW5kb3cteT0iMjMiCiAgICAgaW5rc2NhcGU6d2luZG93LW1heGltaXplZD0iMSI+CiAgICA8aW5rc2NhcGU6Z3JpZAogICAgICAgdHlwZT0ieHlncmlkIgogICAgICAgaWQ9ImdyaWQxMCIKICAgICAgIGVtcHNwYWNpbmc9IjQiIC8+CiAgICA8c29kaXBvZGk6Z3VpZGUKICAgICAgIHBvc2l0aW9uPSIzODQuMDAwMDEsNjQiCiAgICAgICBvcmllbnRhdGlvbj0iMCwxIgogICAgICAgaWQ9Imd1aWRlMjMiCiAgICAgICBpbmtzY2FwZTpsYWJlbD0iYmFzZWxpbmUiCiAgICAgICBpbmtzY2FwZTpsb2NrZWQ9InRydWUiCiAgICAgICBpbmtzY2FwZTpjb2xvcj0icmdiKDAsMCwyNTUpIiAvPgogIDwvc29kaXBvZGk6bmFtZWR2aWV3PgogIDxtZXRhZGF0YQogICAgIGlkPSJtZXRhZGF0YTUiPgogICAgPHJkZjpSREY+CiAgICAgIDxjYzpXb3JrCiAgICAgICAgIHJkZjphYm91dD0iIj4KICAgICAgICA8ZGM6Zm9ybWF0PmltYWdlL3N2Zyt4bWw8L2RjOmZvcm1hdD4KICAgICAgICA8ZGM6dHlwZQogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3B1cmwub3JnL2RjL2RjbWl0eXBlL1N0aWxsSW1hZ2UiIC8+CiAgICAgICAgPGRjOnRpdGxlPkdvb2dsZSBTY2hvbGFyPC9kYzp0aXRsZT4KICAgICAgICA8Y2M6bGljZW5zZQogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9PRkwiIC8+CiAgICAgICAgPGRjOnN1YmplY3Q+CiAgICAgICAgICA8cmRmOkJhZz4KICAgICAgICAgICAgPHJkZjpsaT5Hb29nbGUgU2Nob2xhcjwvcmRmOmxpPgogICAgICAgICAgPC9yZGY6QmFnPgogICAgICAgIDwvZGM6c3ViamVjdD4KICAgICAgPC9jYzpXb3JrPgogICAgICA8Y2M6TGljZW5zZQogICAgICAgICByZGY6YWJvdXQ9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvT0ZMIj4KICAgICAgICA8Y2M6cGVybWl0cwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML1JlcHJvZHVjdGlvbiIgLz4KICAgICAgICA8Y2M6cGVybWl0cwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML0Rpc3RyaWJ1dGlvbiIgLz4KICAgICAgICA8Y2M6cGVybWl0cwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML0VtYmVkZGluZyIgLz4KICAgICAgICA8Y2M6cGVybWl0cwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML0Rlcml2YXRpdmVXb3JrcyIgLz4KICAgICAgICA8Y2M6cmVxdWlyZXMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9Ob3RpY2UiIC8+CiAgICAgICAgPGNjOnJlcXVpcmVzCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL3B1Yi9PRkwvQXR0cmlidXRpb24iIC8+CiAgICAgICAgPGNjOnJlcXVpcmVzCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL3B1Yi9PRkwvU2hhcmVBbGlrZSIgLz4KICAgICAgICA8Y2M6cmVxdWlyZXMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9EZXJpdmF0aXZlUmVuYW1pbmciIC8+CiAgICAgICAgPGNjOnJlcXVpcmVzCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL3B1Yi9PRkwvQnVuZGxpbmdXaGVuU2VsbGluZyIgLz4KICAgICAgPC9jYzpMaWNlbnNlPgogICAgPC9yZGY6UkRGPgogIDwvbWV0YWRhdGE+CiAgPGcKICAgICBpbmtzY2FwZTpncm91cG1vZGU9ImxheWVyIgogICAgIGlkPSJsYXllcjYiCiAgICAgaW5rc2NhcGU6bGFiZWw9Imljb24iPgogICAgPHBhdGgKICAgICAgIHN0eWxlPSJmaWxsOiM4YWIwYmY7ZmlsbC1vcGFjaXR5OjE7c3Ryb2tlLXdpZHRoOjAuMDY0Nzg3MSIKICAgICAgIGQ9Ik0gMzQzLjc1ODY4LDEwNi42NjI0MyBWIDc5LjQzMDIwNSBMIDM2My41MjM2NSw2My45OTk5OTcgSCAxNDkuNjMzNTQgTCAyMC40NzYzNDUsMTc2LjI3MzYgaCA4NS42NTYwNzUgYyAtMC4xNTUzNCwyLjEyNDk0IC0wLjIxOTE0LDQuMDQ2NDQgLTAuMjE5MTQsNi4yMjU2MyAwLDIwLjg0NDcyIDcuMjE5MiwzOC4wODY2MiAyMS42NzIwMyw1MS44NjA4OSAxNC40NTI4NCwxMy43OTcwMiAzMi4yNTEyNCwyMC42NDc4NCA1My4zMjY1MSwyMC42NDc4NCA0LjkyMzE5LDAgOS43NTA1OSwtMC4zNjc5NCAxNC40Mzg0MiwtMS4wMjQxOSAtMi45MDcyMiw2LjUwMDgyIC00LjM3NDU3LDEyLjUyMzAyIC00LjM3NDU3LDE4LjE0MjI4IDAsOS44NzUyNiA0LjQ5OTI0LDIwLjQzMDQgMTMuNDY3MTUsMzEuNjQxOCAtMzkuMjMzNzcsMi42NzA1IC02OC4wNjExMiw5LjczMjY0IC04Ni40MzcwMiwyMS4xNjMyMiAtMTAuNTMxMDgsNi40OTkwNyAtMTkuMDAwMjA3LDE0LjcwMzk2IC0yNS4zOTAzNDksMjQuNTMxMSAtNi4zOTA1NjksOS44OTkzMyAtOS41Nzc3NTQsMjAuNTE1MjUgLTkuNTc3NzU0LDMxLjk2MTYgMCw5LjY0ODIyIDIuMDYyMzc1LDE4LjMzNjExIDYuMjE5MDcsMjYuMDYyMzMgNC4xNTY2OTQsNy43MjYzIDkuNTc3NzU3LDE0LjA3MDQ3IDE2LjMxMjIyMywxOC45ODQwOCA2LjcxODI1LDQuOTY3ODEgMTQuNDY4OTksOS4xMDA4OCAyMy4yMTksMTIuNDY4NzQgOC43MzQyOSwzLjM0Mzc4IDE3LjQwNjQzLDUuNzE4NTggMjYuMDYxMDYsNy4wNjI1OCA4LjYyNzA3LDEuMzQyMjIgMTcuMjA0NzEsMS45OTg1IDI1LjcwNTc5LDEuOTk4NSAxMy40Njg4NywwIDI2Ljk1MzUzLC0xLjczNDI4IDQwLjU0NzExLC01LjE4NzA3IDEzLjU2MTY1LC0zLjQ4NDYxIDI2LjI4MDIyLC04LjY0MTQzIDM4LjE3MTA1LC0xNS40OTI3IDExLjg1OTM1LC02LjgwNDg4IDIxLjUxNTQ1LC0xNi4wODY1IDI4LjkyMTksLTI3LjcxODMgNy4zOTAyNCwtMTEuNjc5OTggMTEuMDk0NTcsLTI0LjgwNDk5IDExLjA5NDU3LC0zOS4zMzYxMyAwLC0xMS4wMTU4NCAtMi4yNDk2NCwtMjEuMDM4NTIgLTYuNzUwMiwtMzAuMTQwNzMgLTQuNDY4NjQsLTkuMDcyMDIgLTkuOTM3ODUsLTE2LjU0MTAyIC0xNi40NTI3MSwtMjIuMzQ0MDMgLTYuNTAwOCwtNS44MTI2MyAtMTIuOTk5ODcsLTExLjE1NTM5IC0xOS41MTUxMiwtMTUuOTY3OSAtNi41MDA4MywtNC44NDQ4OCAtMTIuMDAwMjEsLTkuNzUwNTggLTE2LjQ2ODg0LC0xNC44MTI5IC00LjQ4NDgsLTUuMDQ2NTcgLTYuNzM0NDQsLTEwLjA1NDE5IC02LjczNDQ0LC0xNC45ODM5NSAwLC00LjkyMTQ1IDEuNzM0MjIsLTkuNjcxODMgNS4yMTU4OCwtMTQuMjY1NTkgMy40NTQ1MSwtNC42MDk1IDcuNjczNzYsLTkuMDQ3OTUgMTIuNjA5NjcsLTEzLjMwNTcxIDQuOTM3NTYsLTQuMjQ5NDQgOS44NzUyMywtOC45Njc4OCAxNC43OTY2NSwtMTQuMTMzMDIgNC45MjE0NywtNS4xNDcxOSA5LjE0MDcyLC0xMS44MjczOSAxMi42MDk3MSwtMjAuMDA4MjIgMy40ODQ2NywtOC4xNzkwNyA1LjIwMzE4LC0xNy40NDQ4OSA1LjIwMzE4LC0yNy43NTY3OSAwLC0xMy40NTI3IC0yLjU0NzE0LC0yNC40NjA2NSAtNy41NDczNSwtMzMuMzEzNDggLTAuNTkzNjksLTEuMDIyNDMgLTEuMjE3NTcsLTEuODAzMzggLTEuODc1MTEsLTMuMDIyMjUgbCA1Ni45MDc0NSwtNDYuNjcyMTM2IHYgMTcuMTE4NTI2IGMgLTcuMzkzNzMsMC45Mjk2OSAtNi42MjQyMiw1LjM0NTgyIC02LjYyNDIyLDEwLjYzNTIgdiAxMjguNjY3MTkgYyAwLDUuOTU4MzIgNC44NzUxLDEwLjgzMzgyIDEwLjgzMzg2LDEwLjgzMzgyIGggMy45ODg2OSBjIDUuOTU4MzUsMCAxMC44MzM4NiwtNC44NzUwNiAxMC44MzM4NiwtMTAuODMzODIgViAxMTcuMjkyODIgYyAwLC01LjI3NjY5IDAuNzc3NDEsLTkuNjg4MDEgLTYuNTYxNjcsLTEwLjYzMDM5IHogTSAyMzYuMzk4NjUsMzI5LjE0MTE0IGMgMS4xNDA5OSwwLjc1MDMgMy43MDM5LDIuNzgwNzUgNy43MTg0LDYuMDM4MzggNC4wNDk1LDMuMjQzMTkgNi43OTcsNS42OTU4MiA4LjI2NTY3LDcuNDE0MzIgMS40Mzg1MSwxLjY2MzgxIDMuNTc5Miw0LjE2NTAxIDYuMzc2MTcsNy41NDczNCAyLjgxMjY4LDMuMzc0NCA0LjcxODQsNi4zMDM5NCA1LjcxODUzLDguNzM0MjUgMS4wMDAxNiwyLjQ3NjcgMi4wMTYwMyw1LjQ2MDg5IDMuMDQ2MzYsOC45NDU1NiAwLjk4NTY3LDMuNDQ0ODggMS40ODQ4Niw2Ljk3NTk1IDEuNDg0ODYsMTAuNTYxNjkgMCwxNy4wNDgxMyAtNi41NjMzOCwyOS42ODAwNyAtMTkuNjU2MDQsMzcuODU5MTUgLTEzLjEyNSw4LjE4MDgzIC0yOC43NjY1MSwxMi4yNzM2OCAtNDYuOTM3NjcsMTIuMjczNjggLTkuMTg3MDksMCAtMTguMjAzMSwtMS4wOTI4OSAtMjcuMDYyNDcsLTMuMTk1MSAtOC44NDMyMiwtMi4xMTY2NSAtMTcuMzExOTIsLTUuMzM2MiAtMjUuMzkwMzUsLTkuNjAxODUgLTguMDc4NDYsLTQuMjU3NzEgLTE0LjU3NzU0LC0xMC4yMDMzNyAtMTkuNTAwNzIsLTE3Ljc5NjU5IC00LjkzNzY0LC03LjY0MDEyIC03LjQwNjQ1LC0xNi40MTQ2NCAtNy40MDY0NSwtMjYuMjQ5NjIgMCwtMTAuMzIwMjIgMi43OTY5MiwtMTkuMjg5ODcgOC40MjIzMywtMjYuOTA1ODggNS41OTM0MywtNy42MjU2NCAxMi45Mzc3NCwtMTMuMzkxOSAyMi4wMzIwOCwtMTcuMzE1NCA5LjA2MjQsLTMuOTQ1ODIgMTguMjQ5NDYsLTYuNzQyMzIgMjcuNTYxNjYsLTguMzk4MjcgOS4zMTIyMSwtMS43MDIzIDE4Ljc5Njc5LC0yLjU1NSAyOC40Mzg0MiwtMi41NTUgNC40Njg2MiwwIDcuOTM1ODIsMC4yNTExNSAxMC40MDQ2NSwwLjY5NjA3IDAuNDU0NTYsMC4yMTkxOCAzLjAzMTg4LDIuMDcwMjUgNy43MzQ1Niw1LjU2MzI2IDQuNzA0MDEsMy40NjIzNyA3LjYyNTY1LDUuNTk1MTkgOC43NTA0Nyw2LjM4NDAxIHogbSAtMy4zNTgyMywtMTAwLjU3NzkgYyAtNy40MDY0OCw4Ljg1OTM4IC0xNy43MzQ1NCwxMy4yODgyIC0zMC45NTM2MywxMy4yODgyIC0xMS44NTkzMywwIC0yMi4yOTc2NiwtNC43NjQ4MiAtMzEuMjY1NTQsLTE0LjMxMTk1IC04Ljk5OTg0LC05LjUyMzA5IC0xNS40MjIzNSwtMjAuMzI4MDMgLTE5LjM0NDA4LC0zMi40MzA2MSAtMy45Mzc1MiwtMTIuMTA4NzEgLTUuOTA1ODUsLTIzLjk4NDIzIC01LjkwNTg1LC0zNS42NDggMCwtMTMuNjk0MiAzLjU5NTQyLC0yNS4zNTE4NCAxMC43ODA5LC0zNC45NzU5OCA3LjE4NzI3LC05LjY0OTUyIDE3LjQ5OTE1LC0xNC40ODQ3NyAzMC45Mzc4NiwtMTQuNDg0NzcgMTEuODc1MDcsMCAyMi4zNzQyMyw1LjAzODI1IDMxLjQzNzA0LDE1LjE1Njc3IDkuMDk0MzQsMTAuMDg0ODIgMTUuNjA5NjEsMjEuNDEzMDMgMTkuNTE2OSwzMy45Njc5OSAzLjkyMTc2LDEyLjUzOTIgNS44NzM0NSwyNC41Mjk3OSA1Ljg3MzQ1LDM1Ljk4Mzk5IDAsMTMuNDQ2NTggLTMuNzAyNTYsMjQuNjA5ODQgLTExLjA3NjYzLDMzLjQ1NDM2IHoiCiAgICAgICBpZD0icGF0aDIiIC8+CiAgPC9nPgo8L3N2Zz4K" /></a> <a href="https://www.researchgate.net/profile/Javier-Tamayo"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgd2lkdGg9IjM4NCIKICAgaGVpZ2h0PSI1MTIiCiAgIHZpZXdCb3g9IjAgMCAzODQgNTEyIgogICB2ZXJzaW9uPSIxLjEiCiAgIGlkPSJzdmc4IgogICBpbmtzY2FwZTp2ZXJzaW9uPSIxLjAgKDQwMzVhNGYsIDIwMjAtMDUtMDEpIgogICBzb2RpcG9kaTpkb2NuYW1lPSJyZXNlYXJjaGdhdGUuc3ZnIj4KICA8dGl0bGUKICAgICBpZD0idGl0bGU4MzMiPlJlc2VhcmNoR2F0ZTwvdGl0bGU+CiAgPGRlZnMKICAgICBpZD0iZGVmczIiIC8+CiAgPHNvZGlwb2RpOm5hbWVkdmlldwogICAgIGlkPSJiYXNlIgogICAgIHBhZ2Vjb2xvcj0iI2ZmZmZmZiIKICAgICBib3JkZXJjb2xvcj0iIzY2NjY2NiIKICAgICBib3JkZXJvcGFjaXR5PSIxLjAiCiAgICAgaW5rc2NhcGU6cGFnZW9wYWNpdHk9IjAuMCIKICAgICBpbmtzY2FwZTpwYWdlc2hhZG93PSIyIgogICAgIGlua3NjYXBlOnpvb209IjAuNzUiCiAgICAgaW5rc2NhcGU6Y3g9IjE5MiIKICAgICBpbmtzY2FwZTpjeT0iMjU2IgogICAgIGlua3NjYXBlOmRvY3VtZW50LXVuaXRzPSJweCIKICAgICBpbmtzY2FwZTpjdXJyZW50LWxheWVyPSJsYXllcjYiCiAgICAgaW5rc2NhcGU6ZG9jdW1lbnQtcm90YXRpb249IjAiCiAgICAgc2hvd2dyaWQ9InRydWUiCiAgICAgdW5pdHM9InB4IgogICAgIHNob3dndWlkZXM9InRydWUiCiAgICAgaW5rc2NhcGU6Z3VpZGUtYmJveD0idHJ1ZSIKICAgICBpbmtzY2FwZTp3aW5kb3ctd2lkdGg9IjE2ODAiCiAgICAgaW5rc2NhcGU6d2luZG93LWhlaWdodD0iOTU4IgogICAgIGlua3NjYXBlOndpbmRvdy14PSIwIgogICAgIGlua3NjYXBlOndpbmRvdy15PSIyMyIKICAgICBpbmtzY2FwZTp3aW5kb3ctbWF4aW1pemVkPSIxIj4KICAgIDxpbmtzY2FwZTpncmlkCiAgICAgICB0eXBlPSJ4eWdyaWQiCiAgICAgICBpZD0iZ3JpZDEwIgogICAgICAgZW1wc3BhY2luZz0iNCIgLz4KICAgIDxzb2RpcG9kaTpndWlkZQogICAgICAgcG9zaXRpb249IjM4NC4wMDAwMSw2NCIKICAgICAgIG9yaWVudGF0aW9uPSIwLDEiCiAgICAgICBpZD0iZ3VpZGUyMyIKICAgICAgIGlua3NjYXBlOmxhYmVsPSJiYXNlbGluZSIKICAgICAgIGlua3NjYXBlOmxvY2tlZD0idHJ1ZSIKICAgICAgIGlua3NjYXBlOmNvbG9yPSJyZ2IoMCwwLDI1NSkiIC8+CiAgPC9zb2RpcG9kaTpuYW1lZHZpZXc+CiAgPG1ldGFkYXRhCiAgICAgaWQ9Im1ldGFkYXRhNSI+CiAgICA8cmRmOlJERj4KICAgICAgPGNjOldvcmsKICAgICAgICAgcmRmOmFib3V0PSIiPgogICAgICAgIDxkYzpmb3JtYXQ+aW1hZ2Uvc3ZnK3htbDwvZGM6Zm9ybWF0PgogICAgICAgIDxkYzp0eXBlCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vcHVybC5vcmcvZGMvZGNtaXR5cGUvU3RpbGxJbWFnZSIgLz4KICAgICAgICA8ZGM6dGl0bGU+UmVzZWFyY2hHYXRlPC9kYzp0aXRsZT4KICAgICAgICA8Y2M6bGljZW5zZQogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9PRkwiIC8+CiAgICAgICAgPGRjOnN1YmplY3Q+CiAgICAgICAgICA8cmRmOkJhZz4KICAgICAgICAgICAgPHJkZjpsaT5SZXNlYXJjaEdhdGU8L3JkZjpsaT4KICAgICAgICAgIDwvcmRmOkJhZz4KICAgICAgICA8L2RjOnN1YmplY3Q+CiAgICAgIDwvY2M6V29yaz4KICAgICAgPGNjOkxpY2Vuc2UKICAgICAgICAgcmRmOmFib3V0PSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL09GTCI+CiAgICAgICAgPGNjOnBlcm1pdHMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9SZXByb2R1Y3Rpb24iIC8+CiAgICAgICAgPGNjOnBlcm1pdHMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9EaXN0cmlidXRpb24iIC8+CiAgICAgICAgPGNjOnBlcm1pdHMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9FbWJlZGRpbmciIC8+CiAgICAgICAgPGNjOnBlcm1pdHMKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9zY3JpcHRzLnNpbC5vcmcvcHViL09GTC9EZXJpdmF0aXZlV29ya3MiIC8+CiAgICAgICAgPGNjOnJlcXVpcmVzCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL3B1Yi9PRkwvTm90aWNlIiAvPgogICAgICAgIDxjYzpyZXF1aXJlcwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML0F0dHJpYnV0aW9uIiAvPgogICAgICAgIDxjYzpyZXF1aXJlcwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML1NoYXJlQWxpa2UiIC8+CiAgICAgICAgPGNjOnJlcXVpcmVzCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vc2NyaXB0cy5zaWwub3JnL3B1Yi9PRkwvRGVyaXZhdGl2ZVJlbmFtaW5nIiAvPgogICAgICAgIDxjYzpyZXF1aXJlcwogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3NjcmlwdHMuc2lsLm9yZy9wdWIvT0ZML0J1bmRsaW5nV2hlblNlbGxpbmciIC8+CiAgICAgIDwvY2M6TGljZW5zZT4KICAgIDwvcmRmOlJERj4KICA8L21ldGFkYXRhPgogIDxnCiAgICAgaW5rc2NhcGU6Z3JvdXBtb2RlPSJsYXllciIKICAgICBpZD0ibGF5ZXI2IgogICAgIGlua3NjYXBlOmxhYmVsPSJpY29uIj4KICAgIDxwYXRoCiAgICAgICBzdHlsZT0iZmlsbDojOGFiMGJmO2ZpbGwtb3BhY2l0eToxO3N0cm9rZS13aWR0aDowLjA2NjMxNDgiCiAgICAgICBkPSJNIDIyOC42NTk2OCw0MDguMTAxNDkgQyAyMDguNDY2MTYsMzg2LjEyNzg0IDE4MS40NDIyLDM1MC44MzMyNCAxNTguOTYyLDMxMC45MzUxNiBjIDM3LjEzNDQ0LC04LjY4NDg3IDY0LjYzMzE4LC00My41NTAyNyA2NC42MzMxOCwtNzguMzgzODYgMCwtNTEuMzQ1NyAtMzkuODgwODksLTc1LjE3Njc4IC05Mi4xNjMyOSwtNzUuMTc2NzggLTI3LjAyMjY2LDAgLTQ4LjU4MzM2NywxLjM2NTQ2IC02OC43MTU0NDEsMS4zNjU0NiAtMTguMzY5MTU1LDAgLTM2LjcyMjQwMSwwIC00OC4xNTQxNTMsLTAuNDQ0NyB2IDEzLjMwNDY2IGwgMTcuNDAxMDk3LDMuMTkxNTkgYyAxMS45Njg4NDUsMi4zMDIxNCAxOC43ODI0OSw3Ljc2NTc5IDE4Ljc4MjQ5LDM2LjIxNDk0IHYgMTgwLjU5OTE5IGMgMCwyOC40MzU0MyAtNi44MTMyMjIsMzMuOTI4NzEgLTE4Ljc4MjQ5LDM2LjE5OTUzIGwgLTE3LjQwMTA5NywzLjI1MjU4IHYgMTMuMjU5MDggYyAxMi4zNjc5OTgsLTAuNDQ0NyAzMy45MTI4MjgsLTEuMzUxMyA1NS40NzM1MzMsLTEuMzUxMyAyMC42MjQwNCwwIDQ3LjIxNzQ1MSwwLjkwNjYgNTguNjgwNTYxLDEuMzUxMyB2IC0xMy4yNTkwOCBsIC0yMy44NDY5OCwtMy4yNTI1OCBjIC0xMi4zNjY2OTYsLTEuNzk2IC0xOC44MTM4NDgsLTcuNzY0MSAtMTguODEzODQ4LC0zNi4xOTk1MyB2IC03Ni41NDIyNSBjIDExLjAwMjUwNywwLjkyMDc4IDIwLjYyNDAzOCwwLjkyMDc4IDM1LjMyNTU0OCwwLjkyMDc4IDI3Ljk1OTMyLDQ5Ljk0ODg3IDU0LjU1MTAyLDg3LjU1ODk2IDY5LjY1MjE0LDEwNC45NjE4IDEzLjc3OSwxNi41MjU4NyAzNC44NDk0OSwyNy4wNTQwMSA2MS40NDE2MiwyNy4wNTQwMSA3Ljc4MTI4LDAgMTYuMDIzMTYsLTEuMzY3MjEgMjEuMDU0NTgsLTMuNjgzMTUgdiAtMTEuODkzNjEgYyAtMTYuNDk2MjUsMCAtMzIuOTkyMDQsLTExLjQ3NzI1IC00NC44NzAyLC0yNC4zMjEzIHogTSAxMTkuMDYzOTIsMjk1LjM0NDI0IGMgLTE1LjU5MDkzLDAgLTIyLjQzNDI1NywtMC40MTQ2MyAtMzMuMDA3OTM5LC0xLjQxMTAzIFYgMTc4LjkxOTM1IGMgMTAuNTczNjgyLC0wLjkyMDc5IDI0Ljc1MTg2OSwtMC45MjA3OSAzNy4xMzU3MzksLTAuOTIwNzkgMzguNTMxMzIsMCA2MS40Mjc0NSwyMC4xOTUyNSA2MS40Mjc0NSw1Ni44MzkwMiAwLDM2LjIxNDk1IC0yNC43MzY0MSw2MC41MDY2NiAtNjUuNTU1MjUsNjAuNTA2NjYgeiBtIDEzOS45MzQxNiwtMTE1LjcwMzUgYyAtMC40NjA2LC0yLjQwODcgLTAuODc1MjQsLTUuMjE3MDEgLTEuMjQzMDMsLTguNDU1NDQgLTAuMzgzMjgsLTMuMjY4NDYgLTAuNjMwMzMsLTcuMTA0MTEgLTAuNzgyNDMsLTExLjYzMTA4IC0wLjE1Mzg2LC00LjQ5NTYyIC0wLjIxNTA5LC05Ljk4ODkxIC0wLjIxNTA5LC0xNi4yODA5OCAwLC02LjMyMjk3IDAuMDYxNiwtMTEuNzM5OCAwLjIxNTA5LC0xNi4yNTA4NyAwLjE1MjU4LC00LjUyNjk4IDAuMzk5MTUsLTguNDA5OSAwLjc4MjQzLC0xMS42NDcwMyAwLjM2Nzc4LC0zLjIyMjkxIDAuNzgyNDMsLTYuMDQ2NyAxLjI0MzAzLC04LjQ1NTQxIDAuNDQ0NywtMi40MjQ2IDEuMDI3NzYsLTQuNzI2NzkgMS43ODA1NSwtNi45ODE2NzggMy45NDI2MiwtMTEuOTIzMjY0IDEwLjQwMzk2LC0yMC44ODQ4NjEgMTkuNDQyNDYsLTI2LjkwMTUwMyA5LjAyMjYsLTYuMDE1MzQyIDIwLjA4NjUzLC05LjAzNjc1MiAzMy4yMjE0NywtOS4wMzY3NTIgNi43NTIyNCwwIDEyLjg3NTg3LDAuNzgyNDI5IDE4LjMwNzczLDIuMzc3MzQ1IDUuMzcwODIsMS41ODA3NjEgMTAuMTg4NywzLjc2MDQ1NyAxNC40Mzg5Nyw2LjU1MjQzNSA0LjE4OTI2LDIuNzYyMzM5IDcuODExMzcsNi4wMTUzNDkgMTAuODAzMTcsOS42OTg0NzYgMy4wNjg2OCwzLjY5NzI4NSA1LjUzODgyLDcuNjQxNjI0IDcuNDczMTksMTEuODc3NzE4IDAuNzUxMDYsMS4zNDk1ODMgMC41Mzc1MiwyLjQyNDYwOCAtMC42NTk5OCwzLjE3NTY3NiBsIC0xNi42ODAxMiw2Ljg1ODc3MyBjIC0xLjQxMjc1LDAuNzUyNzggLTIuNDA4NjksMC4zNjkwNyAtMy4xOTI4NywtMS4xMjA1OCAtMy43NDI4MywtNi45MzYxMyAtNi45MzYxMSwtMTEuNDkyNzUgLTEyLjE4MjgxLC0xNC44MDY3NTcgLTUuMzA5NDEsLTMuMjk5ODUzIC0xMC4yMjAwNywtNC44NjUxMjkgLTE4LjMwNzcsLTQuODY1MTI5IC04Ljc5MzE0LDAgLTEyLjcyMTYsMS43NDg3MzQgLTE4LjIyOTUzLDUuNjkzMTAyIC01LjQ2MzY0LDMuODY3MDA4IC05LjQ2OTAxLDguNzMyMTM3IC0xMS44MzIxNywxNi4xNDI2MTQgLTAuNDc0MzcsMS4zMzU4MSAtMC45MDUzLDIuOTkzNDggLTEuNDExMDQsNC45NDIwMyAtMC40MTQ2MywxLjk3OTkxIC0wLjc1Mjc4LDQuNDA0NTIgLTAuOTY2Myw3LjI0MjQ3IC0wLjIxNTQ0LDIuODM5MjUgLTAuNDE0NjQsNi4zNTMwOCAtMC41OTg1NSwxMC40OTY3OCAtMC4xMjI0Niw0LjE0MzczIC0wLjE4NDAzLDkuMTc2ODYgLTAuMTg0MDMsMTUuMDA3ODggMCw1Ljg2MTA3IDAuMDYxNiwxMC44OTQyIDAuMTg0MDMsMTUuMDM3OTQgMC4xODQwMiw0LjEyNzc5IDAuMzgzMjgsNy42NDE2MiAwLjU5ODU1LDEwLjQ4MDg2IDAuMjEzNSwyLjg2OTMxIDAuNTUxNjcsNS4yNzgwNSAwLjk2NjMsNy4yNzM4NiAwLjUwNjE2LDEuOTE4NDYgMC45MzY2NywzLjU3NDgzIDEuNDExMDQsNC45MjYxMyAyLjM2MzE2LDcuMzgwODQgNS43NDAzNywxMS40MTU4NSAxMC43MTIwNSwxNC42NTQ2NyA0LjkxMDY4LDMuMjgzOTQgMTAuNTU2NTEsNS42NDc1NSAxOS4zNDk2NSw1LjY0NzU1IDcuODExMzQsMCAxNC45NjIzMiwtMi4yMjUyNCAxOS42MjYzNCwtNS42MTc0NiA0LjYxOTc5LC0zLjM5MDk0IDguNDU1NDQsLTcuODcxMDggMTAuMTc0NTIsLTEzLjk5NDcyIDAuNzUyODEsLTIuNTc4NDMgMS43MTkxNiwtNS43ODU4OCAyLjM3OTEsLTkuNzEzOTMgMC41OTg1MywtMy45Mjg0MyAwLjU5ODUzLC04LjA4NjMyIDAuNTk4NTMsLTEzLjgyNDk3IDAsLTAuOTA2NiAtMC41MDc0LC0xLjM2NzIxIC0xLjM1MTMsLTEuMzY3MjEgaCAtMjYuNzE2MzEgYyAtMS41MDM4MywwIC0yLjI0MDczLC0wLjczNTU4IC0yLjI0MDczLC0yLjIzODk4IHYgLTE1LjMxNDY2IGMgMCwtMS41MTkzMSAwLjczNjksLTIuMjU2NjEgMi4yNDA3MywtMi4yNTY2MSBoIDQ5LjAyODA3IGMgMS41MzUyMSwwIDIuMjU2NjEsMC43MzY4OCAyLjI1NjYxLDIuMjU2NjEgdiAxMy4wODkzOCBjIDAsNi45MzYxNCAwLDEzLjM2NjEyIC0wLjcyMTQsMTkuMzIwMDEgLTAuNjkxMzEsNS45NTM5MiAtMS42MjYyNSwxMS4xMDk1MSAtMi44MDc4OSwxNC44NjgyMiAtMy43NDQ1MywxMS43NzEyIC05LjY4MjU0LDIwLjE0OTY5IC0xOC43ODI0NywyNi4zOTQwNSAtOS4xMzEzLDYuMjkxNjUgLTIwLjkwMDc5LDkuNjgyNTcgLTMzLjY4MzgsOS42ODI1NyAtMTMuMTM0OTQsMCAtMjQuMTk4OTEsLTMuMDIxODMgLTMzLjIyMTQ3LC05LjAyMjYgLTkuMDM4NSwtNi4wNzYzNSAtMTUuNDk5ODQsLTE0Ljk5MjM5IC0xOS40NDI0NiwtMjYuOTE1NjYgLTAuNzUyNzksLTIuMjU0ODkgLTEuMzM1ODUsLTQuNTcyNTMgLTEuNzgwNTUsLTYuOTk3MTQgeiIKICAgICAgIGlkPSJwYXRoMiIgLz4KICA8L2c+Cjwvc3ZnPgo=" /></a> <a href="https://twitter.com/TamayoLeiva_J"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgaW5rc2NhcGU6dmVyc2lvbj0iMS4wICg0MDM1YTRmLCAyMDIwLTA1LTAxKSIKICAgc29kaXBvZGk6ZG9jbmFtZT0idHdpdHRlci5zdmciCiAgIGlkPSJzdmc4NTMiCiAgIHZlcnNpb249IjEuMSIKICAgdmlld0JveD0iMCAwIDI0IDI0IgogICByb2xlPSJpbWciPgogIDxtZXRhZGF0YQogICAgIGlkPSJtZXRhZGF0YTg1OSI+CiAgICA8cmRmOlJERj4KICAgICAgPGNjOldvcmsKICAgICAgICAgcmRmOmFib3V0PSIiPgogICAgICAgIDxkYzpmb3JtYXQ+aW1hZ2Uvc3ZnK3htbDwvZGM6Zm9ybWF0PgogICAgICAgIDxkYzp0eXBlCiAgICAgICAgICAgcmRmOnJlc291cmNlPSJodHRwOi8vcHVybC5vcmcvZGMvZGNtaXR5cGUvU3RpbGxJbWFnZSIgLz4KICAgICAgPC9jYzpXb3JrPgogICAgPC9yZGY6UkRGPgogIDwvbWV0YWRhdGE+CiAgPGRlZnMKICAgICBpZD0iZGVmczg1NyIgLz4KICA8c29kaXBvZGk6bmFtZWR2aWV3CiAgICAgaW5rc2NhcGU6Y3VycmVudC1sYXllcj0ic3ZnODUzIgogICAgIGlua3NjYXBlOndpbmRvdy1tYXhpbWl6ZWQ9IjAiCiAgICAgaW5rc2NhcGU6d2luZG93LXk9IjIzIgogICAgIGlua3NjYXBlOndpbmRvdy14PSIwIgogICAgIGlua3NjYXBlOmN5PSIxMiIKICAgICBpbmtzY2FwZTpjeD0iMTIiCiAgICAgaW5rc2NhcGU6em9vbT0iMzAuNjI1IgogICAgIHNob3dncmlkPSJmYWxzZSIKICAgICBpZD0ibmFtZWR2aWV3ODU1IgogICAgIGlua3NjYXBlOndpbmRvdy1oZWlnaHQ9Ijk1NyIKICAgICBpbmtzY2FwZTp3aW5kb3ctd2lkdGg9IjEzNzUiCiAgICAgaW5rc2NhcGU6cGFnZXNoYWRvdz0iMiIKICAgICBpbmtzY2FwZTpwYWdlb3BhY2l0eT0iMCIKICAgICBndWlkZXRvbGVyYW5jZT0iMTAiCiAgICAgZ3JpZHRvbGVyYW5jZT0iMTAiCiAgICAgb2JqZWN0dG9sZXJhbmNlPSIxMCIKICAgICBib3JkZXJvcGFjaXR5PSIxIgogICAgIGJvcmRlcmNvbG9yPSIjNjY2NjY2IgogICAgIHBhZ2Vjb2xvcj0iI2ZmZmZmZiIKICAgICBpbmtzY2FwZTpkb2N1bWVudC1yb3RhdGlvbj0iMCIgLz4KICA8dGl0bGUKICAgICBpZD0idGl0bGU4NDkiPlR3aXR0ZXIgaWNvbjwvdGl0bGU+CiAgPHBhdGgKICAgICBzdHlsZT0iZmlsbDojOGFiMGJmO2ZpbGwtb3BhY2l0eToxIgogICAgIGlkPSJwYXRoODUxIgogICAgIGQ9Ik0yMy45NTMgNC41N2ExMCAxMCAwIDAxLTIuODI1Ljc3NSA0Ljk1OCA0Ljk1OCAwIDAwMi4xNjMtMi43MjNjLS45NTEuNTU1LTIuMDA1Ljk1OS0zLjEyNyAxLjE4NGE0LjkyIDQuOTIgMCAwMC04LjM4NCA0LjQ4MkM3LjY5IDguMDk1IDQuMDY3IDYuMTMgMS42NCAzLjE2MmE0LjgyMiA0LjgyMiAwIDAwLS42NjYgMi40NzVjMCAxLjcxLjg3IDMuMjEzIDIuMTg4IDQuMDk2YTQuOTA0IDQuOTA0IDAgMDEtMi4yMjgtLjYxNnYuMDZhNC45MjMgNC45MjMgMCAwMDMuOTQ2IDQuODI3IDQuOTk2IDQuOTk2IDAgMDEtMi4yMTIuMDg1IDQuOTM2IDQuOTM2IDAgMDA0LjYwNCAzLjQxNyA5Ljg2NyA5Ljg2NyAwIDAxLTYuMTAyIDIuMTA1Yy0uMzkgMC0uNzc5LS4wMjMtMS4xNy0uMDY3YTEzLjk5NSAxMy45OTUgMCAwMDcuNTU3IDIuMjA5YzkuMDUzIDAgMTMuOTk4LTcuNDk2IDEzLjk5OC0xMy45ODUgMC0uMjEgMC0uNDItLjAxNS0uNjNBOS45MzUgOS45MzUgMCAwMDI0IDQuNTl6IiAvPgo8L3N2Zz4K" /></a> <a href="https://github.com/TamayoLeivaJ"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgcm9sZT0iaW1nIgogICB2aWV3Qm94PSIwIDAgMjQgMjQiCiAgIHZlcnNpb249IjEuMSIKICAgaWQ9InN2ZzgzNyIKICAgc29kaXBvZGk6ZG9jbmFtZT0iZ2l0aHViLnN2ZyIKICAgaW5rc2NhcGU6dmVyc2lvbj0iMS4wICg0MDM1YTRmLCAyMDIwLTA1LTAxKSI+CiAgPG1ldGFkYXRhCiAgICAgaWQ9Im1ldGFkYXRhODQzIj4KICAgIDxyZGY6UkRGPgogICAgICA8Y2M6V29yawogICAgICAgICByZGY6YWJvdXQ9IiI+CiAgICAgICAgPGRjOmZvcm1hdD5pbWFnZS9zdmcreG1sPC9kYzpmb3JtYXQ+CiAgICAgICAgPGRjOnR5cGUKICAgICAgICAgICByZGY6cmVzb3VyY2U9Imh0dHA6Ly9wdXJsLm9yZy9kYy9kY21pdHlwZS9TdGlsbEltYWdlIiAvPgogICAgICA8L2NjOldvcms+CiAgICA8L3JkZjpSREY+CiAgPC9tZXRhZGF0YT4KICA8ZGVmcwogICAgIGlkPSJkZWZzODQxIj4KICAgIDxmaWx0ZXIKICAgICAgIGhlaWdodD0iMy40Mjg5OTUxIgogICAgICAgeT0iLTEuMjE0NDk3NiIKICAgICAgIHdpZHRoPSIzLjM3MTY4OSIKICAgICAgIHg9Ii0xLjE4NTg0NDUiCiAgICAgICBpZD0iZmlsdGVyODQyIgogICAgICAgc3R5bGU9ImNvbG9yLWludGVycG9sYXRpb24tZmlsdGVyczpzUkdCIgogICAgICAgaW5rc2NhcGU6Y29sbGVjdD0iYWx3YXlzIj4KICAgICAgPGZlR2F1c3NpYW5CbHVyCiAgICAgICAgIGlkPSJmZUdhdXNzaWFuQmx1cjg0NCIKICAgICAgICAgc3RkRGV2aWF0aW9uPSIxMS43OTAyNzciCiAgICAgICAgIGlua3NjYXBlOmNvbGxlY3Q9ImFsd2F5cyIgLz4KICAgIDwvZmlsdGVyPgogIDwvZGVmcz4KICA8c29kaXBvZGk6bmFtZWR2aWV3CiAgICAgaW5rc2NhcGU6ZG9jdW1lbnQtcm90YXRpb249IjAiCiAgICAgcGFnZWNvbG9yPSIjZmZmZmZmIgogICAgIGJvcmRlcmNvbG9yPSIjNjY2NjY2IgogICAgIGJvcmRlcm9wYWNpdHk9IjEiCiAgICAgb2JqZWN0dG9sZXJhbmNlPSIxMCIKICAgICBncmlkdG9sZXJhbmNlPSIxMCIKICAgICBndWlkZXRvbGVyYW5jZT0iMTAiCiAgICAgaW5rc2NhcGU6cGFnZW9wYWNpdHk9IjAiCiAgICAgaW5rc2NhcGU6cGFnZXNoYWRvdz0iMiIKICAgICBpbmtzY2FwZTp3aW5kb3ctd2lkdGg9IjE2NzUiCiAgICAgaW5rc2NhcGU6d2luZG93LWhlaWdodD0iODc4IgogICAgIGlkPSJuYW1lZHZpZXc4MzkiCiAgICAgc2hvd2dyaWQ9ImZhbHNlIgogICAgIGlua3NjYXBlOnpvb209IjI5LjY2NjY2NyIKICAgICBpbmtzY2FwZTpjeD0iMi41ODMxNTE3IgogICAgIGlua3NjYXBlOmN5PSIxMiIKICAgICBpbmtzY2FwZTp3aW5kb3cteD0iNSIKICAgICBpbmtzY2FwZTp3aW5kb3cteT0iMjMiCiAgICAgaW5rc2NhcGU6d2luZG93LW1heGltaXplZD0iMCIKICAgICBpbmtzY2FwZTpjdXJyZW50LWxheWVyPSJzdmc4MzciIC8+CiAgPHRpdGxlCiAgICAgaWQ9InRpdGxlODMzIj5HaXRIdWIgaWNvbjwvdGl0bGU+CiAgPHBhdGgKICAgICBkPSJtIDEyLDAuMjk3IGMgLTYuNjMsMCAtMTIsNS4zNzMgLTEyLDEyIDAsNS4zMDMgMy40MzgsOS44IDguMjA1LDExLjM4NSAwLjYsMC4xMTMgMC44MiwtMC4yNTggMC44MiwtMC41NzcgMCwtMC4yODUgLTAuMDEsLTEuMDQgLTAuMDE1LC0yLjA0IEMgNS42NzIsMjEuNzg5IDQuOTY4LDE5LjQ1NSA0Ljk2OCwxOS40NTUgNC40MjIsMTguMDcgMy42MzMsMTcuNyAzLjYzMywxNy43IDIuNTQ2LDE2Ljk1NiAzLjcxNywxNi45NzEgMy43MTcsMTYuOTcxIGMgMS4yMDUsMC4wODQgMS44MzgsMS4yMzYgMS44MzgsMS4yMzYgMS4wNywxLjgzNSAyLjgwOSwxLjMwNSAzLjQ5NSwwLjk5OCBDIDkuMTU4LDE4LjQyOSA5LjQ2NywxNy45IDkuODEsMTcuNiA3LjE0NSwxNy4zIDQuMzQ0LDE2LjI2OCA0LjM0NCwxMS42NyA0LjM0NCwxMC4zNiA0LjgwOSw5LjI5IDUuNTc5LDguNDUgNS40NDQsOC4xNDcgNS4wMzksNi45MjcgNS42ODQsNS4yNzQgYyAwLDAgMS4wMDUsLTAuMzIyIDMuMywxLjIzIDAuOTYsLTAuMjY3IDEuOTgsLTAuMzk5IDMsLTAuNDA1IDEuMDIsMC4wMDYgMi4wNCwwLjEzOCAzLDAuNDA1IDIuMjgsLTEuNTUyIDMuMjg1LC0xLjIzIDMuMjg1LC0xLjIzIDAuNjQ1LDEuNjUzIDAuMjQsMi44NzMgMC4xMiwzLjE3NiAwLjc2NSwwLjg0IDEuMjMsMS45MSAxLjIzLDMuMjIgMCw0LjYxIC0yLjgwNSw1LjYyNSAtNS40NzUsNS45MiAwLjQyLDAuMzYgMC44MSwxLjA5NiAwLjgxLDIuMjIgMCwxLjYwNiAtMC4wMTUsMi44OTYgLTAuMDE1LDMuMjg2IDAsMC4zMTUgMC4yMSwwLjY5IDAuODI1LDAuNTcgQyAyMC41NjUsMjIuMDkyIDI0LDE3LjU5MiAyNCwxMi4yOTcgYyAwLC02LjYyNyAtNS4zNzMsLTEyIC0xMiwtMTIiCiAgICAgaWQ9InBhdGg4MzUiCiAgICAgc3R5bGU9ImZpbGw6IzAwMDAwMDtmaWxsLW9wYWNpdHk6MTtzdHJva2Utd2lkdGg6MS4wMDE1NztzdHJva2UtbWl0ZXJsaW1pdDo0O3N0cm9rZS1kYXNoYXJyYXk6bm9uZTtmaWxsLXJ1bGU6bm9uemVybztzdHJva2U6bm9uZTtzdHJva2Utb3BhY2l0eToxIiAvPgogIDxwYXRoCiAgICAgc3R5bGU9ImZpbGw6IzhhYjBiZjtmaWxsLW9wYWNpdHk6MTtmaWxsLXJ1bGU6bm9uemVybztzdHJva2U6bm9uZTtzdHJva2Utd2lkdGg6MC4wMzM3NjA5O3N0cm9rZS1taXRlcmxpbWl0OjQ7c3Ryb2tlLWRhc2hhcnJheTpub25lO3N0cm9rZS1vcGFjaXR5OjEiCiAgICAgZD0iTSA3Ljk5MzI2NCwyMy41ODUxMzMgQyA2LjkxODU4MDEsMjMuMjAxMjAyIDUuODAyMDc3OSwyMi42MDc4NjIgNC45MDg5OTQ0LDIxLjk0NjA2NyA0LjM0ODQwNDYsMjEuNTMwNjU3IDQuMDIyNDM1MSwyMS4yNDgwODUgMy41MDk2MjQ4LDIwLjczMyAxLjc4MTM2MTEsMTguOTk3MDcxIDAuNjUyOTY4MTUsMTYuODM4ODQzIDAuMjA4MzM4NzQsMTQuNDE4Nzc1IC0wLjA0MTg0ODk4LDEzLjA1NzAzMSAtMC4wMzYwNzIxOSwxMS41MDg2MzQgMC4yMjQ0NjgwNywxMC4wOTU1MDYgMC41MzY1MjgyMSw4LjQwMjk0MjEgMS4yMjY0MTE5LDYuNzg1NDk5NSAyLjI1ODk5MzgsNS4zMjU1MjkzIDIuODAxNDIyMSw0LjU1ODU4ODQgMy43NDUyMDY4LDMuNTYyMjExOSA0LjUwNDUsMi45NTQ4OTMxIDcuNzA2MzE1NCwwLjM5MzkyOTY2IDExLjk1MDIzNCwtMC4zNjA3OTQ0MiAxNS44MTY1NjQsMC45NDMxOTQyMyBjIDEuNjk3MzMsMC41NzI0NTQ0NyAzLjE5OTU1OCwxLjQ4NTQ5MDI3IDQuNDg5ODk5LDIuNzI4OTA0NjcgMS45MTk4MiwxLjg1MDAwMTUgMy4xNDIxOTYsNC4yMjczODY1IDMuNTU0MDIxLDYuOTEyMTcxMSAwLjA4NDAxLDAuNTQ3NjkgMC4wOTA1NSwwLjY2ODI1NCAwLjA5MTM1LDEuNjg1MzkzIDkuNGUtNCwxLjE5NTgwOSAtMC4wMjQ3NCwxLjQ4MTYzNCAtMC4yMTg1ODgsMi40MzI0MDYgLTAuNzA5NDk3LDMuNDc5OTY2IC0yLjk1NDA2Miw2LjQ2NjYzMiAtNi4xMzMyMzgsOC4xNjEwMTYgLTAuNzY2MTIyLDAuNDA4MzE1IC0xLjc3NDg3OSwwLjc5OTgzNiAtMi4wNjA3ODQsMC43OTk4MzYgLTAuMjI3OTg4LDAgLTAuNDE0NTQ1LC0wLjEwMDE3MSAtMC41MDA1NiwtMC4yNjg3NzMgLTAuMDY1NjEsLTAuMTI4NjExIC0wLjA2Nzg4LC0wLjE5NTU3NSAtMC4wNjgwNywtMi4wMTM1OTIgLTEuNjhlLTQsLTEuNDgyMTE4IC0wLjAxMDcsLTEuOTUwMTk5IC0wLjA0OTc0LC0yLjIwOTI2IC0wLjA4Nzk0LC0wLjU4MzQyNCAtMC4yOTUzNywtMS4wODA4MTMgLTAuNTkwNjE2LC0xLjQxNjIzMSAtMC4wNzcyNSwtMC4wODc3NiAtMC4xMjIxNDcsLTAuMTU5NTU5IC0wLjA5OTc4LC0wLjE1OTU1OSAwLjEwNTE4NywwIDAuNzk3MDUzLC0wLjExNDAzNyAxLjE0Mjc0OCwtMC4xODgzNTQgMC44NDUxMDQsLTAuMTgxNjc5IDEuNjk2MzQxLC0wLjUzNjcyNiAyLjI2MDIzOSwtMC45NDI3MzUgMC4zNDg4OTgsLTAuMjUxMjA5IDAuODQ3NTczLC0wLjc2NjgwMiAxLjA3NDA0NiwtMS4xMTA0ODQgMC40MzcyODcsLTAuNjYzNjAxIDAuNjk3NjY0LC0xLjQwODA5NCAwLjg1NDY5NSwtMi40NDM4MjEgMC4wNjk1MywtMC40NTg1NzggMC4wNTg0NiwtMS44Njg1MzIgLTAuMDE3NDMsLTIuMjIwNDk3IEMgMTkuMzcyNDExLDkuODkwMjg5OCAxOS4wODQ5NCw5LjI3ODA1NjIgMTguNTkxMzc2LDguNjU5MTc2MSBMIDE4LjQxMzY1NCw4LjQzNjMyOTcgMTguNDU5NjMyLDguMzAyODc3NiBDIDE4LjYzNTA5Myw3Ljc5MzU5NjIgMTguNjgzNzIsNi44NTg0MTg0IDE4LjU2NjIzLDYuMjUyODA5MSAxOC40NzUzNTIsNS43ODQzNzczIDE4LjMxNzA3Myw1LjI5OTQzMTYgMTguMjQxOTM2LDUuMjU5MjE5NSAxOC4wODk4LDUuMTc3Nzk5MiAxNy40NzU3NTksNS4yNjE4OTU5IDE2Ljk3NjQxLDUuNDMyNTQyMyAxNi40Mzg4NzIsNS42MTYyMzkxIDE1Ljc2MDg5Nyw1Ljk2Mzk2MiAxNS4xOTMxMDYsNi4zNDcxNzI1IGwgLTAuMTk5MDM0LDAuMTM0MzMxMyAtMC4zNzQsLTAuMDg3NDQ3IEMgMTMuNzE3MTUsNi4xODI5Mzg3IDEyLjk2MTY2Nyw2LjA5ODA1OTMgMTEuOTg1NDk0LDYuMDk4MDU5MyBjIC0wLjkyMzE5OSwwIC0xLjY2OTU4MywwLjA3ODM5MyAtMi40NTg1MjIxLDAuMjU4MjIwMSBDIDkuMzIzMDM5Myw2LjQwMjc2MjUgOS4xMTU5ODU3LDYuNDQ5Mzg4OSA5LjA2Njg1MzEsNi40NTk4OTMgOC45OTkyODMsNi40NzQzMzg4IDguOTI5NDg0MSw2LjQ0NjgzNzMgOC43ODAzMzYyLDYuMzQ3MDAxNiA4LjIzMDA4Niw1Ljk3ODY3OTUgNy4zOTQ1MTEyLDUuNTYyNjAzMSA2Ljg3MTM4NTcsNS4zOTY0MzUxIDYuNDk5ODA0NCw1LjI3ODQwNCA1Ljk4MjU4NTIsNS4yMDE4MjIxIDUuNzk1ODE1OSw1LjIzNzE4MTMgNS42ODI4MDcsNS4yNTg1NzYgNS42NjUxNTI4LDUuMjc3NDM2MyA1LjYwMzIzODksNS40NDI5MTYzIDUuMzMzMDE0Nyw2LjE2NTE1NTUgNS4yNDgxMzYsNy4xNTYwNDcgNS4zOTQ5Mzk0LDcuODc0NjQ5NSA1LjQzMzI0NzQsOC4wNjIxNjczIDUuNDg1NzQyNCw4LjI2NTg5NjMgNS41MTE1OTQ2LDguMzI3MzgwOCA1LjU1ODA2NjMsOC40Mzc5MDQ1IDUuNTU2NjY2NCw4LjQ0MTQ4ODQgNS4zODgwMzk4LDguNjQzNzQyNiA0Ljg5OTc3MjksOS4yMjkzNzkgNC41NzM3ODY5LDkuOTI2NzAxNyA0LjQxNDEwODMsMTAuNzI3MDk1IGMgLTAuMTMyMTA3NSwwLjY2MjE5MyAtMC4wOTg5NywxLjgwNjgzOCAwLjA3ODMyMywyLjcwNTQ4OSAwLjMzODQwNDQsMS43MTUyNzYgMS4zMDE1ODg3LDIuOTM2NjEgMi44MjY2NzUxLDMuNTg0MjczIDAuNjA4MjM0MiwwLjI1ODMgMS41Mzg3Njk4LDAuNDkzNTA3IDIuMjM0NDAwMywwLjU2NDc3NiBsIDAuMjI0Njc5MSwwLjAyMzAyIC0wLjE1OTMxNDgsMC4xNzQ5NSBDIDkuMzc1OTIwMiwxOC4wNDYzOTYgOS4xMjkzMjM5LDE4LjU5NzQwNSA5LjA1NjAyOTUsMTkuMDM3MjQ3IDkuMDI3NTAxOSwxOS4yMDg0NCA4Ljk3ODg5NzgsMTkuMjM5NzczIDguNTQ4Mjc2NSwxOS4zNjQ1NjIgNy4yOTkwMDIzLDE5LjcyNjU4NyA2LjMzMzA3ODIsMTkuMzYzODc0IDUuNjE2NzU2NCwxOC4yNjM3NTIgNS4xNjIzMjE4LDE3LjU2NTgzMyA0LjYzNzMzMDksMTcuMTQ2MzAzIDQuMDQzMDk3LDE3LjAwNjIxIDMuNjYwNzk1NSwxNi45MTYwOCAzLjI4MTg5NzcsMTYuOTYxNTkgMy4xODUxMzgzLDE3LjEwOTI2OCBjIC0wLjEwMTA4MzEsMC4xNTQyNzIgMC4wNTQ5NjQsMC4zNDg1OTQgMC41NDUxMzMyLDAuNjc4ODQxIDAuNDgyNTIzNywwLjMyNTA5NiAwLjg5MTc3MDUsMC44OTI1MiAxLjIyNzg3MiwxLjcwMjQ1NSAwLjM2MDQ1LDAuODY4NjEgMS4wNzg2NTgxLDEuNDQ4OTA1IDIuMDQwMTQwNSwxLjY0ODM4NiAwLjM4NDIzNjYsMC4wNzk3MiAxLjE4MjEyNTQsMC4wODY1NiAxLjYxODU3NTUsMC4wMTM4NyAwLjE2Njg1MzksLTAuMDI3NzkgMC4zMjIzMzE1LC0wLjA1MDc5IDAuMzQ1NTA1NiwtMC4wNTExMSAwLjAzMjgzOCwtNC41OGUtNCAwLjA0MjEzNSwwLjIzNjI0IDAuMDQyMTM1LDEuMDcyNzYyIDAsMS4wNTM2NDYgLTAuMDAxNDIsMS4wNzYwMjggLTAuMDc3MTgsMS4yMTkyOTkgLTAuMDg4MDcxLDAuMTY2NTQ1IC0wLjIzNzU1NzksMC4yNTkxMzIgLTAuNDYzNjA3OSwwLjI4NzE0NSAtMC4xMTc3MTcsMC4wMTQ1OSAtMC4yMTk1MTY0LC0wLjAwNjEgLTAuNDcwNDQ4MiwtMC4wOTU3OCB6IgogICAgIGlkPSJwYXRoODU3IiAvPgogIDxwYXRoCiAgICAgc3R5bGU9ImZpbGw6bm9uZTtmaWxsLW9wYWNpdHk6MTtmaWxsLXJ1bGU6bm9uemVybztzdHJva2U6bm9uZTtzdHJva2Utd2lkdGg6MC4wMzQwMTU3NTtzdHJva2UtbWl0ZXJsaW1pdDo0O3N0cm9rZS1kYXNoYXJyYXk6bm9uZTtzdHJva2Utb3BhY2l0eToxO2ZpbHRlcjp1cmwoI2ZpbHRlcjg0MikiCiAgICAgZD0iTSA4LjA5NDM4NzYsMjMuNjAwMjEzIEMgNy40NzIyNjQxLDIzLjM4OTgzNyA2LjQ1ODg1NCwyMi45MTE2MzUgNS44MzU5NjA3LDIyLjUzNDUxOSA0LjYxMDc3MDEsMjEuNzkyNzU3IDMuNTY4MzY3NSwyMC44Nzc3OTcgMi42NjI1OTg3LDE5Ljc0OTEyNyAxLjI0NDc2NDYsMTcuOTgyMzc3IDAuMzc5NTUzMTEsMTUuODk0MjggMC4xMDExODIxMiwxMy41Njc0MTYgMC4wNDQyMTM3NCwxMy4wOTEyMjUgMC4wNDMzMjc5NSwxMS41NjQyNDMgMC4wOTk3MzUxNCwxMS4wNzMwMzQgMC4zNzY2NzE1Miw4LjY2MTM5NTggMS4yOTA0NCw2LjQ4MzIzNjcgMi43NzIzNzAxLDQuNzAyMjQ3MyAzLjE1Mjk5OTcsNC4yNDQ4MDQ5IDQuMDk1NzEyOSwzLjMwNzc5MjUgNC40ODc2NDYxLDIuOTk3MzQzOSA2LjMwNTE0ODIsMS41NTc3MDc3IDguMjc0ODE5MSwwLjcyMTkxMzQ5IDEwLjU3MTkxNiwwLjQxNTU5NDEyIGMgMC42MjkwNjgsLTAuMDgzODg2NyAyLjI1MjQyOCwtMC4wODMwODgyIDIuODY1MTY4LDAuMDAxNDA5IDMuMzM4ODI5LDAuNDYwNDI4MDUgNi4xMTkzMzcsMi4wNzE0MDE1OCA4LjEyMTAzMyw0LjcwNTE3MjA4IDEuMTUzNjIyLDEuNTE3OTAwOSAxLjg5OTkyOSwzLjI3OTU3MzYgMi4yNjgxMzMsNS4zNTM5NzI4IDAuMDkxOCwwLjUxNzE2OSAwLjA5Mzk3LDAuNTU4ODM3IDAuMDkzNzEsMS43OTM1MTUgLTMuMDNlLTQsMS4zNzg5NjMgLTAuMDE2LDEuNTU1MzYyIC0wLjIyMzA1NywyLjUwNTgwOCAtMC43NTkzNSwzLjQ4NTU3MyAtMy4wMTk1MjYsNi40NTY2MzEgLTYuMTUwMDM2LDguMDg0Mzc2IC0wLjU0OTgyLDAuMjg1ODg2IC0xLjA0MDQyLDAuNTAxNTEyIC0xLjQ5NDA3MywwLjY1NjY2OCAtMC4yOTM2NzYsMC4xMDA0NDIgLTAuMzg1Mjg2LDAuMTE3Njk2IC0wLjU2NDM2OCwwLjEwNjI5MyAtMC4xODgzMDEsLTAuMDExOTkgLTAuMjI3ODMyLC0wLjAyNzIzIC0wLjMzMTY0OSwtMC4xMjc4NTQgLTAuMDY0ODMsLTAuMDYyODMgLTAuMTI1OTY1LC0wLjE2MDcxNiAtMC4xMzU4NjQsLTAuMjE3NTE5IC0wLjAwOTksLTAuMDU2OCAtMC4wMzE0OSwtMS4wMTMzOSAtMC4wNDc5NywtMi4xMjU3NSAtMC4wMzI2MSwtMi4yMDA0ODcgLTAuMDMzNTgsLTIuMjExNTkgLTAuMjM5ODExLC0yLjc0NjM1MiAtMC4wNTcyNiwtMC4xNDg0NzMgLTAuMTg2NDc1LC0wLjM4NDc2IC0wLjI4NzE1MywtMC41MjUwODMgLTAuMTAwNjc3LC0wLjE0MDMyMyAtMC4xODMwNDksLTAuMjU5ODM2IC0wLjE4MzA0OSwtMC4yNjU1ODUgMCwtMC4wMDU3IDAuMDk0OCwtMC4wMjEwNCAwLjIxMDY3NCwtMC4wMzM5OCAwLjM4OTAyMiwtMC4wNDM0NSAxLjE5OTUyOSwtMC4yMTg5NDMgMS41ODMxNjksLTAuMzQyNzg2IDAuNzk3NTYsLTAuMjU3NDYxIDEuNDAyNzMyLC0wLjU3OTc5MiAxLjg4MTcyNiwtMS4wMDIyNiAwLjg2MTAwNSwtMC43NTkzOTYgMS4zMzI0NDgsLTEuNjUxNDI5IDEuNTg3MTM5LC0zLjAwMzA3OSAwLjA4NjA2LC0wLjQ1NjczNCAwLjEyMzg0MiwtMS42OTgzNDkgMC4wNjgyNywtMi4yNDM3OTMgQyAxOS41MTM4MDEsMTAuMjAyNDQyIDE5LjIwMjMyNyw5LjQ0MTUyODIgMTguNjc0MDYsOC43NDE2MjEyIEwgMTguNDQwODgyLDguNDMyNjgwNSAxOC41MDgyNDgsOC4xODk1ODQ0IEMgMTguNzEyOTYxLDcuNDUwODUxNiAxOC42Nzk1NTYsNi40MzcxMjMzIDE4LjQyMzkxLDUuNjMwMTk1MSAxOC4zMDE4NjgsNS4yNDQ5NzY5IDE4LjI4MTAwNCw1LjIyNDcxOTIgMTguMDA2MzEyLDUuMjI0NzE5MiBjIC0wLjY3OTYyNSwwIC0xLjY4MjkxNywwLjM3NTA2NzEgLTIuNjMxNTg1LDAuOTgzNzgyMiBDIDE1LjA0MjkzOCw2LjQyMTM5MzkgMTQuOTcxOTEyLDYuNDU0Mzg3OCAxNC44ODU5NjIsNi40MzU1NDg1IDEzLjc4MTA4NCw2LjE5MzM3MDMgMTMuNDIyODU3LDYuMTQwOTAxNiAxMi42MTYwNDUsNi4xMDMwNzc3IDExLjUzMjMxMiw2LjA1MjI3MTUgMTAuNTIzNzY1LDYuMTI2NTgyNSA5LjYxMTI0MTUsNi4zMjQ0NzQ3IDguOTUxNTg4Nyw2LjQ2NzUyODUgOS4wMjE1Njg5LDYuNDczNzMzMSA4LjY0NzIyNjIsNi4yMzkwMDIgNy42NDA4NzczLDUuNjA3OTcwOSA2LjYyMzcyMDksNS4yMjQ3MTkyIDUuOTU1MzAzNCw1LjIyNDcxOTIgYyAtMC4yMzQ3NTMxLDAgLTAuMjU2Njc1LDAuMDA2MTkgLTAuMzA5OTUzLDAuMDg3NTAxIC0wLjAzMTUzMywwLjA0ODEyNiAtMC4wOTMxMiwwLjIxMTA1ODEgLTAuMTM2ODYsMC4zNjIwNzIgQyA1LjI2NDY4NjIsNi41MTYwMzg4IDUuMjUyNjc0LDcuNjQyMDc2IDUuNDgwNjA3LDguMjg4MTA3NSBMIDUuNTI4NDk5LDguNDIzODQ4NyA1LjI2ODE5OTUsOC43NzE3NzgyIGMgLTAuNDI5NjYsMC41NzQzMDUyIC0wLjcxMzgzODIsMS4yMDk1NDM0IC0wLjg3MTE0ODEsMS45NDczMjI4IC0wLjA5Mjc0NCwwLjQzNDk2NiAtMC4wODMwNjgsMS42OTUyMTUgMC4wMTgwNSwyLjM1MTAzOCAwLjI4MzA3MTIsMS44MzU5MjUgMS4xNDM2NTU5LDMuMDkxNTAzIDIuNjI3MjIzLDMuODMzMDczIDAuNTcwMDQ1NSwwLjI4NDk0MSAxLjU0MTY1NDgsMC41NjU5MjIgMi4yODI0MDAzLDAuNjYwMDUgMC4xNjY4NTM5LDAuMDIxMiAwLjMyMjg5MDYsMC4wNDQ0NSAwLjM0Njc0ODcsMC4wNTE2NyAwLjAyODQ4NCwwLjAwODYgLTAuMDA0MzksMC4wNzM1NSAtMC4wOTU3MjksMC4xODkxMDMgLTAuMjI3NDgzMywwLjI4Nzc4OCAtMC40NjkyNTI5LDAuODI3NDE5IC0wLjUyMzk0NTksMS4xNjk0NTEgLTAuMDI4MTksMC4xNzYyODkgLTAuMTE2NjM1LDAuMjUyMzI4IC0wLjM5MTEwODQsMC4zMzYyNDggQyA3Ljg1OTAzNDIsMTkuNTU0ODM4IDcuMjczMDc0NSwxOS41MzUwMjEgNi42ODAxOTk0LDE5LjI0Mjc1NCA2LjQ1NDc4MDQsMTkuMTMxNjMgNi4zMzQzNzAyLDE5LjA0MTY4NSA2LjEwNDAzOTYsMTguODEyMzcxIDUuOTQzODg4NSwxOC42NTI5MjcgNS43NDc0NzY1LDE4LjQyMzg3NiA1LjY2NzU2ODYsMTguMzAzMzcxIDUuMDY1NjIxNiwxNy4zOTU1OTkgNC40MDg2Njg4LDE2Ljk1NTA1NiAzLjY1NjkxNiwxNi45NTUwNTYgYyAtMC4yNjA1MTQ2LDAgLTAuMzcyODIsMC4wMjg1OSAtMC40NjE3OTE3LDAuMTE3NTYyIC0wLjE0MzM2NTcsMC4xNDMzNjYgLTAuMDAxNDEsMC4zNTM1MDkgMC40Njc0NTQ3LDAuNjkxOTg2IDAuNTIyNjY5NywwLjM3NzMyMiAwLjgxMDA2NCwwLjc1NDA3MiAxLjIwMjk0MzcsMS41NzY5NjUgMC4yNzQyNTA5LDAuNTc0NDIzIDAuNDE3ODg1OCwwLjc5NTI5MyAwLjY5MDYxOTUsMS4wNjE5ODIgMC4zNDE0NjE3LDAuMzMzODkzIDAuNjg5Mzk5LDAuNTM2MzgzIDEuMTc5OTMzNywwLjY4NjY5MSAwLjI4MjQyNTQsMC4wODY1NCAwLjMzMTc1MDEsMC4wOTA5NiAxLjAzODA4NzMsMC4wOTMgMC40MDc4NjUyLDAuMDAxMiAwLjg0MjMzNjYsLTAuMDEwODIgMC45NjU0OTIsLTAuMDI2NjcgbCAwLjIyMzkxOSwtMC4wMjg4MiAwLjAxMjAzNiwwLjUzNDQzOSBjIDAuMDA2NjIsMC4yOTM5NDIgMC4wMDQ0NSwwLjc4NzQ4MiAtMC4wMDQ4MiwxLjA5Njc1NiAtMC4wMTgyOSwwLjYxMDIyNCAtMC4wMzE5NDMsMC42NTU2MTMgLTAuMjQ1MDY3LDAuODE0NzM0IC0wLjEyNTIyMjMsMC4wOTM0OSAtMC4zOTkyNjc2LDAuMTA1MDA5IC0wLjYzMTMzNzUsMC4wMjY1MyB6IgogICAgIGlkPSJwYXRoODU5IiAvPgogIDxwYXRoCiAgICAgc3R5bGU9ImZpbGw6IzAwMDAwMDtmaWxsLW9wYWNpdHk6MDtmaWxsLXJ1bGU6bm9uemVybztzdHJva2U6bm9uZTtzdHJva2Utd2lkdGg6MC4wMzM3NjA5O3N0cm9rZS1taXRlcmxpbWl0OjQ7c3Ryb2tlLWRhc2hhcnJheTpub25lO3N0cm9rZS1vcGFjaXR5OjEiCiAgICAgZD0iTSA4LjAzMTk4MjUsMjMuNTc4NjE0IEMgNy4zNzk1MzcyLDIzLjM1MTU4MyA2LjQ5NTA1NjYsMjIuOTMwODIxIDUuODM3NzI3LDIyLjUzNDc3MiA0LjIzNDg1MzMsMjEuNTY5MDIxIDIuODU5Njc1NiwyMC4yMTY0OTUgMS44NTA4OTg5LDE4LjYxMzYxMyAxLjUyNTkyOSwxOC4wOTcyNTcgMS4wMTA5MTIxLDE3LjA1Njk5NCAwLjgwMjA1NTQxLDE2LjQ5NTA5NSAwLjQ4NzI3NDMxLDE1LjY0ODIyMyAwLjIzMzg5MjU1LDE0LjYxMzUyMyAwLjExODEzMDcsMTMuNzAyMjQ3IDAuMDQ0NzgzMjIsMTMuMTI0ODU3IDAuMDM0Mjg5NzgsMTEuNjM5MTIxIDAuMDk5NTYxMTMsMTEuMDczMDM0IDAuMzIyODQ4NDYsOS4xMzY1MDA3IDAuOTA3MjI2OTgsNy40NzE0NTMyIDEuOTMyMDE5Myw1Ljg1MTg4MDMgMi42NTA3OTEsNC43MTU5Mzk0IDMuNzQ0MzEyOCwzLjU0NDI1MjcgNC44NzUyODY1LDIuNjk4MjI3NSA2LjU0MTcyMDgsMS40NTE2NTExIDguNTQxMDc3OCwwLjY2MzQwMzc4IDEwLjcwNjc0NywwLjM5OTE3MjEgYyAwLjU2OTUyLC0wLjA2OTQ4NjYgMi4xNDIxOTksLTAuMDU5ODI0MyAyLjcxMzQ4MywwLjAxNjY3MTMgMS4yOTg3MSwwLjE3Mzg5ODY4IDIuNDM3MjE1LDAuNDk5MjM3MzIgMy41ODk4ODgsMS4wMjU4NDUgMi4zNTgyNjIsMS4wNzczOTA3IDQuMzgyNTE3LDMuMDA1MTI3OCA1LjU4MjkzNiw1LjMxNjczODYgMC41OTgxOTgsMS4xNTE5MzI5IDAuOTg0NDY2LDIuMzE2NDE0OSAxLjIzMzE5NiwzLjcxNzcyMSAwLjA5MTgsMC41MTcxNjkgMC4wOTM5NywwLjU1ODgzNyAwLjA5MzcxLDEuNzkzNTE1IC0zLjAzZS00LDEuMzc4OTYzIC0wLjAxNiwxLjU1NTM2MiAtMC4yMjMwNTcsMi41MDU4MDggLTAuMzE5MjU2LDEuNDY1NDUgLTAuOTAyNjI1LDIuODUxOTk0IC0xLjcxNDA2NSw0LjA3Mzk2NiAtMC40OTQwMDIsMC43NDM5MzMgLTAuODU5NDQyLDEuMTkwNDgxIC0xLjQ5OTkwOCwxLjgzMjgwOSAtMS4xNTgxMjMsMS4xNjE0ODcgLTIuMzYzODk4LDEuOTgxMDM5IC0zLjgzNDE4OCwyLjYwNjA1NiAtMC42MDU3OTMsMC4yNTc1MiAtMC45MjUzNTgsMC4zNDk0NjcgLTEuMTYyMTgzLDAuMzM0Mzg3IC0wLjE4NjIyOSwtMC4wMTE4NiAtMC4yMjYyMDIsLTAuMDI3MzQgLTAuMzI5NzgyLC0wLjEyNzczNSAtMC4wNjQ4MywtMC4wNjI4MyAtMC4xMjYxNjksLTAuMTYwNzE2IC0wLjEzNjMxNiwtMC4yMTc1MTkgLTAuMDEwMTUsLTAuMDU2OCAtMC4wMzE0NywtMS4wMTMzOSAtMC4wNDczOSwtMi4xMjU3NSAtMC4wMjg3OSwtMi4wMTIxMjUgLTAuMDI5MzgsLTIuMDI0MTQ4IC0wLjExNDU0MiwtMi4zNTAxNDEgLTAuMTAyNTA3LC0wLjM5MjM3NyAtMC4yMzc5MjMsLTAuNjg2NjQ2IC0wLjQ0NjEyMywtMC45Njk0NjYgLTAuMDg0NzksLTAuMTE1MTc5IC0wLjE0OTMxNywtMC4yMTI5NzkgLTAuMTQzMzk0LC0wLjIxNzMzMiAwLjAwNTksLTAuMDA0NCAwLjEzOTcwMSwtMC4wMjY1MSAwLjI5NzI4NiwtMC4wNDkyNCAxLjIzMDQxOCwtMC4xNzc0NiAyLjI4NDg1NCwtMC41NDUzMTUgMy4wMjI0MDQsLTEuMDU0NDEgMC4zMjc3NjcsLTAuMjI2MjQyIDAuODU1NTQ0LC0wLjc1MzgzMyAxLjA4MjQ2MSwtMS4wODIwODEgMC40ODIxNTYsLTAuNjk3NDYyIDAuODE2NjI2LC0xLjY4MTgxIDAuOTIyMzQ3LC0yLjcxNDQ3MSAwLjA1MDg2LC0wLjQ5Njc5MSAwLjAxNjc1LC0xLjgzOTUwMSAtMC4wNTQxMiwtMi4xMzAyNzUgQyAxOS4zNTg0MDMsOS44NDE2NTg1IDE5LjA2Njc4NSw5LjI0MTM5NjUgMTguNTg4NDYsOC42MjY4ODU3IEwgMTguNDQyMzQsOC40MzkxNjQyIDE4LjUxMDg1OSw4LjE3MTgyOTUgQyAxOC42NjA2NzEsNy41ODczMTYyIDE4LjY4MTg5LDYuNzI5MDAxNyAxOC41NjA3NzYsNi4xNTI2NjcgMTguNDg2Niw1Ljc5OTY4NyAxOC4zNTc3MDYsNS4zOTY1NjYzIDE4LjI4Njg2MSw1LjI5NTk4MjMgYyAtMC4wNTUwNSwtMC4wNzgxNTkgLTAuMDY2MjIsLTAuMDc5ODc2IC0wLjM5NzAzMSwtMC4wNjEwMDIgLTAuNDEyMjQzLDAuMDIzNTIgLTAuODM5ODA3LDAuMTM1MzgzMyAtMS4zNTA0MzUsMC4zNTMzMTI0IC0wLjM3MzQyNCwwLjE1OTM3MjggLTEuMDA5OTgyLDAuNTA3NTY4IC0xLjM2MjcxNSwwLjc0NTQwMDIgTCAxNC45ODc2NDYsNi40NjExNTEgMTQuNTY2Mjk4LDYuMzY2NTg0NiBDIDEzLjU1MTMxNCw2LjEzODc4MzggMTIuNDg4Mjg4LDYuMDQ5OTU4MiAxMS4zOTc3NTgsNi4xMDE4MjQ4IDEwLjY2NzYzOSw2LjEzNjU0OTYgMTAuMzA2MzQ2LDYuMTgwNTA4NyA5LjY5ODMxNzcsNi4zMDg1OTg2IDguOTMxNzE2Niw2LjQ3MDA5MzcgOS4wNDMwODc0LDYuNDgyMjUwMSA4LjU0NjczNCw2LjE4MjkwMSA3LjQ5MDYzMDksNS41NDU5Njc2IDYuNTQ0NTUxNiw1LjIwNDA3NDggNS45MTQxODA4LDUuMjMxNTUxOCA1LjY4NjEzMjYsNS4yNDE0OTIyIDUuNjgzNzg0MSw1LjI0MjU3NzYgNS42MjM0OTksNS4zNjU5MDc5IDUuMzQ3NzAzOSw1LjkzMDEyNiA1LjIzMjQ2MDEsNy4xOTM1NTY1IDUuMzkwNDA1MSw3LjkyMTM0ODQgNS40Mjg2MjcxLDguMDk3NDcyIDUuNDc1NDkyOCw4LjI4MjI2ODYgNS40OTQ1NTA2LDguMzMyMDA3NiA1LjUyNjA1OCw4LjQxNDIzODIgNS41MDgyMTUsOC40NTA2NTc5IDUuMjk3ODU4OCw4LjczMzQ4MSA0Ljg4NDA4OSw5LjI4OTc5MzMgNC42NDE3NzI5LDkuNzgzNDgzNCA0LjQ3MzA1ODMsMTAuNDEzOTE1IGMgLTAuMTIzNTA4NiwwLjQ2MTUxMiAtMC4xNjU5Nzg5LDAuOTM3MjgxIC0wLjE0MzA4ODIsMS42MDI5MzkgMC4wNjI0NjUsMS44MTY0ODIgMC41MDk1NjgyLDMuMDI5ODIzIDEuNDcyMjgyNywzLjk5NTQ1NCAwLjM4Mzc4MDksMC4zODQ5NDQgMC43MzkxNTM4LDAuNjM5NDQzIDEuMjQ3MTkxLDAuODkzMTcgMC41NjYxMjEyLDAuMjgyNzM3IDEuNTQwNDAxMiwwLjU2NDQwMSAyLjI3NTI4MDksMC42NTc3ODQgMC4xNjY4NTM5LDAuMDIxMiAwLjMyMjg5MDYsMC4wNDQ0NSAwLjM0Njc0ODcsMC4wNTE2NyAwLjAyODQ4NCwwLjAwODYgLTAuMDA0MzksMC4wNzM1NSAtMC4wOTU3MjksMC4xODkxMDMgLTAuMDc2NTA5LDAuMDk2NzkgLTAuMTg5MDM5NCwwLjI3NTI4MyAtMC4yNTAwNjc1LDAuMzk2NjQ4IC0wLjExNDAwMDQsMC4yMjY3MSAtMC4yODc0Njg4LDAuNzMzNjcgLTAuMjg3NDY4OCwwLjg0MDEyNSAwLDAuMTQ4MTIzIC0wLjI5NjMxLDAuMjc5NzI5IC0wLjg3ODQzMjMsMC4zOTAxNTYgLTAuNTQ4NzEyOCwwLjEwNDA4OSAtMS4wMDQxNjEsMC4wNDYxNSAtMS40Nzk1NzY0LC0wLjE4ODIxIEMgNi4zMjY3NzkyLDE5LjA2ODUyOSA1LjkxODUxNTMsMTguNjc3MDU1IDUuNTk4NDI0NywxOC4yMDU0NjYgNS4yMTczNzQ4LDE3LjY0NDA2NyA0Ljc5MzM5MTIsMTcuMjc2OTIyIDQuMjc3OTQyNCwxNy4wNjIwMDYgYyAtMC4xODQ2NTQxLC0wLjA3Njk5IC0wLjI1OTY1MjEsLTAuMDg4MzYgLTAuNTg4MDkzMSwtMC4wODkxNyAtMC4zNTI2NTAyLC04LjY2ZS00IC0wLjM4MTk1MDIsMC4wMDQyIC0wLjQ2MzQ4MywwLjA4MDc5IC0wLjA0Nzg2OSwwLjA0NDk1IC0wLjA4NzAzNSwwLjExNjk1MyAtMC4wODcwMzUsMC4xNjAwMTYgMCwwLjEwODQwMyAwLjE5NTc5OTQsMC4zMTQ1NzMgMC41MjMyNDcyLDAuNTUwOTYgMC41MTY3NzE1LDAuMzczMDYzIDAuODExMTgwNywwLjc1NjIwNyAxLjE4ODIwMDUsMS41NDYzMiAwLjI2NzAxMzIsMC41NTk1NzYgMC4zOTYyMjg1LDAuNzY1NDk5IDAuNjQzMjY1MSwxLjAyNTEzNiAwLjM1NjE5NiwwLjM3NDM2NiAwLjc2NzYwNzYsMC42MTY5OTUgMS4zMDk3MTk3LDAuNzcyNDAzIDAuMjMzNjc4MSwwLjA2Njk5IDAuMzQwMzM2NSwwLjA3NTM1IDAuOTcwMzk4OSwwLjA3NjEgMC4zODkzMjU4LDQuNThlLTQgMC44MTU3MDEzLC0wLjAxMTg3IDAuOTQ3NTAwOCwtMC4wMjczOSBsIDAuMjM5NjM1OSwtMC4wMjgyMiAwLjAxMzk5OSwwLjU2NzU1MSBjIDAuMDA3NywwLjMxMjE1MyAwLjAwNjA0LDAuODA1NDI3IC0wLjAwMzY4LDEuMDk2MTY0IC0wLjAxNTU1LDAuNDY0OTQzIC0wLjAyNjA1MSwwLjUzOTgwMyAtMC4wODcxNzgsMC42MjE1MTMgLTAuMTkxODg3NCwwLjI1NjQ5OCAtMC40NDY2NjczLDAuMzA1NjQ2IC0wLjg1MjQ1NzEsMC4xNjQ0NDMgeiIKICAgICBpZD0icGF0aDg2MSIgLz4KPC9zdmc+Cg==" /></a> <a href="https://www.linkedin.com/in/javier-ignacio-tamayo-leiva-94613267/"><img height="30" width="30" src="data:image/svg+xml;base64,PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+CjxzdmcKICAgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIgogICB4bWxuczpjYz0iaHR0cDovL2NyZWF0aXZlY29tbW9ucy5vcmcvbnMjIgogICB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiCiAgIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciCiAgIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIKICAgeG1sbnM6c29kaXBvZGk9Imh0dHA6Ly9zb2RpcG9kaS5zb3VyY2Vmb3JnZS5uZXQvRFREL3NvZGlwb2RpLTAuZHRkIgogICB4bWxuczppbmtzY2FwZT0iaHR0cDovL3d3dy5pbmtzY2FwZS5vcmcvbmFtZXNwYWNlcy9pbmtzY2FwZSIKICAgcm9sZT0iaW1nIgogICB2aWV3Qm94PSIwIDAgMjQgMjQiCiAgIHZlcnNpb249IjEuMSIKICAgaWQ9InN2ZzgzNyIKICAgc29kaXBvZGk6ZG9jbmFtZT0ibGlua2VkaW4uc3ZnIgogICBpbmtzY2FwZTp2ZXJzaW9uPSIxLjAgKDQwMzVhNGYsIDIwMjAtMDUtMDEpIj4KICA8bWV0YWRhdGEKICAgICBpZD0ibWV0YWRhdGE4NDMiPgogICAgPHJkZjpSREY+CiAgICAgIDxjYzpXb3JrCiAgICAgICAgIHJkZjphYm91dD0iIj4KICAgICAgICA8ZGM6Zm9ybWF0PmltYWdlL3N2Zyt4bWw8L2RjOmZvcm1hdD4KICAgICAgICA8ZGM6dHlwZQogICAgICAgICAgIHJkZjpyZXNvdXJjZT0iaHR0cDovL3B1cmwub3JnL2RjL2RjbWl0eXBlL1N0aWxsSW1hZ2UiIC8+CiAgICAgIDwvY2M6V29yaz4KICAgIDwvcmRmOlJERj4KICA8L21ldGFkYXRhPgogIDxkZWZzCiAgICAgaWQ9ImRlZnM4NDEiIC8+CiAgPHNvZGlwb2RpOm5hbWVkdmlldwogICAgIGlua3NjYXBlOmRvY3VtZW50LXJvdGF0aW9uPSIwIgogICAgIHBhZ2Vjb2xvcj0iI2ZmZmZmZiIKICAgICBib3JkZXJjb2xvcj0iIzY2NjY2NiIKICAgICBib3JkZXJvcGFjaXR5PSIxIgogICAgIG9iamVjdHRvbGVyYW5jZT0iMTAiCiAgICAgZ3JpZHRvbGVyYW5jZT0iMTAiCiAgICAgZ3VpZGV0b2xlcmFuY2U9IjEwIgogICAgIGlua3NjYXBlOnBhZ2VvcGFjaXR5PSIwIgogICAgIGlua3NjYXBlOnBhZ2VzaGFkb3c9IjIiCiAgICAgaW5rc2NhcGU6d2luZG93LXdpZHRoPSIxNTkzIgogICAgIGlua3NjYXBlOndpbmRvdy1oZWlnaHQ9IjgwNyIKICAgICBpZD0ibmFtZWR2aWV3ODM5IgogICAgIHNob3dncmlkPSJmYWxzZSIKICAgICBpbmtzY2FwZTp6b29tPSIyOS42NjY2NjciCiAgICAgaW5rc2NhcGU6Y3g9IjExLjA4OTg4OCIKICAgICBpbmtzY2FwZTpjeT0iMC40MzgyMDIyNSIKICAgICBpbmtzY2FwZTp3aW5kb3cteD0iMCIKICAgICBpbmtzY2FwZTp3aW5kb3cteT0iMjMiCiAgICAgaW5rc2NhcGU6d2luZG93LW1heGltaXplZD0iMCIKICAgICBpbmtzY2FwZTpjdXJyZW50LWxheWVyPSJzdmc4MzciIC8+CiAgPHRpdGxlCiAgICAgaWQ9InRpdGxlODMzIj5MaW5rZWRJbiBpY29uPC90aXRsZT4KICA8cGF0aAogICAgIGQ9Ik0yMC40NDcgMjAuNDUyaC0zLjU1NHYtNS41NjljMC0xLjMyOC0uMDI3LTMuMDM3LTEuODUyLTMuMDM3LTEuODUzIDAtMi4xMzYgMS40NDUtMi4xMzYgMi45Mzl2NS42NjdIOS4zNTFWOWgzLjQxNHYxLjU2MWguMDQ2Yy40NzctLjkgMS42MzctMS44NSAzLjM3LTEuODUgMy42MDEgMCA0LjI2NyAyLjM3IDQuMjY3IDUuNDU1djYuMjg2ek01LjMzNyA3LjQzM2MtMS4xNDQgMC0yLjA2My0uOTI2LTIuMDYzLTIuMDY1IDAtMS4xMzguOTItMi4wNjMgMi4wNjMtMi4wNjMgMS4xNCAwIDIuMDY0LjkyNSAyLjA2NCAyLjA2MyAwIDEuMTM5LS45MjUgMi4wNjUtMi4wNjQgMi4wNjV6bTEuNzgyIDEzLjAxOUgzLjU1NVY5aDMuNTY0djExLjQ1MnpNMjIuMjI1IDBIMS43NzFDLjc5MiAwIDAgLjc3NCAwIDEuNzI5djIwLjU0MkMwIDIzLjIyNy43OTIgMjQgMS43NzEgMjRoMjAuNDUxQzIzLjIgMjQgMjQgMjMuMjI3IDI0IDIyLjI3MVYxLjcyOUMyNCAuNzc0IDIzLjIgMCAyMi4yMjIgMGguMDAzeiIKICAgICBpZD0icGF0aDgzNSIKICAgICBzdHlsZT0iZmlsbDojOGFiMGJmO2ZpbGwtb3BhY2l0eToxIiAvPgo8L3N2Zz4K" /></a>
### Pontificia Universidad Católica de Valparaíso
### Junio 15, 2021

---

.pull-left[
### R & RStudio
* Lenguaje de programación R
* RStudio (IDE)

### Visualización con **ggplot2**
* **tidyverse** 
* paquete **ggplot2**
* Gráfico básico
* Mapeos estéticos
* Gráficos en capas
* Objetos geométricos "Geoms"
* Transformación estadística
* Otros Ajustes

### Consideraciones generales
* Color
]

.rigth[
####[R for Data Science (ES)](https://es.r4ds.hadley.nz/index.html)
<img src="./Image/R4DS.png" height="550" style="background:none; border:none; box-shadow:none;">
]

---
class: inverse center middle

# R & RStudio

---
### R
.pull-left[
#### ¿Por qué R?

1. _Lingua Franca_ para estadística y ciencia de datos. 
1. Amplia variedad de paquetes (~20.000 CRAN). 
1. Compatibilidad (Linux, Windows, Mac). 
1. Código libre - GNU (General Public License). 
1. Extensa y diversa -amigable- comunidad. 
1. Herramientas para la visualización de alta calidad. 
1. Herramientas para la creación de aplicaciones y páginas web entre otras. 
]

--
.pull-right[

#### ¿Cómo puedo aprender?

1. Libros (R4DS, ggplot2, Learn R Springer). 
1. Tutoriales (Datacamp, r-bloggers, etc). 
1. Cursos (Coursera, RStudio). 
1. Comunidad (Slack, Twitter, R4DS).

#### ¿Puedo aprender sí nunca he programado?

- Si, no hay peros.
]

---
### RStudio IDE 
#### IDE (_integrated development environment_) 
.center[
<img src="./Image/rstudio-console.svg" height="480" style="background:none; border:none; box-shadow:none;">
]

---
### Instalación

.left-column[
[R](https://cran.r-project.org)

- La descarga se realiza desde CRAN según sistema operartivo.

[RStudio](https://www.rstudio.com/products/rstudio/download/)

- La descarga se realiza desde RStudio (RStudio Desktop)

.footnote[Artwork by [@allison_horst](https://twitter.com/allison_horst?lang=es)]
]

.center2[
<img src="./Image/al_principio_pero_ahora.png" width="530" style="background:none; border:none; box-shadow:none;"> 
]

---
class: inverse center middle

# Visualización con ggplot2

---
## [tidyverse](https://www.tidyverse.org)

---
## La filosofía detrás de [tidyverse](https://www.tidyverse.org)
.center2[
<img src="./Image/Tidiverse_philosophy.png" width="2500" style="background:none; border:none; box-shadow:none;"> 
]
.footnote[[R for Data Science (ES)](https://es.r4ds.hadley.nz/introducción.html)]

---
## La filosofía detrás de [ggplot2](https://ggplot2.tidyverse.org/index.html)

.center2[
<img src="./Image/Tidiverse_ggplot2_philosophy.png" width="2500" style="background:none; border:none; box-shadow:none;"> 
]
.footnote[[R for Data Science (ES)](https://es.r4ds.hadley.nz/explorar-introduccion.html)]

---
## [ggplot2](https://ggplot2.tidyverse.org/index.html)

.left-column[
<section style="text-align: LEFT;">
 
Es un paquete de visualización escrito para el lenguaje R, creado por Hadley Wickham en 2005 y basado en Leland Wilkinson's "Grammar of Graphics". Un esquema general para la visualización de datos, que separa un gráfico en componentes semánticos como escalas y capas. 
</section>
]

.center2[<img src="./Image/ggplot2.png" height="520" style="background:none; border:none; box-shadow:none;"> ]

---
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt4[
Las diapositivas estan basadas en el aprendizaje práctico y el conocimiento libre. Para eso, todas las lineas de comando son funcionales y estan pensadas para ser facilmente copiadas y pegadas. El set de datos que se usará durante la sesión, ya se encuentra precargado junto al paquete **ggplot2**. Completando cada plot adicionalmente se ganará conocimiento básico en el lenguaje de programación R, **ggplot2**, y visualización de datos.

.tr[
— _Consejos_
]]

--
.bg-washed-red.b--dark-red.ba.bw2.br3.shadow-5.ph4.mt4[
Es necesario para este y próximos talleres tener o instalar R, RStudio y el paquete **tidyverse** o **ggplot2**.

.tr[
— _Advertencia_
]]

--
.bg-washed-yellow.b--gold.ba.bw2.br3.shadow-5.ph4.mt4[
This is my favorite part about analytics: Taking boring flat data and bringing it to life through visualization.

.tr[
— _John Tukey_
]]

---
## paquete-**ggplot2**

```r
# Instalar desde CRAN (The Comprehensive R Archive Network)
install.packages("tidyverse")

# Instalar la versión beta desde GitHub
install.packages("devtools")
devtools::install_github("tidyverse/tidyverse")

# Instalar solo ggplot2
install.packages("ggplot2")
```

```r
# Cargar desde la librería
library(tidyverse)
library(ggplot2) 
```
--
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt2[
Puedes cargar **ggplot2** con **tidyverse** o independientemente en tú sesión de R. Para mas información, puedes escribir `help("ggplot2")` en tú consola de R. 
.tr[
— _Consejos_
]]

---
## Los datos (ggplot2::diamonds)

Precio de mas de 50,000 diamantes cortados.

```r
head(diamonds)
```

```
## # A tibble: 6 x 10
## carat cut color clarity depth table price x y z
## <dbl> <ord> <ord> <ord> <dbl> <dbl> <int> <dbl> <dbl> <dbl>
## 1 0.23 Ideal E SI2 61.5 55 326 3.95 3.98 2.43
## 2 0.21 Premium E SI1 59.8 61 326 3.89 3.84 2.31
## 3 0.23 Good E VS1 56.9 65 327 4.05 4.07 2.31
## 4 0.29 Premium I VS2 62.4 58 334 4.2 4.23 2.63
## 5 0.31 Good J SI2 63.3 58 335 4.34 4.35 2.75
## 6 0.24 Very Good J VVS2 62.8 57 336 3.94 3.96 2.48
```

```r
dim(diamonds)
```

```
## [1] 53940    10
```

---
## Gráfico básico 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat)) + 
 geom_point()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) 
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label-out-1.png" width="648" />
]

---
## Comando básico

```r
# Opción A
ggplot(data = diamonds, mapping = aes(x= price, y= carat)) + 
       geom_point()
# Opción B
ggplot(data = diamonds) + 
       geom_point(aes(x = price, y = carat))
```

* `ggplot()` : Es la función que crea un sistema de coordenadas -de forma general- a las que se incorporán capas. El primer argumento de la función es el set de datos (`data=`). Por si sola esta función no genera una capa

* `data` : El set de datos es una colección rectangular de datos con las variables (columnas) y sus observaciones/valores (filas) a mapear (diamonds)

* `mapping`	 : Es donde se especifican el conjunto de variables y observaciones que se "mapean” o asignan a las propiedades visuales a usar en el gráfico y que ejes asignar a estos valores (x= price,y= carat). Si no son especificadas -de forma general-, se deben indicar en cada capa adicionada a el gráfico.

* `geom_point()` : Las capas del gráfico son incorporadas por las funciones o Geom. En este caso la función agrega una capa de puntos al gráfico. **ggplot2** incluye más de 30 funciones geom.

.footnote[[**ggplot2** Geoms](https://ggplot2.tidyverse.org/reference/index.html)]

---
## Objetos geométricos - **ggplot2** Geom

Una capa en ggplot2, combina datos, propiedades visuales, objetos geométricos (Geoms), funciones y/o transformaciones estadísticas (Stat), y de ajuste de la posición.

Al crear una representación gráfica, la capa a crear se definirá con el objeto Geom. Sin embargo, la capa que podrás aplicar dependerá de tus datos. Las capas, tambien te permitirán combinar distintos set de datos en una única representación gráfica. Esta es una de las caracteristicas que te permitirá crear gráficos sofisticados.

--
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[
Puedes aplicar las capas oficiales que se encuentrán cargadas en el paquete **ggplot2** o usar funciones Geom complementarias desde otros paquetes de R.  
.tr[
— _Consejos_
]]
.footnote[[ggplot2 extensions](https://exts.ggplot2.tidyverse.org/gallery/)]

---
## **ggplot2** Propiedades Visuales

.pull-left[
### Propiedades Visuales Requeridas
* X 
* Y (Dos variables) 
]

.pull-right[
### Propiedades Visuales Variables
* Color or Colour 
* Fill 
* Size 
* Shape 
* Linetype 
* Alpha (transparency) 
* Group 
* Label 
* Stroke 
* ... 
]

.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt4[
Puedes aprender más sobre estas opciones tipeando `vignette("ggplot2-specs")` en tú sesión de R.  
.tr[
— _Consejos_
]]

---
## La práctica...
.center2[<img src="./Image/ggplot2_obra_maestra.png" height="500" style="background:none; border:none; box-shadow:none;"> ]
.footnote[Artwork by [@allison_horst](https://twitter.com/allison_horst?lang=es)]

---
## Volvamos al gráfico básico

.left-code[

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_2-out-1.png" width="648" />
]

Mayor peso significa un mayor costo ¿Siempre?

---
## ¿Qué información adicional podemos usar?

<div id="htmlwidget-280ba5cb8ea7f49ec9cb" style="width:100%;height:auto;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-280ba5cb8ea7f49ec9cb">{"x":{"filter":"none","fillContainer":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"],[0.23,0.21,0.23,0.29,0.31,0.24,0.24,0.26,0.22,0.23,0.3,0.23,0.22,0.31,0.2,0.32,0.3,0.3,0.3,0.3],["Ideal","Premium","Good","Premium","Good","Very Good","Very Good","Very Good","Fair","Very Good","Good","Ideal","Premium","Ideal","Premium","Premium","Ideal","Good","Good","Very Good"],["E","E","E","I","J","J","I","H","E","H","J","J","F","J","E","E","I","J","J","J"],["SI2","SI1","VS1","VS2","SI2","VVS2","VVS1","SI1","VS2","VS1","SI1","VS1","SI1","SI2","SI2","I1","SI2","SI1","SI1","SI1"],[61.5,59.8,56.9,62.4,63.3,62.8,62.3,61.9,65.1,59.4,64,62.8,60.4,62.2,60.2,60.9,62,63.4,63.8,62.7],[55,61,65,58,58,57,57,55,61,61,55,56,61,54,62,58,54,54,56,59],[326,326,327,334,335,336,336,337,337,338,339,340,342,344,345,345,348,351,351,351],[3.95,3.89,4.05,4.2,4.34,3.94,3.95,4.07,3.87,4,4.25,3.93,3.88,4.35,3.79,4.38,4.31,4.23,4.23,4.21],[3.98,3.84,4.07,4.23,4.35,3.96,3.98,4.11,3.78,4.05,4.28,3.9,3.84,4.37,3.75,4.42,4.34,4.29,4.26,4.27],[2.43,2.31,2.31,2.63,2.75,2.48,2.47,2.53,2.49,2.39,2.73,2.46,2.33,2.71,2.27,2.68,2.68,2.7,2.71,2.66]],"container":"<table class=\"display\">\n <thead>\n <tr>\n <th> <\/th>\n <th>carat<\/th>\n <th>cut<\/th>\n <th>color<\/th>\n <th>clarity<\/th>\n <th>depth<\/th>\n <th>table<\/th>\n <th>price<\/th>\n <th>x<\/th>\n <th>y<\/th>\n <th>z<\/th>\n <\/tr>\n <\/thead>\n<\/table>","options":{"pageLength":4,"columnDefs":[{"className":"dt-right","targets":[1,5,6,7,8,9,10]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false,"lengthMenu":[4,10,25,50,100]}},"evals":[],"jsHooks":[]}</script>

---
class: inverse center middle

## Mapeos estéticos

---
### Podemos agregar una variable distintiva al color

.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

> ggplot2 asigna automáticamente un nivel único de la estética (ejemplo, un color) a cada valor único de la variable. Este proceso es conocido como escalamiento ( _scaling_ ).

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_3-out-1.png" width="648" />
]

---
### Podemos agregar también una variable fija a el color

.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat)) + 
 geom_point(color = "darkblue")
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_3b-out-1.png" width="648" />
]

---
### Podemos agregar una variable a la forma

.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color,
 shape = cut)) + 
 geom_point()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_4-out-1.png" width="648" />
]

Poco a poco se hace complejo distinguir variables, probemos otra...

---
### Podemos agregar una variable al el tamaño

.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color,
 size = cut)) + 
 geom_point()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_5-out-1.png" width="648" />
]

¿Qué podemos hacer?

---
### No saturar con información

<medium> Dependiendo del set de datos se pueden incorporar de 3 a 4 variables. Un mayor número de variables es complejo de visualizar y es recomendable usar otras aproximaciones. Aplicar el principio minimalista. </medium>

<center><figure><img src="./Image/Farnsworth_House.jpg" height="280" width="560" style="background:none; border:black; box-shadow:none;"><figcaption>Farnsworth House (1951), Illinois, USA.</figcaption></figure></center>

.bg-washed-yellow.b--gold.ba.bw2.br3.shadow-5.ph4.mt2[
Less is more!

.tr[
— _Ludwig Mies Van Der Rohe_
]]

---
class: inverse center middle

## Gráficos en capas

---
### ¿Podriamos usar otros objetos geométricos?
.pull-left[
### Una variable
* geom_bar() 
* geom_histogram() 
* geom_density() 
* geom_area() 
* geom_dotplot() 
* geom_freqpoly() 
* geom_histogram() 
* geom_qq()

### Tres variables
* geom_contour() 
* geom_tile() 
* geom_raster() 
]

.pull-right[
### Dos variables
* geom_point() 
* geom_jitter() 
* geom_col() 
* geom_line() 
* geom_smooth() 
* geom_quantile() 
* geo_boxplot() 
* ...

### Visualizando el Error
* geom_crossbar() 
* geom_errorbar() 
* geom_linerange() 
* geom_pointrange() 
]

---
### Agregar un objeto Geom o capa
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point() +
 geom_smooth()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_7-out-1.png" width="648" />
]

---
### Agregar un objeto Geom o capa
.left-code[

```r
ggplot(data = diamonds,
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point() +
 geom_smooth(color = "black")
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_7b-out-1.png" width="648" />
]

---
### Agregar un objeto Geom o capa a un grupo en particular 
.left-code[

```r
ggplot(data = filter(diamonds, cut == "Premium"),
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point() +
 geom_smooth()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_7c-out-1.png" width="648" />
]

---
### Agregar un objeto Geom o capa a un grupo en particular 
.left-code[

```r
ggplot(data = filter(diamonds, 
 cut == "Premium" & 
 clarity == "IF"),
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point() +
 geom_smooth()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_7d-out-1.png" width="648" />
]

---
### Agregar un objeto Geom o capa a un grupo en particular 
.left-code[

```r
ggplot(data = diamonds,
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point() +
 geom_smooth(data = filter(diamonds, color == "D"))
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_7e-out-1.png" width="648" />
]

---
### ¿Qué historia nos interesa contar?
.pull-left[
- ¿Hay homogeneidad entre grupos? 
- ¿Hay grupos que difieren de la tendencia general? 
- ¿Hay datos que difieren de la mayoría (outliers)? 
- ¿Hay algún cambio drástico? 
- ¿Hay alguna tendencia en el tiempo o variable de interés? 
- ¿Hay datos que se comportan contrarío a lo descrito? 
- ¿Que mensaje quiero transmitir? 
- ... 
]

.footnote[Artwork by [@allison_horst](https://twitter.com/allison_horst?lang=es)]

---
### Revisemos la información
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_point()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_8-out-1.png" width="648" />
]

---
### Revisemos el tamaño de los grupos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = color,
 color = color)) + 
 geom_bar()
```
> color : Desde D (Mejor) a J (peor) cut : Calidad del corte 
]
.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9-out-1.png" width="648" />
]
--
 ¿Qué ocurre si ocupamos `fill` y no `color`?

---
### Revisemos el tamaño de los grupos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = color,
 fill = color)) + 
 geom_bar()
```
> color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9b-out-1.png" width="648" />
]
 ¿Qué ocurre si ocupamos `fill` y no `color`?

---
class: inverse center middle

## Transformación estadística

---
### Transformación estadística

Algunos objetos Geom, intrínsicamente generan transformaciones estadísticas a los datos para poder gráficar su geometría. Algunos ejemplos corresponden a:

* Gráficos de barras `geom_bar()`, histogramas `geom_histogram()` y polígonos de frecuencia `geom_polygon()` los que almacenan los datos y luego grafican las cuentas ( _count_) por contenedores ( _bins_).

--
* Gráficos de líneas suavizadas ( _smoothers_) `geom_smooth()`el que ajusta un modelo a los datos y luego grafica las predicciones del modelo.

--
* Diagramas de caja `geom_boxplot()` el que calcula un resumen robusto de la distribución (Q1,Q2,Q3,Q4) y luego muestra su formato especial.

--
Todas estas tranformaciones son realizadas por elementos llamados _stat_ ( _**stat**istical transformation_). En el caso de las cuentas el elemento se llama `stat_count()`

---
### Revisemos el tamaño de los grupos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = color,
 fill = color)) + 
 stat_count()
```
> color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9c-out-1.png" width="648" />
]

---
### Revisemos el tamaño de los grupos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = cut,
 fill = color)) + 
 geom_bar()
```
> color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9d-out-1.png" width="648" />
]

---
### Revisemos la cantidad por grupos ajustando la posición 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
          fill=color)) +
  geom_bar(position = "dodge")
```

> color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9e-out-1.png" width="648" />
]

---
### Revisemos la cantidad por grupos ajustando la posición 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
          fill=color)) +
  geom_bar(position = "fill")
```

> color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9f-out-1.png" width="648" />
]

---
### Revisemos el tamaño de los grupos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = clarity,
 fill = color)) + 
 geom_bar()
```
> clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_9g-out-1.png" width="648" />
]

---
### Revisemos la tendencia general de los datos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_10-out-1.png" width="648" />
]

---
### Revisemos la tendencia general de los datos
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = clarity)) + 
 geom_smooth()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_10b-out-1.png" width="648" />
]

---
### Revisemos la distribución por grupos 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=color,
             y=price, 
         color=color)) +
  geom_boxplot()
```

> price : Precio del diamante en US dolares ($326–$18,823) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11-out-1.png" width="648" />
]
---
### Revisemos la distribución por grupos 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
             y=price, 
         color=cut)) +
  geom_boxplot()
```

> price : Precio del diamante en US dolares ($326–$18,823) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11b-out-1.png" width="648" />
]

---
### Revisemos la distribución por grupos combinados 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
             y=price, 
         color=color)) +
  geom_boxplot()
```

> price : Precio del diamante en US dolares ($326–$18,823) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11c-out-1.png" width="648" />
]

---
### Revisemos la distribución por grupos combinados 
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
             y=price, 
          fill=color)) + 
  geom_boxplot(outlier.colour = NA) # Elimina los outliers
```

> price : Precio del diamante en US dolares ($326–$18,823) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11d-out-1.png" width="648" />
]

---
### Revisemos la distribución por grupos
.left-code[

```r
ggplot(data = diamonds,
 mapping = aes(x = cut, 
 y = carat)) + 
 stat_summary(fun.min = min,
 fun.max = max,
 fun = median)
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11e-out-1.png" width="648" />
]

---
### Revisemos la distribución por grupos
.left-code[

```r
ggplot(data = diamonds,
 mapping = aes(x = cut, 
 y = carat,
 color = color)) + 
 stat_summary(fun.min = min,
 fun.max = max,
 fun = median,
 position = position_dodge(width = 0.7)) 
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_11g-out-1.png" width="648" />
]

---
class: inverse center middle

## Otros Ajustes
### Estrategias para visualizar datos agrupados

---
### Revisemos la tendencia general por grupos 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 facet_wrap(vars(cut))
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_12-out-1.png" width="648" />
]

---
### Revisemos la tendencia general por grupos 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 facet_grid(clarity~cut)
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_12b-out-1.png" width="648" />
]

¿Qué determina el precio?

---
### Revisemos la tendencia general por grupos 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 facet_grid(cut~clarity)
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_12c-out-1.png" width="648" />
]

¿Qué determina el precio?

---
### Revisemos la tendencia general por grupos 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 facet_grid(.~cut)
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_12d-out-1.png" width="648" />
]

¿Qué determina el precio?

---
### Revisemos la tendencia general por grupos 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 facet_grid(cut~.)
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor) cut : Calidad del corte clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_12e-out-1.png" width="648" />
]

¿Qué determina el precio?

---
class: inverse center middle

## Otros Ajustes
### Estrategias para ordenar datos

---
### Ordenar columnas por cuentas ascendentes
.left-code[

```r
ggplot(data = diamonds %>% group_by(color) %>% slice_max(price, n=1),  
       mapping = aes(x = price,
                     y = color,
                 color = color)) + 
  geom_point(size = 4)
```

> `group_by` {dplyr} permite agrupar por una o más variables un set de datos. En el ejemplo color. 
> `slice_max` {dplyr} permite extraer n valores máximos. En el ejemplo extraerá el valor máximo de price según cada grupo color.

.footnote[[group_by](https://dplyr.tidyverse.org/reference/group_by.html), [slice_max](https://dplyr.tidyverse.org/reference/slice.html) {dplyr}]
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13-out-1.png" width="648" />
]

---
### Ordenar columnas por cuentas ascendentes
.left-code[

```r
ggplot(data = diamonds %>% group_by(color) %>% slice_max(price, n=1),  
       mapping = aes(x = price,
                     y = fct_reorder(color, price),
                 color = fct_reorder(color, price, .desc = TRUE))) + 
  geom_point(size = 4)
```

.footnote[[group_by](https://dplyr.tidyverse.org/reference/group_by.html), [slice_max](https://dplyr.tidyverse.org/reference/slice.html) {dplyr}]
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13b-out-1.png" width="648" />
]

---
### Ordenar columnas por cuentas ascendentes (Problema)
.left-code[

```r
ggplot(data = diamonds %>% group_by(clarity) %>% slice_max(price, n=1),  
       mapping = aes(x = price,
                     y = fct_reorder(clarity, price),
                 color = clarity)) + 
  geom_point(size = 4)
```

.footnote[[group_by](https://dplyr.tidyverse.org/reference/group_by.html), [slice_max](https://dplyr.tidyverse.org/reference/slice.html) {dplyr}]
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13c-out-1.png" width="648" />
> La leyenda esta desordenada

]

---
### Ordenar variables por valor máximo

```r
ggplot(data = diamonds, 
       mapping = aes(x = price, 
                     y = carat,
                 color = clarity)) + 
       geom_smooth()

# Variables ordenadas por su cordenada valor de y en x máximo
ggplot(data = diamonds, 
       mapping = aes(x = price, 
                     y = carat,
                 color = forcats::fct_reorder2(clarity, price, carat))) + 
       geom_smooth() + labs(color="clarity")
```

.center[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13d-out-1.png" width="324" /><img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13d-out-2.png" width="324" />
]

---
### Ordenar columnas por cuentas ascendentes
.left-code[

```r
ggplot(data = diamonds %>% 
 mutate(color = color %>% fct_infreq() %>% fct_rev()), 
 mapping = aes(x = color,
 fill = color)) + 
 geom_bar()
```
> color : Desde D (Mejor) a J (peor)

> `mutate` {dplyr} permite modificar o crear nuevas columnas dentro de un set de datos.

.footnote[[mutate](https://dplyr.tidyverse.org/reference/mutate.html) {dplyr}]
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13e-out-1.png" width="648" />
]

---
### Ordenar variables manualmente
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = forcats::fct_relevel(clarity, "I1", "VS2", "SI2", "SI1", "VS1", "VVS2", "VVS1", "IF"))) + 
 geom_smooth() +
 labs(color = "clarity")
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) clarity : Claridad I1 (peor), SI2, SI1, VS2, VS1, VVS2, VVS1, IF (Mejor)

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_13f-out-1.png" width="648" />
]

---
class: inverse center middle

## Otros Ajustes
### Modificar la estética del gráfico para elementos que no son datos

---
### Temas incluidos en ggplot2
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_14-1.png" width="1152" />

.footnote[[Temas](https://ggplot2.tidyverse.org/reference/ggtheme.html) {ggplot2}]

---
### Temas en ggplot2

Un tema en **ggplot2** corresponde a un conjunto de parámetros estéticos que son accesorios a los datos representados en el gráfico. Estos parámetros corresponden a el texto de los ejes, líneas, color de fondo entre muchos otros parámetros, que con práctica se harán muy fáciles de manipular. Para seleccionar un tema en ggplot debes agregarlo como si fuera una capa adicional.

```r
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_smooth() + 
       theme_gray() # Tema por defecto en ggplot2. El resultado de este comando es 
                    # el mismo que al no llamar theme_gray()

ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_smooth() + 
       theme_classic() # Tema clásico minimalista

## Modificar un tema manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_smooth() + 
       theme(axis.text = element_text(size = 8)) # Modificar solo el tamaño del texto en los ejes 
                                                 # con theme_gray() por defecto. Tambien podrías  
                                                 # colocarlo posterior a theme_classic(), para  
                                                 # modificar el elementos sobre ese tema.
```

.footnote[[Modificar elementos de un tema manualmente](https://ggplot2.tidyverse.org/reference/theme.html) {ggplot2}]

---
### Leyendas en ggplot2

Adicionalmente en **ggplot2** podemos modificar los títulos de los ejes (x,y), título principal, o subtítulos fácilmente con la función `labs()`.

.left-code[

```r
# Para seleccionar un tema en ggplot 
# debes agregarlo como si fuera una 
# capa adicional
ggplot(data = diamonds, 
    mapping = aes(x = price, 
                  y = carat, 
              color = color)) + 
       geom_smooth() +
       theme_classic() + # Tema clásico minimalista
       labs(title = "Diamantes",
         subtitle = "Datos de sobre 50.000 diamantes cortados",
                x = "Precio (USD)",
                y = "Peso del Diamante",
           colour = "Color")
```

.footnote[[Modificar leyendas](https://ggplot2.tidyverse.org/reference/labs.html) {ggplot2}]
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_14b-out-1.png" width="648" />
]

---
class: inverse center middle

## Otros Ajustes
### Modificar Escalas

---
### Escala Logarítmica
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 scale_y_log10() +
 scale_x_log10()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

Escala no lineal apropiada cuando los datos muestran una gran dispersión. 
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_15-out-1.png" width="648" />
]

---
### Escala Cuadratíca
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 scale_y_sqrt() +
 scale_x_sqrt()
```
> price : Precio del diamante en US dolares ($326–$18,823) carat : Peso del diamante (0.2–5.01) color : Desde D (Mejor) a J (peor)

Apropiada para datos expresados de forma cuadrática, por ejemplo m2, km2. 
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_15b-out-1.png" width="648" />
]

---
### Escala Invertida 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) + 
 geom_smooth() +
 scale_y_reverse() +
 scale_x_reverse()
```
> color : Desde D (Mejor) a J (peor) cut : Calidad del corte 
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_15c-out-1.png" width="648" />
]

---
## paquete-**scales**

```r
# Instalar desde CRAN (The Comprehensive R Archive Network)
install.packages("scales")
```

```r
# Cargar desde la librería
library(scales)
```

.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt2[
Para mas información, puedes escribir `help("scales")` en tú consola de R.  
.tr[
— _Consejos_
]]

---
### Modificar escalas 
.left-code[

```r
ggplot(data = diamonds, 
 mapping = aes(x = price, 
 y = carat,
 color = color)) +
 geom_smooth() +
 scale_x_continuous(labels = scales::dollar)
```
> color : Desde D (Mejor) a J (peor) cut : Calidad del corte 
]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_15d-out-1.png" width="648" />
]

---
### Modificar escalas
.left-code[

```r
  ggplot(data = diamonds,
         aes(x=cut,
          fill=color)) +
  geom_bar(position = "fill") +
  scale_y_continuous(labels = scales::percent)
```

> color : Desde D (Mejor) a J (peor) cut : Calidad del corte

]

.right-plot[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_15e-out-1.png" width="648" />
]

---
class: inverse center middle

## Otros Ajustes
### Guardar un gráfico

---
### Guardar un gráfico creado en **ggplot2**

```r
# Opción 1
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + geom_point()

## Guardarlo 
ggsave("nombre.pdf")

## Guardarlo con especificaciones
ggsave("nombre.pdf", width = 20, height = 20, units = "cm")
ggsave("nombre.png", width = 20, height = 20, units = "cm")
ggsave("nombre.tiff", width = 20, height = 20, units = "cm")

# Opción 2
pdf("nombre.pdf")
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + geom_point()
dev.off()

png("nombre.png")
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + geom_point()
dev.off()
```
>
Dispositivos: "eps", "ps", "tex", "pdf", "jpeg", "tiff", "png", "bmp", "svg" 
units (unidades): "in", "cm", "mm" 
dpi (resolución del gráfico): "retina" (320), "print" (300), or "screen" (72)

---
class: inverse center middle

# Consideraciones generales
## Color

---
## Escalas de color

.pull-left[
.center[
<img src="./Image/Color_Scale_1.png" height="250" style="background:none; border:none; box-shadow:none;">
<img src="./Image/Color_Scale_2.png" height="150" style="background:none; border:none; box-shadow:none;">
]
]

.pull-right[
Cada escala de color tiene una función asociada con su tipo de variable. 
<img src="./Image/Color_Scale.png" height="250" style="background:none; border:none; box-shadow:none;">
]

.footnote[
[Spectrum Adobe](https://spectrum.adobe.com/page/color-for-data-visualization/) 
[Which color scale to use when visualizing data - Lisa Charlotte Rost](https://blog.datawrapper.de/which-color-scale-to-use-in-data-vis/)]

---
## Escala de color según variable 
<div id="htmlwidget-0f2652714c9cdb8770d1" style="width:1080px;height:432px;" class="grViz html-widget"></div>
<script type="application/json" data-for="htmlwidget-0f2652714c9cdb8770d1">{"x":{"diagram":"\ndigraph color {\n\n # a \"graph\" statement\n graph [overlap = true, \n fontsize = 18\n compound = true,\n layout = dot,\n rankdir = LR]\n\n # several \"node\" statements\n node [shape = plaintext,\n fontsize = 18,\n fontcolor = \"black\",\n color = \"#D7D7D9\"]\n # Variables\n a [label = \"Variables\"]\n \n node [shape = plaintext,\n fontsize = 18,\n fontcolor = \"#136585\",\n color = \"#73455E\"]\n b [label = \"Cualitativas\"]\n \n node [shape = plaintext,\n fontsize = 18,\n fontcolor = \"#73455E\",\n color = \"#136585\"] \n c [label = \"Cuantitativas\"]\n \n node [shape = plaintext,\n fontsize = 18,\n fontcolor = \"#136585\",\n color = \"#73455E\"] \n # Categóricas\n d [label = \"Categóricas\"]\n e [label = \"Dicotómicas\"]\n f [label = \"Politómicas\"]\n g [label = \"Nominales\"]\n h [label = \"Ordinales\"]\n \n node [shape = plaintext,\n fontsize = 18,\n fontcolor = \"#73455E\",\n color = \"#136585\"] \n # Númericas \n i [label = \"Numéricas\"]\n j [label = \"Continuas\"]\n k [label = \"Discretas\"]\n \n node [shape = plaintext,\n fixedsize = true,\n width = 2.5,\n fontcolor = \"#136585\",\n color = \"#73455E\"]\n e2 [label = \"2 Valores \nPosibles\"]\n e3 [label = \"Ej. Si-No, \nPositivo-Negativo\"]\n e4 [label = \"Paletas Divergentes\"]\n\n node [shape = plaintext,\n fixedsize = true,\n width = 2.5,\n fontcolor = \"#136585\",\n color = \"#73455E\"] \n g2 [label = \"No Ordenable\"]\n g3 [label = \"Ej. Jorge, Tomás,...\"]\n g4 [label = \"Paletas Categóricas\"]\n\n node [shape = plaintext,\n fixedsize = true,\n width = 2.5,\n fontcolor = \"#136585\",\n color = \"#73455E\"] \n h2 [label = \"Ordenable\"]\n h3 [label = \"Ej. Primero, \nSegundo,...\"]\n h4 [label = \"Paletas Sequenciales\"]\n\n node [shape = plaintext,\n fixedsize = true,\n width = 2.8,\n fontcolor = \"#73455E\",\n color = \"#136585\"] \n j2 [label = \"Ordenable\"]\n j3 [label = \"Ej. Peso \n(2,3 g, 2,4 g,...)\"]\n j4 [label = \"Paletas Sequenciales\"]\n\n node [shape = plaintext,\n fixedsize = true,\n width = 2.5,\n fontcolor = \"#73455E\",\n color = \"#136585\"] \n k2 [label = \"Ordenable\"]\n k3 [label = \"Ej. Hijos \n(1, 2, 3,...)\"] \n k4 [label = \"Paletas Sequenciales\"]\n \n edge [color = \"#D7D7D9\", \n arrowhead = none, \n arrowtail = none] \n \n # several \"edge\" statements\n a->b->d\n d->e->e2->e3->e4\n d->f\n f->g->g2->g3->g4\n f->h->h2->h3->h4\n\n a->c->i\n i->j->j2->j3->j4\n i->k->k2->k3->k4\n \n}\n","config":{"engine":"dot","options":null}},"evals":[],"jsHooks":[]}</script>

---
### Paletas de Color {RColorBrewer}

.pull-left[
**RColorBrewer** posee tres tipos de paletas de color:

- **Paletas Sequenciales**: Adecuadas para datos ordenados que incrementan su magnitud. 
- **Paletas Categóricas**: No implican magnitudes diferentes de los niveles del factor, y son solo usados para crear un diferencia visual entre los niveles del factor. 
- **Paletas Divergentes**: Adecuadas para datos dicotómicos, poniendo igual enfasís en los rangos bajos-medios (neutrales) y máximos a ambos extremos de los rangos.

.footnote[[{RColorBrewer}](https://rdrr.io/cran/RColorBrewer/man/ColorBrewer.html)]
]

.pull-right[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17-1.png" width="648" />
]
---
### Paletas de Color {RColorBrewer} 
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17b-1.png" width="1152" style="display: block; margin: auto;" />

---
### Paletas de Color {viridis}

.pull-left[
**viridis** posee paletas de color diseñadas para mejorar la interpretación de personas con distintas formas de daltonismo y/o deficiencia de la visión del color:

- **Paletas Sequenciales**: Adecuadas para datos ordenados que incrementan su magnitud. 
 - Coloridas: Ocupan una amplia variedad de colores. 
 - Uniformes: Colores similares son asociados con valores similares. 
 - Robustas: Colores que permiten la interpretación de personas con formas comunes de daltonismo y/o deficiencia de la visión del color.

.footnote[[{viridis}](https://cran.r-project.org/web/packages/viridis/vignettes/intro-to-viridis.html)]
]

.pull-right[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17c-1.png" width="648" />
]

---
### Paletas de Color {viridis} 
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17d-1.png" width="1152" style="display: block; margin: auto;" />

---
## paquetes-**RColorBrewer** & **viridis**

```r
# Instalar desde CRAN (The Comprehensive R Archive Network)
install.packages("RColorBrewer")
install.packages("viridis")
```

```r
# Cargar desde la librería
library(RColorBrewer)
library(viridis)
```

.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt2[
Para mas información, puedes escribir `help("RColorBrewer")` o `help("viridis")` en tú consola de R.  
.tr[
— _Consejos_
]]

---
### ¿Cómo implementar paletas categóricas en mi gráfico?

Dependiendo del mapeo estético, se debe utilizar `scale_color_*()` o `scale_fill_*()`.

```r
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_point() +
       scale_color_brewer(palette = "YlGnBu") 
     # scale_fill_brewer(palette = "YlGnBu")

ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_point() + 
       scale_color_viridis(option = "magma", discrete = TRUE) 
     # scale_fill_viridis(option = "magma", discrete = TRUE)

## Agregar una escala de color manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = color)) + 
       geom_point() +
       scale_color_manual(values = c("#E69F00","#56B4E9","#009E73","#F0E442",
                                     "#0072B2","#D55E00","#CC79A7","#000000")) 
```

---
### ¿Cómo implementar paletas categóricas en mi gráfico?

---
### ¿Cómo implementar paletas sequenciales y/o divergentes en mi gráfico?

Dependiendo del mapeo estético, se debe utilizar `scale_color_*()` o `scale_fill_*()`.

```r
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() +
       scale_colour_distiller(palette = "YlGnBu")

ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() + 
       scale_color_viridis(option = "magma", discrete = FALSE)

## Agregar una paleta sequencial manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() +
       scale_color_gradient(low ="blue", high ="white")

## Agregar una paleta sequencial clasificada manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() +
       scale_colour_steps(low ="blue", high ="white")

## Agregar una paleta divergente manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() +
       scale_color_gradient2(low ="red", mid = "white", high ="blue")

## Agregar una paleta divergente clasificada manualmente
ggplot(data = diamonds, mapping = aes(x = price, y = carat, color = depth)) + geom_point() +
       scale_colour_steps2(low ="red", mid = "white", high ="blue")
```

---
### ¿Cómo implementar paletas sequenciales y/o divergentes en mi gráfico?

---
### Errores comunes del uso del color

.pull-left[
1. **Uso ineficiente del color para asignar niveles**. 
1. Asignar colores diferenciales a la misma variable. 
1. Uso de paletas de color no monotónicas. 
1. Uso de paletas de color no pensadas para deficiencías en la percepción de color. 
>Como recomendación núnca utilizar más de 8 colores (idealmente hasta 5) para mostrar categorías distintas.
]

.pull-right[
<img src="./Image/dataviz_pitfalls_color_1.png" height="450" style="background:none; border:none; box-shadow:none;">
]

.footnote[[Fundamentals of Data Visualization - Claus Wilke - (Chapter 19) Common pitfalls of color use](https://clauswilke.com/dataviz/color-pitfalls.html)]

---
### Errores comunes del uso del color

.pull-left[
1. Uso ineficiente del color para asignar niveles. 
1. **Asignar colores diferenciales a la misma variable**. 
1. Uso de paletas de color no monotónicas. 
1. Uso de paletas de color no pensadas para deficiencías en la percepción de color. 
]

.pull-right[
<img src="./Image/dataviz_pitfalls_color_2.png" height="450" style="background:none; border:none; box-shadow:none;">
]

.footnote[[Fundamentals of Data Visualization - Claus Wilke - (Chapter 19) Common pitfalls of color use ](https://clauswilke.com/dataviz/color-pitfalls.html)]

---
### Errores comunes del uso del color

.pull-left[
1. Uso ineficiente del color para asignar niveles. 
1. Asignar colores diferenciales a la misma variable. 
1. **Uso de paletas de color no monotónicas**. 
1. Uso de paletas de color no pensadas para deficiencías en la percepción de color. 
]

.pull-right[
<img src="./Image/dataviz_pitfalls_color_3.png" height="300" style="background:none; border:none; box-shadow:none;">
]

.footnote[[Fundamentals of Data Visualization - Claus Wilke - (Chapter 19) Common pitfalls of color use ](https://clauswilke.com/dataviz/color-pitfalls.html)]

---
### Errores comunes del uso del color

.pull-left[
1. Uso ineficiente del color para asignar niveles. 
1. Asignar colores diferenciales a la misma variable. 
1. Uso de paletas de color no monotónicas. 
1. **Uso de paletas de color no pensadas para deficiencías en la percepción de color**. 
]

.pull-right[
.center[
<img src="./Image/dataviz_pitfalls_color_4.png" height="100" style="background:none; border:none; box-shadow:none;">
<img src="./Image/dataviz_pitfalls_color_5.png" height="300" style="background:none; border:none; box-shadow:none;">
]
]

.footnote[[Fundamentals of Data Visualization - Claus Wilke - (Chapter 19) Common pitfalls of color use ](https://clauswilke.com/dataviz/color-pitfalls.html)]

---
### Sugerencias frente a errores comunes del uso del color

.pull-left[
Evitar las paletas tipo "Rainbow". Utilizar paletas con gradientes monotónicos.

- **Paletas Sequenciales**: Adecuadas para datos ordenados que incrementan su magnitud. 
 - **viridis** 
 - **RColorBrewer** (Paletas *seq*). 
 
- **Paletas Divergentes**: Adecuadas para datos dicotómicos
 - **RColorBrewer** (Paletas *div*).

]

.pull-right[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17i-1.png" width="648" />
]

---
### Sugerencias frente a errores comunes del uso del color

.pull-left[
**Okabe and Ito (2008)** Paleta de color para escalas discretas diseñada para mejorar la interpretación de personas con daltonismo:

| Color          | Código Hex |
|----------------|------------|
| orange         | #E69F00    |
| sky blue       | #56B4E9    |
| bluish green   | #009E73    |
| yellow         | #F0E442    |
| blue           | #0072B2    |
| vermilion      | #D55E00    |
| reddish purple | #CC79A7    |
| black          | #000000    |

.footnote[[Fundamentals of Data Visualization - Claus Wilke - (Chapter 19) Common pitfalls of color use ](https://clauswilke.com/dataviz/color-pitfalls.html) 
[Okabe and Ito (2008)](https://jfly.uni-koeln.de/color/)]
]

.pull-right[
.center[
<img src="data:image/png;base64,#Sesion_001_files/figure-html/plot-label_17j-1.png" width="324" />
]
]

---
.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt4[
1. Intentar siempre ser consistente en el uso de color (no cambiar el color de las categorías entre un gráfico y otro). 
1. Evitar el uso de todo el espectro de color. Utilizar matices del mismo color es una buena estrategía.

.tr[
— _Consejos_
]]

.center[
<img src="./Image/dataviz_pitfalls_color_6.png" height="300" style="background:none; border:none; box-shadow:none;">
]

.footnote[[Quantitative vs qualitative color scales - Lisa Charlotte Rost](https://blog.datawrapper.de/quantitative-vs-qualitative-color-scales/)]

---
.bg-washed-red.b--dark-red.ba.bw2.br3.shadow-5.ph4.mt4[
No existe una combinación de color que sea efectiva en el 100% de los casos, comprobar las características de tú paleta de color es siempre necesario. El color del fondo, el tamaño del objeto coloreado, y/o el número de datos pueden influir en la percepción diferencial de los distintos niveles. 
.tr[
— _Advertencia_
]]

.bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt4[
.center[
En el siguiente link pueden revisar si su paleta de color es adecuada (daltonismo y contraste). 
[Viz Palette - Susie Lu & Elijah Meeks](https://projects.susielu.com/viz-palette) 
]

.tr[
— _Consejos_
]]

---
### ¿Donde consultar otras paletas de color?

.center[
Buscar paletas de color 
[EmilHvitfeldt/r-color-palettes](https://github.com/EmilHvitfeldt/r-color-palettes) 
[Abobe Color](https://color.adobe.com/create/color-wheel) 
[Color Scheme Designer](https://colorschemedesigner.com/csd-3.5/) 
[i want hue](https://medialab.github.io/iwanthue/) 
]

---
class: center, middle

# Muchas Gracias!!

Presentación creada en R con los paquetes:

[xaringan](https://github.com/yihui/xaringan) 
[xaringanthemer](https://github.com/gadenbuie/xaringanthemer) 
[R Markdown](https://rmarkdown.rstudio.com).