Tag: TIDYVERSE
Quiero aplicar un método llamado CCF Sliding-Windows, en el cual necesito dividir mi serie de tiempo en ventanas de 90 días, superpuestas por 45 días, y la última parte debe terminar exactamente en el último día de la serie de tiempo (de manera que pueda superponerse con más de 45 . . . Read more
Estoy tratando de extraer datos de archivos xls, que siempre tienen la misma estructura (ver abajo). Después de extraer los rangos de interés con: all_data <- (file.path(wdir, ‘data_input.xlsx’)) excel_sheets(path = all_data) tab_names <- excel_sheets(path = all_data) extracted_data <- lapply(tab_names, function(x) read_excel(all_data, sheet = x, col_names=FALSE, range = “B2:B4”)) Me gustaría . . . Read more
Mi código ficticio: x <- c(“A”, “B”, “C”, “D”) y <- c(“<0.5”, “~1”, “<10”, “~30”) df <- data.frame(x,y) %>% mutate(y1 = str_replace(y, “~”, “”), y2 = as.numeric(str_replace(y1, “<“, “”))/2) Básicamente lo que quiero hacer en la columna y es: * Quitar el “~” de los valores que contienen “~” * . . . Read more
¿Cómo puedo recortar los puntos de datos que están dentro del polígono dado? library(tidyverse) tbl <- tibble(x = runif(100), y = runif(100)) ggplot(data = tbl, aes(x = x, y = y)) + geom_point() + theme_bw() + coord_equal() poly <- tibble(A = c(0.5, 0), B = c(1, 0.5), C = c(0.5, . . . Read more
¿Es posible hacer que una función de R cumpla lo siguiente: Devolver una lista y solo imprimir el primer elemento. (Sé cómo hacerlo) Asignar el resultado del paso 1 a un nuevo objeto con la clase del primer elemento, luego puedo usar la función pipe y otras funciones de dplyr . . . Read more