调整x刻度值

Question

所以我正在制作月份的直方图，但x轴从0.5到12.5。有谁知道如何解决这个问题1到12（因为它们代表了几个月？

x<-c(1,2,3,4,5,6,6,7,8,9,10,11,12)


qplot(x,geom='histogram',fill=I("red"), col=I("darkred"),xlab="Maand",ylab="Hoeveelheid",bins=12)

Answer 1

你可以通过x as.factor。

library(ggplot2)
x <- c(1,2,3,4,5,6,6,7,8,9,10,11,12)
x <- as.data.frame(x)

ggplot(x, aes(as.factor(x))) +
    geom_bar(fill = "red", color = "darkred") +
    xlab("Maand") +
    ylab("Hoeveelheid")

Answer 2

你可以试试

library(tidyverse)
tibble(x = c(1,2,3,4,5,6,6,7,8,9,10,11,12)) %>% 
  ggplot(aes(x)) + 
   geom_histogram(binwidth = 1, color="white") + 
   scale_x_continuous(breaks = 1:12)

在基地R你可以尝试

hist(c(1,2,3,4,5,6,6,7,8,9,10,11,12))