电力窃漏电用户自动识别 细节

# 计算每类用户类别及用户数
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等

# 方法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分离度

# ----------------------------正常用户用电量趋势分析---------------------------

Regular <- read.csv("正常用电量数据.csv",header=T)