R语言统计与分析第六周总结

可视化

绘制气泡图

w <- read.csv(“D://小学期/可视化数据.csv”, header = F,
as.is=T)
str(w)
head(w)
data.names <- c(“日期”,“活跃用户”,“新增用户”,“付费率”,
“付费用户”,“首次付费用户”,“ARPPU”,“ARPU”)
colnames(w) <- data.names
str(w)
head(w)
#单指标数据可视化
summary(w)
w$new.date<-paste(substr(w$日期,6,7),substr(w$日期,9,10),sep="/")//将日期进行规范化head(w)barplot(height=w$新增用户, names.arg = wKaTeX parse error: Expected 'EOF', got '#' at position 222: …lor_FFFFFF,t_70#̲pic_center) #双指…活跃用户~wKaTeX parse error: Expected 'EOF', got '#' at position 60: …户 vs 新增用户散点图") #̲添加线性拟合直线 abline…活跃用户~w$新增用户),col=“blue”,lwd=2,lty=2)
#还可以进行哪些双指标分析？通过分析双指标，得出相对应的结论。

#三指标数据可视化
plot(w$活跃用户w$新增用户,col=“violetred2”,pch=16,
cex=w$付费率,
main=“活跃用户 vs 新增用户气泡图”)

同比 环比

data <- data.frame(pre=c(113,134,123,145,137,196,187),
now=c(129,122,134,149,146,215,208));
ylim.max <- 550
col = c(“azure4”,“brown4”)
##将主副标题放到barplot函数里，进行设置
##font=3,表示字体为“斜体”
##cex=1.5,表示字体放大1.5倍
barplot(as.matrix(rbind( data