Skip to content

Instantly share code, notes, and snippets.

View avallecam's full-sized avatar
🎯
Focusing

Andree Valle Campos avallecam

🎯
Focusing
43 followers · 83 following
View GitHub Profile
@avallecam
avallecam / set_varlabel_df.R
Last active September 21, 2018 15:55
How to set variable labels from labels stored in a dataframe?
# from dataframes to variable labels?
library(tidyverse)
library(haven)
library(labelled)
set.seed(22)
new_db <- data_frame(age = floor(rnorm(6,25,10)),
sex = gl(2,1,6, labels = c("f","m")))
var.labels <- data_frame(variable = c("age","sex"),
label= c("Age in Years","Sex of the participant"))
@avallecam
avallecam / set_varlabel-chr_fct.R
Last active July 6, 2020 19:21
How to export R dataframes with character vectors to Stata?
if(!require("tidyverse")) install.packages("tidyverse")
if(!require("haven")) install.packages("haven")
if(!require("labelled")) install.packages("labelled")
library(tidyverse)
library(haven)
library(labelled)
#crear data frame
set.seed(22)
@avallecam
avallecam / coord_fixed.R
Last active May 4, 2021 22:28
set 1:1 ratio between axis
``` r
library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 4.0.4
ggplot(mtcars, aes(disp, hp)) +
geom_point() +
#fijar el ratio de escala entre los ejes X y Y
coord_fixed(ratio = 1) +
@avallecam
avallecam / rename_combo.R
Last active May 5, 2020 01:23
R: Usa janitor::clean_names() //Combo usage of rename_all for spanish useRs :)
``` r
# prueba ------------------------------------------------------------------
#ejemplo del problema y producto esperado
x <- c("êãçàúüñ","EÑE","el camión")
iconv(x,to = "ASCII//TRANSLIT")
#> [1] "eacauun" "ENE" "el camion"
# updated ------------------------------------------------------------------
@avallecam
avallecam / grepl_dta.R
Created December 12, 2018 03:17
De R a STATA: errores por caracteres en nombres de columna
library(tidyverse)
library(haven)
library(labelled)
#crear data frame
set.seed(22)
dta <- data_frame("edad" = floor(rnorm(6,25,10)),
"sexo.per" = gl(2,1,6, labels = c("f","m")),
"grado_academico_a_nivel_nacional_" = rep(c("primaria",
@avallecam
avallecam / data_stata_loop.R
Last active December 15, 2018 16:47
STATA: Genera descritivos rápidos con bases de datos gigantes!
library(tidyverse)
library(haven)
library(labelled)
#crear data frame
set.seed(22)
dta <- data_frame("edad" = floor(rnorm(6,25,10)),
"peso" = floor(rnorm(6,60,10)),
"sexo" = gl(2,1,6, labels = c("f","m")),
@avallecam
avallecam / coalesce.R
Last active February 12, 2020 17:43
R: resumir respuestas de opción múltiple
``` r
library(tidyverse)
library(naniar)
# more on naniar: https://cran.r-project.org/web/packages/naniar/vignettes/replace-with-na.html
#create foo dataset
foo <- tibble(xA=c(1,rep(NA,2),2),
xB=c(rep(NA,2),5:4),
xC=2:5) %>%
mutate_all(.funs = as.double)
@avallecam
avallecam / tabs.R
Last active June 12, 2020 07:22
usa `skimr` y `compareGroups` para observar distribuciones y generar tabla 1 y tabla 2
``` r
library(tidyverse)
library(compareGroups)
library(skimr)
library(rlang)
library(labelled)
#importa y limpiar
sb <- Seatbelts %>%
as_tibble() %>%
@avallecam
avallecam / labelled.R
Last active September 13, 2019 23:18
De STATA a R: uso de las funciones del paquete labelled
``` r
library(tidyverse)
library(haven)
library(labelled)
# crear data frame ------------------------------
set.seed(22)
dt_nolab <- tibble(age = floor(rnorm(6,25,10)),
@avallecam
avallecam / janitor_tabyl.R
Last active January 20, 2020 21:28
Use janitor::tabyl() para crear y adornar tablas de una, dos y tres dimensiones!
``` r
# references:
# - https://cran.r-project.org/web/packages/janitor/vignettes/janitor.html#tabyl---a-better-version-of-table
#import packages
library(dplyr)
library(janitor)
#explore dataset
#storms %>% as_tibble()