Cómo dibujar solamente un rango de valores en geom_point del paquete ggplot2?

Question

Hola a todos, Tengo los siguientes datos de fundido:

 X      variable       value    
1 StationA SAR11.cluster 0.001309292
2 StationB SAR11.cluster 0.002712237
3 StationC SAR11.cluster 0.002362708
4 StationD SAR11.cluster 0.002516751
5 StationE SAR11.cluster 0.004301075
6 StationF SAR11.cluster 0.0

.
.
.
etc.
etc.

I utiliza el siguiente código para trazar un bubblechart de los datos:

ggplot(foomelt, aes(x=foomelt$Station, y=variable, angle=45, size=(value))) + 
+geom_point() +  opts(theme_bw(), axis.text.x = theme_text(size=10, angle = 70)) 
+ scale_area()

Todo está bien excepto que quiero hacer caso omiso de los valores 0 (cero) y use solamente para el escalado de los valores de puntos entre todos los que son rallador de ceros y el valor máximo. No quiero borrar los valores cero filas de los datos, ya que con el fin de probar un punto que quiero todas las estaciones y variables a incluir y tener los que tienen la deja en blanco el valor cero.

Me las arreglé para usar esto para ignorar los valores cero, pero la escala no funciona:

   ggplot(foomelt, aes(x=foomelt$Station, y=variable, angle=45, size=(value>0))) +
    + geom_point() +  opts(theme_bw(), axis.text.x = theme_text(size=10, angle = 70)) 
    + scale_area("Ratio") + scale_size_identity()

cualquier ayuda sería muy apreciada.

Answer 1

no estoy seguro si esto es lo que busca, pero un enfoque para ignorar los valores cero, mientras que el trazado de los puntos es modificar su estado de geom_point () a

geom_point(subset = .(value > 0))

pasa esta línea sólo los valores no cero en la trama de datos que se pintarán.

Answer 2

Sólo para mostrar cómo solía Ramnath de sugerencias (por lo que a los novatos de ayuda como yo) (gracias!):

foo= read.csv('~/Desktop/foo.csv', header=T)
foomelt = melt(foo)
foomelt$Station<-factor(foomelt$Station, levels=unique(as.character(foo[[1]]))) #to keep the order of the x axis the same
                                                                                # as in the original file`
bigfoo <- subset(foomelt, value > 0) #use only those values that are larger than 0
ggplot(bigfoo, aes(x=bigfoo$Station, y=variable, angle=45, size=(value))) +  geom_point() 
+  opts(theme_bw(), axis.text.x   = theme_text(size=9, angle = 90)) + scale_area()