Cómo mostrar solo valores enteros en un eje usando ggplot2

Tengo la siguiente ttwig:

library(reshape) library(ggplot2) library(gridExtra) require(ggplot2) data2<-structure(list(IR = structure(c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L ), .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1" ), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals" ), class = "factor"), value = c(15L, 11L, 29L, 42L, 0L, 5L, 21L, 22L), Legend = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals"), class = "factor")), .Names = c("IR", "variable", "value", "Legend"), row.names = c(NA, -8L), class = "data.frame") p <- ggplot(data2, aes(x =factor(IR), y = value, fill = Legend, width=.15)) data3<-structure(list(IR = structure(c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L ), .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1" ), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals" ), class = "factor"), value = c(2L, 2L, 6L, 10L, 0L, 1L, 4L, 4L), Legend = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("Real queens", "Simulated individuals"), class = "factor")), .Names = c("IR", "variable", "value", "Legend"), row.names = c(NA, -8L), class = "data.frame") q<- ggplot(data3, aes(x =factor(IR), y = value, fill = Legend, width=.15)) ##the plot## q + geom_bar(position='dodge', colour='black') + ylab('Frequency') + xlab('IR')+scale_fill_grey() +theme(axis.text.x=element_text(colour="black"), axis.text.y=element_text(colour="Black"))+ opts(title='', panel.grid.major = theme_blank(),panel.grid.minor = theme_blank(),panel.border = theme_blank(),panel.background = theme_blank(), axis.ticks.x = theme_blank()) 

Quiero que el eje y muestre solo números enteros. Si esto se logra mediante el redondeo o mediante un método más elegante no es realmente importante para mí.

Con scale_y_continuous() y argument breaks= puedes establecer los puntos de corte para el eje y a los enteros que deseas mostrar.

 ggplot(data2, aes(x =factor(IR), y = value, fill = Legend, width=.15)) + geom_bar(position='dodge', colour='black')+ scale_y_continuous(breaks=c(1,3,7,10)) 

Si tiene el paquete de scales , puede usar pretty_breaks() sin tener que especificar manualmente los saltos.

 q + geom_bar(position='dodge', colour='black') + scale_y_continuous(breaks= pretty_breaks()) 

Esto es lo que uso:

 library(scales) ggplot(data2, aes(x = factor(IR), y = value, fill = Legend, width = .15)) + geom_bar(position = 'dodge', colour = 'black') + scale_y_continuous(breaks = function(x) unique(floor(pretty(seq(0, (max(x) + 1) * 1.1))))) 

Puede usar una etiquetadora personalizada. Por ejemplo, esta función garantiza que solo producirá interrupciones de enteros:

 int_breaks <- function(x, n = 5) pretty(x, n)[pretty(x, n) %% 1 == 0] 

Usar como

 + scale_y_continuous(breaks = int_breaks) 

Otra opción es controlar el formateo de las tags con un formateador personalizado

 q + geom_bar(position='dodge', colour='black')+ scale_y_continuous(labels = function (x) floor(x)) 

Vea los paquetes de scales para otros formateadores populares como percent , dollar , …