![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/15edb96e2cd236676be05599f808fef5.png)
# 计算每类用户类别及用户数
Type <- table(data_FB[, 3])
# 方法1:基础绘图
p <- barplot(Type, space = 0, ylim = c(0, 30), col = rainbow(7), xaxt = "n",
ylab = "计数", main = "窃电用户用电类别分布分析")
df <- data.frame(Type)
axis(1, p, df$Var1, las = 2)
text(p, Type, labels = Type,pos = 3) # 添加数值标签
# xaxt="n"设置是否显示x轴信息,axes=F不显示坐标轴
# 颜色可以用heat.colors,terrain.colors,cm.colors等
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/b4774d0d2e9295c14d801123bad0b6be.png)
# 方法2:饼图
Type <- data.frame(Type)
pct <- round(Type$Freq / sum(Type$Freq) * 100, 1)
lbls <- paste0(Type$Var1, pct, "%")
pie(Type$Freq, labels = lbls) # 普通饼图
library(plotrix) # 3D饼图
pie3D(Type$Freq, labels = lbls, main = "窃电用户用电类别分布",
labelrad = 1.4, start = 3)
pie3D(Type$Freq, labels = lbls, explode = 0.1, radius = 1)
# radius半径,explode分离度
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/b911d845ad3b21cdf8f0b7fb4259e6a0.png)
# ----------------------------正常用户用电量趋势分析---------------------------
Regular <- read.csv("正常用电量数据.csv",header=T)