Jak wyświetlić tylko wartości całkowite na osi używając ggplot2

Question

Mam następujące działki:

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()) 

chcę osi Y, aby wyświetlać tylko liczby całkowite. Niezależnie od tego, czy odbywa się to za pomocą zaokrąglania, czy też poprzez bardziej elegancką metodę, nie jest to dla mnie ważne.

Answer 1

Z scale_y_continuous() i argumentem breaks= można ustawić punkty łamania dla osi y na liczby całkowite, które mają być wyświetlane.

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)) 

Answer 2

Inną opcją jest, aby kontrolować formatowanie etykiet z niestandardowym formater

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

Zobacz scales pakiety dla innych popularnych programów formatujących jak percent, dollar ...

Answer 3

Jeśli masz pakiet scales, można użyć pretty_breaks() bez konieczności ręcznego określania przerw.

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

Answer 4

To co mam użyć:

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))))) 

Answer 5

Można użyć niestandardowego drukarki etykiet. Na przykład, funkcja ta gwarantuje produkować tylko przerwy integer:

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

użyć jako

+ scale_y_continuous(breaks = int_breaks)