Articles of r

Uso de lapply .SD en data.table R

No tengo muy claro el uso de .SD y by . Por ejemplo, ¿significa el siguiente fragmento: ‘cambiar todas las columnas en DT a factor excepto A y B ?’ También dice en el manual de data.table : ” .SD refiere al subconjunto de la data.table de data.table para cada grupo (excluyendo las columnas de […]

Rotación de tags de eje x en R para barra de representación

Estoy tratando de hacer rotar las tags del eje x 45 grados en una barra de barras sin suerte. Este es el código que tengo a continuación: barplot(((data1[,1] – average)/average) * 100, srt = 45, adj = 1, xpd = TRUE, names.arg = data1[,2], col = c(“#3CA0D0”), main = “Best Lift Time to Vertical Drop […]

Eliminar múltiples objetos con rm ()

Mi memoria se está atascando por un grupo de archivos intermedios (llámalos temp1, temp2, etc.). ¿Es posible eliminarlos de la memoria sin hacer rm(temp1) , rm(temp2) uno por vez? Intenté rm(list(temp1, temp2, etc.)) , pero parece que no funciona.

División de cadena de texto en una columna data.table

Tengo un script que lee los datos de un archivo CSV en un data.table y luego divide el texto en una columna en varias columnas nuevas. Actualmente estoy usando las funciones lapply y strsplit para hacer esto. Aquí hay un ejemplo: library(“data.table”) df = data.table(PREFIX = c(“A_B”,”A_C”,”A_D”,”B_A”,”B_C”,”B_D”), VALUE = 1:6) dt = as.data.table(df) # split […]

¿Cómo puedo subconjuntar filas en un dataframe en R basado en un vector de valores?

Tengo dos conjuntos de datos que se supone que son del mismo tamaño pero no lo son. Necesito recortar los valores de A que no están en B y viceversa para eliminar el ruido de un gráfico que va a un informe. (¡No se preocupe, estos datos no se eliminan permanentemente!) He leído lo siguiente: […]

Eliminar filas del dataframe donde una fila coincide con una cadena

¿Debo eliminar todas las filas en un dataframe donde una determinada fila cumple un criterio de coincidencia de cadenas? Por ejemplo: A,B,C 4,3,Foo 2,3,Bar 7,5,Zap ¿Cómo devolvería un dataframe que excluye todas las filas donde C = Foo: A,B,C 2,3,Bar 7,5,Zap

Modelos paralelos completamente reproducibles utilizando el cursor

Cuando ejecuto 2 bosques aleatorios en caret, obtengo exactamente los mismos resultados si configuro una semilla aleatoria: library(caret) library(doParallel) set.seed(42) myControl <- trainControl(method='cv', index=createFolds(iris$Species)) set.seed(42) model1 <- train(Species~., iris, method='rf', trControl=myControl) set.seed(42) model2 all.equal(predict(model1, type=’prob’), predict(model2, type=’prob’)) [1] TRUE Sin embargo, si registro un back-end paralelo para acelerar el modelado, obtengo un resultado diferente cada […]

Colorea los puntos en una ttwig de forma diferente según un vector de valores

Estoy trazando el diagtwig a continuación usando la función de diagtwig de R. Es un diagtwig de un vector ‘shiftTime’ de cambio en el tiempo. Tengo otra ‘intensidad’ de vector de los valores de intensidad que van desde ~ 3 a ~ 9. Quiero colorear mis puntos en la ttwig en función de esos valores […]

Insertar una tabla debajo de la leyenda en un histogtwig ggplot2

¿Hay alguna forma de hacer que grid.arrange () actúe como split.screen ()? Me gustaría organizar una mesa que se ubicará directamente debajo de la leyenda. #create histogram my_hist<-ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() #create inset table my_table<- tableGrob(head(diamonds)[,1:3],gpar.coretext =gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8)) grid.arrange(my_hist,my_table, ncol=2) produce: pero me gustaría que se vea más o menos así: Intenté split.screen () […]

Cómo evitar advertencias cuando se introducen NA por coacción

Por lo general, prefiero codificar R para no recibir advertencias, pero no sé cómo evitar recibir una advertencia cuando uso as.numeric para convertir un vector de caracteres. Por ejemplo: x <- as.numeric(c("1", "2", "X")) Me dará una advertencia porque introdujo NA por coacción. Quiero que las NA sean introducidas por coacción, ¿hay alguna manera de […]