漏斗模型图

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/u010380670/article/details/84941513
data3 <- read.csv("新手教程路径留存人数统计.csv")
data3
data3_ordered <- data3[order(data3$用户数),] 
barplot(data3_ordered$用户数,horiz = T,axes=F,border=F,
        space=0.5,col="steelblue1",xlim=c(-700,700),main="关键路径漏斗图")

在这里插入图片描述

barplot(-data3_order$用户数,horiz=T,add=T,border=F,space=0.5,
        axes=F,col="steelblue1")

在这里插入图片描述

# 增加步骤名称
text(x=rep(-600,6),y=seq(1,8.5,length.out = 6),
     labels=data3_order$事件行为,cex=0.8,font=3,col="black")
# 增加总体的转化率
text(x=rep(0,6),y=seq(1,8.5,length.out = 6),
     labels=paste0(round(data3_order$用户数*100/max(data3_order$用户数),2),"%"),
     cex=0.8,font=3,col="violetred3")
# 增加上一步的转化率
text(x=rep(max(funnel$用户数),6),y=seq(2,7.5,length.out = 5),
     labels=paste0(round((1-(-diff(data3$用户数)/data3$用户数[1:5]))*100,2),"%"),
     cex=0.8,font=4,col="red3")

在这里插入图片描述

展开阅读全文

没有更多推荐了,返回首页