给你安排一个懂生信的工具人（四）：ggplot2"作弊器"

往期回顾：

ggplot2是R语言中的可视化利器，事实上几乎所有的R包中的可视化功能都是基于ggplot2实现的（当然也包括做单细胞最常用的Seurat）。ggplot2的地位毋庸置疑，学习好ggplot2也是每一位R语言工作者的基本功，但是其功能强大的背后也意味着学习需要更多的代码功底。这里，给大家介绍两个R包，它们成功的将ggplot2包装为“鼠标点击的版本”，不仅能方便大家绘图；更能将鼠标绘制出的图以代码的形式返回，方便大家进行ggplot2语法的学习。

一、作弊器一 ggThemeAssist 

if(!require(ggThemeAssist))install.packages("ggThemeAssist")
if(!require(ggplot2))install.packages("ggplot2")
gg <- ggplot(mtcars, aes(x = hp, y = mpg, 
                         colour = as.factor(cyl))) + 
  geom_point()
gg
ggThemeAssistGadget(gg)
#点击done后代码会自动返回代码输入框

图片中有许多鼠标可点击的按钮，大家可以自己点击调整参数，点击箭头指出的done，ggThemeAssist可以自动将该图片绘制的代码返回代码区中。

二、作弊器二  esquisse

考虑到ggThemeAssist还是存在缺陷——需要预先简单的构建ggplot2对象作为ggThemeAssist的输入对象。因此下面这个包堪称顶级，只需运行下面的两行代码后，便可以开始快乐的图片绘制。

#################
if(!require(esquisse)) install.packages("esquisse");if(!require(ggplot2))install.packages("ggplot2")
esquisse::esquisser()
#以拖动的方式选择参数
#点击 insert

运行后可以通过import输入数据，通过鼠标进行绘图，右下角的code中也可以返回该图片对象对应的代码。

请不要打赏，大家觉得号里的推送有用可以分享给你们的友友们~