![555382643a91a8fa8d5a987686e139bd.png](https://i-blog.csdnimg.cn/blog_migrate/6427e2601b74057a1f039605b34cb81a.png)
library(ggplot2)
设置随机种子,让样本可重复
set.seed(1410)
在diamonds数据集中随机取100个数据
dsmall <- diamonds[sample(nrow(diamonds), 100), ]
画图(默认点图)
qplot(carat, price, data = diamonds)
qplot(log(carat), log(price), data = diamonds)
qplot(carat, x * y * z, data = diamonds)
![454d139452244a03c6ead3599a716f83.png](https://i-blog.csdnimg.cn/blog_migrate/9c1274a584fc67220fcee44473e2a849.png)
![555382643a91a8fa8d5a987686e139bd.png](https://i-blog.csdnimg.cn/blog_migrate/6427e2601b74057a1f039605b34cb81a.png)
将 color 变量映射到点的颜色 (左),cut 变量映射到点的形状 (右)
qplot(carat, price, data = dsmall, colour = color)qplot(carat, price, data = dsmall, shape = cut)
![9f5dbfc7144f21c612481002ecdb21d4.png](https://i-blog.csdnimg.cn/blog_migrate/6f09c23ccf5773936ad40f9f85fbaa20.png)
![7c7ebd94fa8cc99b1180f86792e4d9bc.png](https://i-blog.csdnimg.cn/blog_migrate/0d4945db03839b7ee363468cd7cd5081.png)
![166634ece1c1668eaf23dcb27b9b6840.png](https://i-blog.csdnimg.cn/blog_migrate/0e472ab4c9216bcd91a68065ab3cb069.png)
qplot(carat, price, data = diamonds, alpha = I(1/10))qplot(carat, price, data = diamonds, alpha = I(1/100))qplot(carat, price, data = diamonds, alpha = I(1/200))
![34c1f1bd36e982abeebd2475045f83c1.gif](https://i-blog.csdnimg.cn/blog_migrate/ea2f85ef601d38c3faf0d8ed8dce810b.gif)
![68eda520ce7efc4be899e6ba7e3af99c.png](https://i-blog.csdnimg.cn/blog_migrate/ae472214d9111da069c9a92e1d558c23.png)
![166634ece1c1668eaf23dcb27b9b6840.png](https://i-blog.csdnimg.cn/blog_migrate/0e472ab4c9216bcd91a68065ab3cb069.png)
![b07b31eb00580fee00a0971a6bf8a86b.png](https://i-blog.csdnimg.cn/blog_migrate/7a23b4cc0d404740a65ce3766d22dbbe.png)
![7b89742816bb5b733a672374c0cca7ed.gif](https://i-blog.csdnimg.cn/blog_migrate/dd2e1fda5574b0ddd743d49c0558b5de.gif)