R语言ggplot2散点图geom_point()设置

本文用到的数据为R语言自带的mtcars，为了演示，将vs这一变量设置为了因子型。

mtcars.copy = mtcars
mtcars.copy$vs = as.factor(mtcars.copy$vs)

用如下代码可以绘制一张基础ggplot2的散点图：横坐标为mpg，纵坐标为wt,颜色为vs（两个值）。

ggplot(data = mtcars.copy)+ 
  geom_point(aes(x = mpg,y = wt, color = vs, shape = vs))

我们修改后的结果为（各项解释请向下翻）：

i=1
ggplot(data = mtcars.copy)+ 
  geom_point(aes(x = mpg,y = wt, color = vs, shape = vs, ), 
             size = 3) +
  labs(title =  bquote('This is figure '*.(i)),
       x = 'Weight (1000 lbs)',
       y = "Miles per Gallon")+
  theme_bw()+
  theme(plot.title = element_text(hjust = 0.5),
        title = element_text(size = 15,face = 'bold'),
        axis.text = element_text(size=12,face = 'bold'), # Font size of axis labels.
        legend.text =element_text(size=12,face = 'bold'),  # Font size of legend labels.
        legend.title = element_blank(),                    # Remove the legend title.
        legend.position = c(.92, .9),                     # Position of the legend.
        legend.margin = margin(6, 6, 6, 6),                # Margin of the legend.
        legend.background = element_rect(size = 0.2, colour = 1)) + # Add a box around the legend.)
  scale_discrete_manual(values=c("#F0756C","#56BF7E"),
                        aesthetics = 'colour',
                        labels = c("Label 1", 'Label 2')) +
  scale_discrete_manual(values=c(12,18),
                        aesthetics = 'shape',
                        labels = c("Label 1", 'Label 2'))

可以注意到如下改进：

1. 标题：

• 添加主标题。可通过在代码+labs(title = "这是标题内容")实现。这里为了说明如何调用其他变量的值，特意写了一个变量i=1并且用bquote函数把i的值调用进了标题里。如无需要完全可以忽略。
• 调整主标题位置（默认在最左侧）。可以通过+theme(plot.title = element_text(hjust = 0.5))，将标题向右移动适当位置。
• 调整标题字号与加粗。可以通过+theme(title = element_text(size = 15,face = 'bold'))

2. 横纵坐标：

• 添加/更改横纵坐标标题。与1类似，+labs(x = "这是横轴标题",y = '这是纵轴标题')。
• 设置横纵坐标字号与加粗。与1类似，+theme(axis.text = element_text(size=12,face = 'bold'))。

3. 图例：

• 设置图例字号与加粗。与1,2类似，+theme(legend.text =element_text(size=12,face = 'bold'))。
• 删除图例标题。+theme(legend.title = element_blank())。
• 更改/调整图例位置+theme(legend.position = c(.92, .9))。图例的默认位置是在图片外的。这里将图例挪到了图片”内部“。注意这里的c(.92, .9)都是小于$1$的，大概可以理解为$c(1,1)$就在最最右上角。
• 设置图例边距+theme(legend.margin = margin(6, 6, 6, 6))
• 给图例加边框+theme(legend.background = element_rect(size = 0.2, colour = 1)))
• 改变默认颜色与形状+scale_discrete_manual(values=c("#F0756C","#56BF7E"), aesthetics = 'colour', labels = c("Label 1", 'Label 2'))。这里面values是要设定的值，aesthetics是要设置什么（比如颜色，形状）,labels是标签。
  【这里由于我的疏忽，颜色还是和默认值设的一样。但是用同样的方法是可以改变颜色的。改颜色的例子还可以参考这篇绘制条形图的，获取十六进制颜色码的可以参考获取图片的十六进制颜色码（keynote/ppt取色器）】

5. 改变背景色和边框。这里直接调用了+theme_bw()，也就是ggplot2写好的一个格式主题。也可以参考ggplot2背景边框去除自行调整。