superponer - varias graficas en r

Gráfico de burbuja categórico para estudios de mapeo

Question

¿Cómo crear un diagrama de burbujas categóricas, utilizando GNU R, similar al utilizado en los estudios sistemáticos de mapeo (ver más abajo)?

EDIT: ok, esto es lo que he intentado hasta ahora. Primero, mi conjunto de datos (Var1 va al eje x, Var2 va al eje y):

> grid
Var1 Var2 count
1 Does.Not.apply Does.Not.apply 53
2 Not.specified Does.Not.apply 15
3 Active.Learning..general. Does.Not.apply 1
4 Problem.based.Learning Does.Not.apply 2
5 Project.Method Does.Not.apply 4
6 Case.based.Learning Does.Not.apply 22
7 Peer.Learning Does.Not.apply 6
10 Other Does.Not.apply 1
11 Does.Not.apply Not.specified 15
12 Not.specified Not.specified 15
21 Does.Not.apply Active.Learning..general. 1
23 Active.Learning..general. Active.Learning..general. 1
31 Does.Not.apply Problem.based.Learning 2
34 Problem.based.Learning Problem.based.Learning 2
41 Does.Not.apply Project.Method 4
45 Project.Method Project.Method 4
51 Does.Not.apply Case.based.Learning 22
56 Case.based.Learning Case.based.Learning 22
61 Does.Not.apply Peer.Learning 6
67 Peer.Learning Peer.Learning 6
91 Does.Not.apply Other 1
100 Other Other 1

Luego, tratando de trazar los datos:

# Based on http://flowingdata.com/2010/11/23/how-to-make-bubble-charts/
grid <- subset(grid, count > 0)
radius <- sqrt( grid$count / pi )
symbols(grid$Var1, grid$Var2, radius, inches=0.30, xlab="Research type", ylab="Research area")
text(grid$Var1, grid$Var2, grid$count, cex=0.5)

Este es el resultado:

Problemas: las etiquetas de los ejes son incorrectas, las líneas discontinuas de la cuadrícula faltan.

Answer 1

Aquí está la solución ggplot2. En primer lugar, agregó radio como nueva variable a su marco de datos.

grid$radius <- sqrt( grid$count / pi )

Debes jugar con el tamaño de los puntos y las etiquetas de texto dentro de la trama para un ajuste perfecto.

library(ggplot2)
ggplot(grid,aes(Var1,Var2))+
geom_point(aes(size=radius*7.5),shape=21,fill="white")+
geom_text(aes(label=count),size=4)+
scale_size_identity()+
theme(panel.grid.major=element_line(linetype=2,color="black"),
axis.text.x=element_text(angle=90,hjust=1,vjust=0))

Answer 2

Aquí una versión usando levelplot de latticeExtra .

library(latticeExtra)
levelplot(count~Var1*Var2,data=dat,
panel=function(x,y,z,...)
{
panel.abline(h=x,v=y,lty=2)
cex <- scale(z)*3
panel.levelplot.points(x,y,z,...,cex=5)
panel.text(x,y,label=z,cex=0.8)
},scales=(x=list(abbreviate=TRUE))) ## to get short labels

Para obtener el tamaño de burbuja proprional para el recuento, puede hacer esto

library(latticeExtra)
levelplot(count~Var1*Var2,data=dat,
panel=function(x,y,z,...)
{
panel.abline(h=x,v=y,lty=2)
cex <- scale(z)*3
panel.levelplot.points(x,y,z,...,cex=5)
panel.text(x,y,label=z,cex=0.8)
})

No lo visualizo ya que el render no es claro como en el caso de tamaño de corrección.

Answer 3

Esto lo ayudará a comenzar agregando las marcas a su xaxis.

Para agregar las líneas, simplemente agrega una línea en cada nivel

ggs <- subset(gg, count > 0)
radius <- sqrt( ggs$count / pi )
# ggs$Var1 <- as.character(ggs$Var1)
# set up your tick marks
# (this can all be put into a single line in `axis`, but it''s placed separate here to be more readable)
#--------------
# at which values to place the x tick marks
x_at <- seq_along(levels(gg$Var1))
# the string to place at each tick mark
x_labels <- levels(gg$Var1)
# use xaxt="n" to supress the standard axis ticks
symbols(ggs$Var1, ggs$Var2, radius, inches=0.30, xlab="Research type", ylab="Research area", xaxt="n")
axis(side=1, at=x_at, labels=x_labels)
text(ggs$Var1, ggs$Var2, ggs$count, cex=0.5)

Además, observe que en lugar de llamar a la grid objetos, grid llamé gg y luego ggs para el subconjunto. grid es una función en R Si bien "se permite" sobrescribir la función con un objeto, no se recomienda y puede provocar molestos errores en la línea.