ggplot x axis для года

Question

Ниже приведены мои r code для диаграммы рассеяния.

library(tidyverse)
Pop <-c(24039274, 24854892, 25718048, 26624820, 27568436, 28543940, 29550662, 30590487, 31663896, 32771895)
Popu <- data.frame(Year = 2000:2009, lpop = log2(Pop))
ggplot(Popu, aes(Year, lpop)) + 
  geom_point(size=3, col = "steelblue") +
  ylab("Log2 of Population")

Мой вопрос заключается в том, почему ось x отражает 2000.0, 2002.5и так далее?Как это исправить?

Заранее спасибо.

Answer 1

Попробуйте это:

Popu <- data.frame(Year = factor(seq(2000,2009,1)), lpop = log2(Pop))
ggplot(Popu, aes(Year, lpop)) + 
geom_point(size=3, col = "steelblue") +
ylab("Log2 of Population")