ggplot2精细化调整坐标轴

## 调整坐标轴范围

```{r}
p <- ggplot(mtcars, aes(wt, drat,col=cyl)) + geom_point()
p
p+xlim(0,20)
p + scale_x_continuous(limits = c(0,15))
```

## 坐标轴标签

```{r}
p + xlab("这是 X 轴") + ylab("这是 Y 轴") + ggtitle("这是标题")  
p + labs(x = "这是 X 轴", y = "这是 Y 轴", title = "这是标题")  

#### 修改 X 轴标签的大小、字体、颜色、加粗、位置、角度
windowsFonts(wlbb = windowsFont("仿宋"))
p + xlab("这是 X 轴") + theme(axis.title.x = element_text(size = 15, family = 'wlbb', color = "red", face = "bold", vjust = 0.5, hjust = 0.5, angle = 45))

```

## 标签特殊字符

```{r}
p+scale_x_continuous(labels = scales::label_number(accuracy = 0.0001))

p+scale_x_continuous(labels = scales::label_number(accuracy = 0.0001,suffix = "wlbb"))

p+scale_x_continuous(labels = scales::label_number(accuracy = 0.0001,suffix = "\u00b0C"))

p+scale_x_continuous(labels = scales::label_number(accuracy = 1,suffix = "\u2764 五柳冰冰"))+
  theme(axis.text.x = element_text(angle = 45,color = "red"))

```



## 刻度间隔

```{r}
p + scale_x_continuous(breaks=seq(0, 20, 0.5))   ## X 轴每隔 .5 个单位显示一个刻度
```

## 删去所有刻度标签

```{r}
p+theme(axis.text = element_blank())   ## 删去所有刻度标签
```

```{r}
p+theme(axis.ticks = element_blank())   ## 删去所有刻度线
```

## 日期型数据坐标轴

```{r}
p <- pedquant::md_future('rb2310')[[1]] %>% ggplot(aes(date,close))+
  geom_line()
p
p+scale_x_date(breaks = '2 month',date_labels = "%y 年 %b")
```