ggplot2画图-1

#ggplot2的主要元素包括：图层，影射，标度，几何对象和主题。

#加载包

install.packages("tidyverse")

library(tidyverse)

install.packages("ggsci")

library(ggplot2)

data("diamonds")

set.seed(1000)

#使用sample_n进行抽取

small_diamonds <- sample_n(diamonds, size = 500)

#首先构建一个画布，画出对应的坐标轴

ggplot(data = small_diamonds,aes(x=carat, y=price))+theme_classic()

#构建好画布后，就可以在画布上加点了，又叫做添加几何对象

ggplot(data = small_diamonds, aes(x=carat, y=price))+

  geom_point()+theme_classic()

#根据数据，cut的类型给这些点上色

ggplot(data = small_diamonds, aes(x=carat, y=price))+

  geom_point(aes(color=cut))+

  theme_classic()

#除了默认的配色之外，还可以使用一些调色板来配色，例如使用ggsci

#R包ggsci：一步完成CNS级别的图片配色

##这里选用nature期刊推荐的配色

library(ggsci)

ggplot(data=small_diamonds,aes(x=carat, y=price))+

  geom_point(aes(color=cut))+

  scale_color_npg()+

  theme_classic()

#下面继续调整点的大小和形状，让它看起来更有质感

ggplot(data = small_diamonds,aes(x=carat, y=price))+

  geom_point(shape=21, size=4,color='black',aes(fill=cut))+

  scale_fill_npg()+

  theme_classic()

#再继续使用labs(),设置标题,横轴纵轴标题，图例标题：

ggplot(data = small_diamonds,aes(x=carat, y=price))+

  geom_point(shape=21, size=4,color='black',aes(fill=cut))+

  scale_fill_npg()+

  labs(title = 'test point plot',

       x='weight of the diamond',

       y='price in US dollars',

       fill='quality of the cut')+

  theme_classic()

#最后就是使用scale函数对横轴轴进行刻度的调整：

ggplot(data = small_diamonds,aes(x=carat, y=price))+

  geom_point(shape=21, size=4,color='black',aes(fill=cut))+

  scale_fill_npg()+

  labs(title = 'test point plot',

       x='weight of the diamond',

       y='price in US dollars',

       fill='quality of the cut')+

  scale_x_continuous(breaks = seq(0,3,0.5))+

  scale_y_continuous(breaks = seq(0,15000,5000),

                     labels = c('0','5k','10k','15k'))+

  theme_classic()