superponer - ¿Es posible dibujar diagramas en R?

superponer graficas en r ggplot

Question

Me preguntaba si hay algún paquete en R que pueda usar las coordenadas x, y y los tamaños de forma para dibujar algo como esto:

Tengo las coordenadas de los centros frontales de los vehículos y sus tamaños (largo y ancho).

Editar

Así es como se ve el conjunto de datos original:

> head(df)
Vehicle.ID Frame.ID Global.X Global.Y Vehicle.Length Vehicle.width Lane Preceding.Vehicle.ID Following.Vehicle.ID Spacing Headway
1 2 43 6451214 1873261 14.5 4.9 2 0 13 0 0
2 2 44 6451217 1873258 14.5 4.9 2 0 13 0 0
3 2 45 6451220 1873256 14.5 4.9 2 0 13 0 0
4 2 46 6451223 1873253 14.5 4.9 2 0 13 0 0
5 2 47 6451225 1873250 14.5 4.9 2 0 13 0 0
6 2 48 6451228 1873247 14.5 4.9 2 0 13 0 0

Para cualquier cuadro dado, quiero visualizar los huecos, por ejemplo, para el marco no. 500:

ff <- subset(df, Frame.ID==500)
qplot(x=Global.X, y=Global.Y, data=ff)

Todos estos puntos son las coordenadas centrales delanteras de los vehículos. No sé cómo mostrar la longitud y el ancho de cada vehículo y etiquetar los valores de separación.

Answer 1

Por lo tanto, no recomiendo que confíe en ggplot para hacer esto, ya que lo más probable es que algunas de las otras soluciones sugeridas sean mejores, pero este problema me interesó ya que he tenido la intención de profundizar en las agallas de ggplot por un tiempo. Esto es lo que logré idear:

ggplot(df, aes(x=x, y=y, length=length, width=width)) +
geom_hline(yintercept=seq(5, 35, by=10), color="white", size=2, linetype=2) +
geom_car() +
geom_text(aes(label=label, color=label), fontface=10, hjust=-0.2) +
coord_equal() +
theme(panel.background = element_rect(fill="#555555"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())

Tendrás que descubrir las flechas, aunque creo que es sencillo con geom_segment . Ahora, para que esto funcione, tuvimos que crear geom_car , aunque si no necesita imágenes detalladas, puede usar geom_rect . Aquí está geom_car :

library(png)
library(ggplot2)
library(proto)
car.raster <- readPNG("data/car.png")
carGrob <- function(x, y, length, width) {
rasterGrob(
car.raster, x=x, y=y,
hjust=1, height=width, width=length
)
}
GeomCar <- proto(ggplot2:::Geom, {
draw <- function(., data, scales, coordinates, ...) {
with(
coord_transform(coordinates, data, scales),
carGrob(x, y, xmax-xmin, ymax-ymin)
)
}
draw_legend <- function(., data, ...) {
with(data, ggname(.$my_name(), fieldGrob(1, 0.5, )))
}
reparameterise <- function(., df, params) {
transform(df,
xmin = x - length / 2, xmax = x + length / 2, length = NULL,
ymin = y - width / 2, ymax = y + width / 2, width = NULL
)
}
objname <- "car" # name of the geom in lowercase. Must correspond to GeomField.
desc <- "A car!"
default_stat <- function(.) StatIdentity
required_aes <- c("x", "y")
guide_geom <- function(.) "car"
default_aes <- function(.) aes()
} )
geom_car <- function(mapping=NULL, data=NULL) {
GeomCar$new(mapping=mapping, data=data)
}

Y el auto mismo:

Y los datos que utilicé:

df <- read.table(h=T, t="vehicle x y length width label
1 150 10 14 5 other
2 180 8 12 5 other
3 220 10 18 5 other
4 145 20 15 5 target
5 250 18 14 5 other
6 160 30 13 5 other
7 200 33 15 5 other
8 240 31 22 5 other
")