scales: Scale Functions for Visualization

加载经常用的R包

library(pacman)
library(scales)
library(lubridate)
p_load(tidyverse,stringr,DT,skimr,DataExplorer,grf,glmnet,caret,tidytext,
       explore,patchwork,ggrepel,ggcorrplot,gghighlight,ggthemes,fpp2,
       forecast,magrittr,readxl,writexl,listviewer,car,tseries,vtable)

Breaks and labels

txhousing %>% datatable()

没有添加scales

txhousing %>% 
  mutate(date = make_date(year,month,1)) %>% 
  group_by(city) %>% 
  filter(min(sales) > 500) %>% 
  ungroup() %>% 
  ggplot(aes(date,sales,group = city,col = city,linetype = city)) +
  geom_line(na.rm = TRUE) +
  theme(text = element_text(family = "Times New Roman"),
        axis.text = element_text(size = 10),
        axis.title = element_text(size = 13)) +
  scale_color_brewer(palette = "Dark2")

加上scales

txhousing %>% 
  mutate(date = make_date(year,month,1)) %>% 
  group_by(city) %>% 
  filter(min(sales) > 500) %>% 
  ungroup() %>% 
  ggplot(aes(date,sales,group = city,col = city,linetype = city)) +
  geom_line(na.rm = TRUE) +
  theme(text = element_text(family = "Times New Roman"),
        axis.text = element_text(size = 10,angle = 45,hjust = 1),
        axis.title = element_text(size = 13)) +
  scale_color_brewer(palette = "Dark2") +
  scale_x_date(breaks = scales::breaks_width("2 years"),
               labels = scales::label_date("%Y-%m")) +
  scale_y_continuous(labels = scales::comma)

economics %>%
  filter(date < ymd("1970-01-01")) %>% 
  ggplot(aes(date,pce)) +
  geom_point() +
  geom_line() +
  scale_x_date(date_breaks = "3 months",
               labels = scales::label_date_short()) +
  theme(text = element_text(family = "Times New Roman"),
        axis.text = element_text(size = 10,angle = 0,hjust = 0.5),
        axis.title = element_text(size = 13)) 

economics %>%
  filter(date < ymd("1970-01-01")) %>% 
  ggplot(aes(date,pce)) +
  geom_point() +
  geom_line() +
  scale_x_date(breaks = scales::breaks_width("3 months"),
               labels = scales::label_date_short()) +
  scale_y_continuous(breaks = seq(500,620,20),
                     labels = scales::dollar) +
  theme(text = element_text(family = "Times New Roman"),
        axis.text = element_text(size = 10),
        axis.title = element_text(size = 13))