Programación r

4

¿Alguna forma más rápida de verificar si las listas de una lista son equivalentes?

Aquí tengo los números enteros 1:7de cuatro particiones diferentes, es decir, {1}, {2,3,4}, {5,6} y {7} y esas particiones están inscritos en una lista, es decir, list(1,c(2,3,4),c(5,6),7). Trato las particiones como conjuntos, de modo que la permutación diferente de elementos dentro de una partición se reconozca como la misma. Por …

9 r algorithm list performance

1

Alternativa más rápida a deparse ()

Mantengo un paquete que se basa en llamadas repetidas a deparse(control = c("keepNA", "keepInteger")). controles siempre igual, y la expresión varía. deparse()parece pasar mucho tiempo interpretando repetidamente el mismo conjunto de opciones con .deparseOpts(). microbenchmark::microbenchmark( a = deparse(identity, control = c("keepNA", "keepInteger")), b = .deparseOpts(c("keepNA", "keepInteger")) ) # Unit: microseconds …

9 r

3

¿Qué no puedo hacer con dtplyr que pueda en data.table?

Debo invertir mi esfuerzo de aprendizaje para los datos de bregar en R, concretamente entre dplyr, dtplyry data.table? Lo uso dplyrprincipalmente, pero cuando los datos son demasiado grandes para eso lo usaré data.table, lo cual es una ocurrencia rara. Entonces, ahora que dtplyrv1.0 está disponible como interfaz data.table, en la …

9 r dplyr data.table dtplyr

5

Crear una nueva columna condicionalmente basada en n filas anteriores

Tengo un marco de datos configurado como el siguiente: df <- data.frame("id" = c(111,111,111,222,222,222,222,333,333,333,333), "Location" = c("A","B","A","A","C","B","A","B","A","A","A"), "Encounter" = c(1,2,3,1,2,3,4,1,2,3,4)) id Location Encounter 1 111 A 1 2 111 B 2 3 111 A 3 4 222 A 1 5 222 C 2 6 222 B 3 7 222 A …

9 r dataframe dplyr duplicates

2

R: ¿Cómo separar elegantemente la lógica del código de las etiquetas UI / html?

Problema Al crear dinámicamente ui-elementos ( shiny.tag, shiny.tag.list, ...), a menudo resulta difícil separarlo de mi lógica de código y por lo general terminan con un lío complicado de anidado tags$div(...), mezclado con bucles y sentencias condicionales. Si bien es molesto y feo de ver, también es propenso a errores, …

9 r shiny templating htmltools

1

Cómo insertar imágenes en cada barra individual en un gráfico ggplot

Estoy tratando de comparar diferentes novatos de la NBA en diferentes estadísticas, y pensé que el gráfico se vería genial si pudiera agregar la cara del jugador al final del gráfico como en los gráficos r / dataisbeautiful . Mi código es actualmente esto: a3 %>% ggplot(aes(x = reorder(Player, PPM), …

9 r image ggplot2

3

¿Cómo ordenar eficientemente los caracteres en una cadena en R?

¿Cómo puedo ordenar eficientemente los caracteres de cada cadena en un vector? Por ejemplo, dado un vector de cadenas: set.seed(1) strings <- c(do.call(paste0, replicate(4, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(3, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(2, sample(LETTERS, 10000, TRUE), FALSE))) He escrito una función que dividirá cada cadena en un …

9 r string performance sorting

4

Manera eficiente de soltar filas con tiempos superpuestos

Tengo un conjunto de datos largo con columnas que representan las horas de inicio y finalización, y deseo eliminar una fila si se superpone con otra y tiene una prioridad más alta (por ejemplo, 1 es la prioridad más alta). Mi ejemplo de datos es library(tidyverse) library(lubridate) times_df <- tibble(start …

9 r dplyr

1

Dibujando rectángulos encima de la imagen R brillante

Me gustaría dar más detalles sobre la respuesta aceptada a esta pregunta . Estoy buscando mejorar la aplicación brillante mínima a continuación (extraída de la respuesta aceptada) con las siguientes características: 1) dibuja el rectángulo + una etiqueta de texto . La etiqueta proviene de R ( input$foo), por ejemplo, …

9 javascript r browser shiny

2

Rcpp y valor NA int64

¿Cómo puedo pasar un valor de NA de Rcpp a R en un vector de 64 bits? Mi primer enfoque sería: // [[Rcpp::export]] Rcpp::NumericVector foo() { Rcpp::NumericVector res(2); int64_t val = 1234567890123456789; std::memcpy(&(res[0]), &(val), sizeof(double)); res[1] = NA_REAL; res.attr("class") = "integer64"; return res; } Pero rinde #> foo() integer64 [1] …

8 r rcpp na bit64

2

Establezca el orden de filas de R data.table encadenando 2 columnas

Estoy tratando de descubrir cómo ordenar una tabla de datos R basada en el encadenamiento de 2 columnas. Aquí está mi muestra data.table. dt <- data.table(id = c('A', 'A', 'A', 'A', 'A') , col1 = c(7521, 0, 7915, 5222, 5703) , col2 = c(7907, 5703, 8004, 7521, 5222)) id col1 …

8 r data.table

3

Mapa de calor de densidad de línea en R

Descripción del problema Tengo miles de líneas (~ 4000) que quiero trazar. Sin embargo, no es factible trazar todas las líneas usando geom_line()y solo usar, por ejemplo, alpha=0.1para ilustrar dónde hay una alta densidad de líneas y dónde no. Encontré algo similar en Python , especialmente la segunda trama de …

8 r ggplot2 plot heatmap

1

Funciones de alcance y evaluación en R

Dada la siguiente función f <- function(x) { g <- function(y) { y + z } z <- 4 x + g(x) } Si uno ejecuta el siguiente código en R, ¿por qué la respuesta es 10? Estoy un poco confundido acerca de cómo juega con esta pregunta. z <- …

8 r scoping

1

¿Hay alguna forma en R de trazar una leyenda con dos ejes?

Me gustaría trazar una leyenda con dos ejes. Específicamente, he combinado dos objetos espaciales que se han clasificado, el primero que muestra la intensidad de un evento y el segundo que muestra la probabilidad del evento en esa ubicación. Quiero crear una leyenda que muestre dónde caen los píxeles del …

8 r ggplot2 legend spatial r-raster

5

¿Cómo seleccionar entre 3 valores, los 2 más cercanos entre sí en R?

Me gustaría seleccionar para cada uno IDlos dos valores más cercanos de Cq. Pensé que lo había descubierto, pero depende de la posición de la fila ... Aquí hay un ejemplo de la forma de mi conjunto de datos: df <- data.frame(ID = c("A","A","A","B","B","B","C","C","C"), Cq = c(34.32,34.40,34.31,31.49,31.40,31.49,31.22,31.31,31.08)) ID Cq 1 …

8 r dplyr

Preguntas etiquetadas con r