Р: Может ли кто-нибудь научить меня, как изменить последовательность оси X?

Question

введите описание изображения здесь

Как показать метку оси X с 2010 по 2019 год? В настоящее время он показывает только 2010.0, 2012.5, 2015.0, 2017.5

Вот мои коды:

ggplot(data=combineboth,aes(x=Year,y=`Percentage Change`,fill=Town))+
  geom_bar(stat='identity',position = 'dodge')+   
  scale_colour_manual("", 
                  breaks = c("Serangoon", "Bukit_Timah"),
                  values = c("Serangoon"="green", "Bukit_Timah"="blue")) +
  ggtitle("Percentage Change in HDB Resale Prices")+ xlab("Year")+ ylab("Percent (%)")+
  theme(
     plot.title = element_text(color="red",size=7, face="bold.italic", hjust = 0.5),
     axis.title.x = element_text(color="red", size=8, face="bold"),
     axis.title.y = element_text(color="red", size=8, face="bold"),
     axis.text=element_text(size=5)

)

Answer 1

Простое решение для получения хороших перерывов в датах - это преобразование года в коэффициент. Используя некоторые случайные данные, попробуйте следующее:

И если вы хотите, чтобы каждый год отображался, удалите scale_x_discrete.

library(ggplot2)

d <- data.frame(year = 2010:2020, y = runif(11))

ggplot(d, aes(factor(year), y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(breaks = seq(2010, 2020, 2))

^{Created on 2020-06-21 by the пакет реплекс (v0.3.0)}