指标数据可视化

1、单指标
线性图
2、双指标
散点图

data1 <- read.csv("可视化数据.csv")
plot(data1$活跃用户~data1$新增用户,pch=16)
abline(lm(data1$活跃用户~data1$新增用户),col="blue",)

3、三指标

plot(data1$活跃用户~data1$新增用户,pch=16,cex=data1$付费率*2,col="violetred2")