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()