Me gustaría crear una banda de confianza para un modelo equipado con GLS como este: require(ggplot2) require(nlme) mp <-data.frame(year=c(1990:2010)) mp$wav <- rnorm(nrow(mp))*cos(2*pi*mp$year)+2*sin(rnorm(nrow(mp)*pi*mp$wav))+5 mp$wow <- rnorm(nrow(mp))*mp$wav+rnorm(nrow(mp))*mp$wav^3 m01 <- gls(wow~poly(wav,3), data=mp, correlation = corARMA(p=1)) mp$fit <- as.numeric(fitted(m01)) p <- ggplot(mp, aes(year, wow))+ geom_point()+ geom_line(aes(year,fit)) p Esto solo traza los valores ajustados y los datos, y me gustaría […]
# data set.seed (123) xvar <- c(rnorm (1000, 50, 30), rnorm (1000, 40, 10), rnorm (1000, 70, 10)) yvar <- xvar + rnorm (length (xvar), 0, 20) myd <- data.frame (xvar, yvar) # density plot for xvar upperp = 80 # upper cutoff lowerp = 30 # lower cutoff x <- myd$xvar plot(density(x)) dens <- […]
Usando ggplot2 normalmente uso geom_text y algo así como position=jitter para anotar mis gráficos. Sin embargo, para una buena ttwig a menudo me parece que vale la pena anotar manualmente. como abajo: data2 <- structure(list(type = structure(c(5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 4L, […]
Necesito mostrar gráficos ggplot2 de R a archivos PNG con fondo transparente. Todo está bien con gráficos R básicos, pero sin transparencia con ggplot2: d <- rnorm(100) #generating random data #this returns transparent png png('tr_tst1.png',width=300,height=300,units="px",bg = "transparent") boxplot(d) dev.off() df <- data.frame(y=d,x=1) p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) p <- p + opts( panel.background […]
¿Cómo ignoraría los valores atípicos en ggplot2 boxplot? No quiero simplemente que desaparezcan (es decir, outlier.size = 0), pero quiero que se ignoren de manera que el eje y se escale para mostrar el percentil 1º / 3º. Mis valores atípicos están causando que la “caja” se reduzca tan pequeña que prácticamente es una línea. […]
Espero usar ggplot2 para generar un conjunto de barras astackdas en pares, muy parecido a esto: Con los siguientes datos de ejemplo: df <- expand.grid(name = c("oak","birch","cedar"), sample = c("one","two"), type = c("sapling","adult","dead")) df$count <- sample(5:200, size = nrow(df), replace = T) Me gustaría que el eje x representara el nombre del árbol, con dos […]
Estoy creando un mapa de calor usando ggplot() , y me gustaría utilizar el esquema de 3 colores de scale_fill_gradient2() . He encontrado, sin embargo, que el color del medio es demasiado amplio y tiende a mostrar algunos de mis datos de forma negativa (usando “negro”, por ejemplo). ¿Es posible definir el rango que se […]
Suponer que hay un conjunto de datos en coordenadas polares que se trazará como sector library(ggplot2) library(reshape2) data <- melt(matrix(rnorm(1000), nrow = 20)) data$type <- 1:2 data$Var1 <- data$Var1*6 – 60 ggplot(data, aes(Var1, Var2)) + geom_tile(aes(fill = value)) + coord_polar(theta = "x", start = pi) + scale_x_continuous(limits = c(-180, 180)) + facet_wrap(~type) que da el […]
Tengo este cuadro: me gustaría agregar a cada etiqueta el texto N=xx para indicar el número de observaciones. Sé cómo hacer esto y lo he hecho en gráficos sin facetas. Cuando probé eso en el gráfico facetado, no funcionó (obtuve el mismo N en la marca abierta en los 3 gráficos, el mismo N en […]
Teniendo en cuenta el siguiente diagtwig de polígono: ggplot(df, aes(x=year,y=afw)) + geom_polygon() + scale_x_continuous(“”, expand=c(0,0), breaks=seq(1910,2010,10)) + theme_bw() Sin embargo, quiero llenar esto con dos colores diferentes. Por ejemplo, rojo para las áreas negras por encima de 0 y azul para las áreas negras por debajo de 0 . Desafortunadamente, usar fill=col no llena las […]