当前位置:主页 > >

R语言数据可视化绘图Lollipop chart棒棒糖图

时间:2023-02-03 07:39:29 | 栏目: | 点击:

今天给大家分享的是Lollipop chart(棒棒糖图)的画法。棒棒糖图的用途跟条形图的用法类似,只是看起来更加美观一些,图表形式更加丰富(数据不够、拿图来凑,啥也不能阻止我优秀 )。

在这里插入图片描述

为了跟之前画的柱状图更好的比较,今天画图使用了相同的数据。

在这里插入图片描述

作图思路:棒棒糖图实际上是在散点图的基础上增加了辅助线。

在这里插入图片描述

不过在作图过程中还是遇到了和之前一样的问题,数据是按照销量从高到低排列,但是画出的图却是按照字母顺序排列,需要用reorder()函数对因子进行排序。

在这里插入图片描述

具体的作图过程如下

Step1. 绘图数据的准备

首先还是要把你想要绘图的数据调整成R语言可以识别的格式excel中保存成csv格式。
数据的格式如下图:一列表示一种变量,第一行是列名

在这里插入图片描述

Step2. 绘图数据的读取

data<-read.csv(“your file path”, header = T) 

Step3.绘图所需package的调用

library(ggplot2)

Step4.因子水平排序

data$书名<-factor(data$书名)
data$书名<-reorder(data$书名,-data$销量)

在这里插入图片描述

Step5.绘图

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

在这里插入图片描述

在这里插入图片描述

有强迫症的同学看这个图可能有一些不爽,首先就是图片不高清,其次就是辅助线和数据点的相对位置略微奇怪。

不要慌,不要慌,导出高清图的方法在这里 R语言绘图技巧导出高清图方法

更改图层相对位置只要把代码中geom_piont()和geom_line()+geom_segment()语句的顺序调换一下就好啦。

在这里插入图片描述


好啦,今天的分享就到这里了,希望可以帮助到大家。

您可能感兴趣的文章:

相关文章