R语言数据可视化绘图Lollipop chart棒棒糖图
<div id="navCategory"><h5 class="catalogue">目录</h5><ul class="first_class_ul"><li>Step1. 绘图数据的准备</li><li>Step2. 绘图数据的读取</li><li>Step3.绘图所需package的调用</li><li>Step4.因子水平排序</li><li>Step5.绘图</li></ul></div><p>今天给大家分享的是Lollipop chart(棒棒糖图)的画法。棒棒糖图的用途跟条形图的用法类似，只是看起来更加美观一些，图表形式更加丰富(数据不够、拿图来凑，啥也不能阻止我优秀 )。</p><p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834031.png" /></p>
<p>为了跟之前画的柱状图更好的比较，今天画图使用了相同的数据。</p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834032.png" /></p>
<p>作图思路：棒棒糖图实际上是在散点图的基础上增加了辅助线。</p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834033.png" /></p>
<p>不过在作图过程中还是遇到了和之前一样的问题，数据是按照销量从高到低排列，但是画出的图却是按照字母顺序排列，需要用reorder()函数对因子进行排序。</p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834044.png" /></p>
<p>具体的作图过程如下</p>
<p class="maodian"></p><h2>Step1. 绘图数据的准备</h2>
<p>首先还是要把你想要绘图的数据调整成R语言可以识别的格式excel中保存成csv格式。<br />数据的格式如下图：一列表示一种变量，第一行是列名</p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834045.png" /></p>
<p class="maodian"></p><h2>Step2. 绘图数据的读取</h2>
<div class="jb51code"><pre class="brush:ruby;">data<-read.csv(“your file path”, header = T)
</pre></div>
<p class="maodian"></p><h2>Step3.绘图所需package的调用</h2>
<div class="jb51code"><pre class="brush:ruby;">library(ggplot2)
</pre></div>
<p class="maodian"></p><h2>Step4.因子水平排序</h2>
<div class="jb51code"><pre class="brush:ruby;">data$书名<-factor(data$书名)
data$书名<-reorder(data$书名,-data$销量)
</pre></div>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834046.jpg" /></p>
<p class="maodian"></p><h2>Step5.绘图</h2>
<div class="jb51code"><pre class="brush:ruby;">p<-ggplot(data,aes(x=书名,y=销量))+geom_point(size=3,color="#FF4500")+
geom_line()+geom_segment(aes(x=书名,xend=书名,y=0,yend=销量))+
theme(axis.text.x = element_text(angle = 45, hjust = 0.8, vjust = 0.9))+
xlab("销量排行前十")+theme(legend.position="none")+
scale_y_continuous("销量",breaks = c(0,200000,400000,600000),labels = c("0","200000","400000","600000"))
p
</pre></div>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834047.jpg" /></p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834048.png" /></p>
<p>有强迫症的同学看这个图可能有一些不爽，首先就是图片不高清，其次就是辅助线和数据点的相对位置略微奇怪。</p>
<p>不要慌，不要慌，导出高清图的方法在这里 R语言绘图技巧导出高清图方法</p>
<p>更改图层相对位置只要把代码中geom_piont()和geom_line()+geom_segment()语句的顺序调换一下就好啦。</p>
<p style="text-align:center"><img alt="在这里插入图片描述" src="https://img.jbzj.com/file_images/article/202202/202202180834049.png" /></p>
<p><br />好啦，今天的分享就到这里了，希望可以帮助到大家。</p>
<p>更多关于R语言绘图棒棒糖图的资料请关注琼殿技术社区其它相关文章！</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>ComplexHeatmap绘制单个热图</li><li>R语言绘制corrplot相关热图分析美化示例及详细图解</li><li>R语言两组变量特征相关关系热图绘制画法</li><li>R语言数据可视化绘图bar chart条形图实现示例</li><li>R语言绘图数据可视化Ridgeline plot山脊图画法</li><li>R语言ComplexHeatmap绘制复杂热图heatmap</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]