jrosell’s gists

jrosell / coronavirus-china-ue-us.R

Last active March 30, 2020 22:48

	cran_packages <- c("reshape2","ggplot2","gridExtra","dplyr")
	if (length(setdiff(cran_packages, rownames(installed.packages()))) > 0) {
	install.packages(setdiff(cran_packages, rownames(installed.packages())), dependencies=TRUE, repos='http://cran.rstudio.com/')
	}
	library(reshape2)
	library(ggplot2)
	library(gridExtra)
	library(dplyr)

	fecha_inicio_1 <- "2020-01-24"

jrosell / tasks.json

Last active August 28, 2020 18:13

Visual Studio Code startup task for cache-clean.js on Magento 2. Please, Ctrl+shift+P to select Tasks: Manage Automatic Tasks in Folder and choose "Allow Automatic Tasks in folder

	{
	"version": "2.0.0",
	"tasks": [
	{
	"label": "cache-clean.js",
	"type": "shell",
	"command": "~/.config/composer/vendor/bin/cache-clean.js --watch",
	"presentation": {
	"reveal": "always",
	"panel": "dedicated"

jrosell / google-apps-script-contact-form.js

Created April 10, 2020 14:40

	var SHEET_NAME = "Sheet1"; // Enter sheet name where data is to be written
	var inputFields = ["nombre", "email", "comentarios"];
	var SCRIPT_PROP = PropertiesService.getScriptProperties();
	function doRequest(e) {
	var lock = LockService.getPublicLock();
	lock.waitLock(30000); // wait 30 seconds before conceding defeat.
	try {
	var doc = SpreadsheetApp.openById(SCRIPT_PROP.getProperty("key"));
	var sheet = doc.getSheetByName(SHEET_NAME);
	var lastColumn = sheet.getLastColumn();

jrosell / contact-form.html

Created April 10, 2020 15:24


	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="UTF-8">
	<title>Formulario de contacto</title>
	<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
	<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery-serialize-object/2.5.0/jquery.serialize-object.min.js"></script>
	</head>
	<body>

jrosell / google-organic-referrer-event.js

Last active June 1, 2020 09:48

Send Google Organic Referrer Event Once Per Session

	<script>
	(function() {
	var sendGoogleOrganicReferrerOncePerSession = function() {
	ga('send', 'event', 'referrer', 'google / organic', document.referrer);
	};

	var getCookie = function(name) {
	var value = "; " + document.cookie;
	var parts = value.split("; " + name + "=");
	if (parts.length >= 2) return parts.pop().split(";").shift();

jrosell / tidyverse.R

Last active June 1, 2022 09:00

Usar el paquete tidyverse para visualizar coches de 1993 en USA (Price: Promedio de precio mínimo y máximo USD 1.000. MPG.highway: Millas por galón en autopista. Horsepower: Caballos de potencia imperiales máximos)

	if(!require(tidyverse)) install.packages("tidyverse")
	tidyverse_update()
	library(tidyverse)
	library(MASS)
	tidyverse_conflicts()
	ggplot(Cars93, aes(MPG.highway, Price, size = Horsepower)) + geom_point()

jrosell / lanzar.R

Last active June 1, 2022 07:36

Una función para simular el lanzamiento de 2 dados de distintos lados y practicar la ejecución de código con comandos interactivos, "Run" y "Source" en RStudio

	lanzar <- function(dado = 1:6) { # Parametro opcional siendo 1,2,3,4,5,6 por defecto
	jugada <- sample(dado, size = 2, replace = TRUE) # Como si volvieran a estar disponibles 6 puertas en la segunda tirada
	sum(jugada) # La función devuelve lo que devuelve la última instrucción, la suma de las 2 tiradas
	}
	print(lanzar()) # Muestra el resultado de la llamada por defecto incluso ejecutando con "Source" en RStudio
	lanzar(dado = 1:12) # Usando una párametro concreto de entrada
	lanzar(1:4) # Al no indicar el nombre del parámetro estamos asignando valores para el primer párametro
	lanzar(1:8) # Lanzamos un dado de 8 lados

jrosell / ggplot2.R

Last active June 1, 2022 08:59

Trabajar con la gramática de visualización de datos de ggplot2 y realizar la visualización de gráficos de dispersión con patrones con subdivisiones y de gráficos de barras con transformaciones y ajustes de posición y coordenadas.

	# Instalación y carga de paquetes
	if(!require(tidyverse)) install.packages("tidyverse")
	if(!require(patchwork)) install.packages("patchwork")
	tidyverse_update()
	library(tidyverse) # Carga ggplot2
	library(patchwork) # Para distribución de gráficos
	library(MASS) # Carga el conjunto de datos Cars93
	tidyverse_conflicts()

	# Entender los datos

jrosell / dyplr.R

Last active June 1, 2022 09:19

Usar verbos encadenados con dplyr para transformar datos: filter, arrange, select, mutate, group_by, summarise

	if(!require(tidyverse)) install.packages("tidyverse")
	if(!require(patchwork)) install.packages("patchwork")
	if(!require(nycflights13)) install.packages('nycflights13')
	library(patchwork)
	library(tidyverse)

	# Tibbles
	library(nycflights13)
	flights # Cargamos los datos de 336,776 vuelos que partieron de Nueva York y vemos tipos de datos
	?flights # Descripción del conjunto de datos

jrosell / explorar.R

Created July 1, 2020 15:18

	if(!require(tidyverse)) install.packages("tidyverse")
	if(!require(patchwork)) install.packages("patchwork")
	if(!require(nycflights13)) install.packages('nycflights13')
	if(!require(tidymodels)) install.packages("tidymodels")
	if(!require(modelr)) install.packages("modelr")
	library(tidymodels)
	library(modelr)
	library(tidymodels)
	library(patchwork)
	library(tidyverse)

Jordi Rosell jrosell