电力公司:用R做两列不同数字的直方图和饼图以及趋势图

原创 2018年04月16日 17:41:51

统计表内各行业分别有多少个?

1 直方图

setwd("E:/自己重要的文件/R语言个人分类总结/图书配套数据、代码/chapter6/示例程序")

# 设置工作空间

data_FB <- read.csv("./data/窃漏电用户分布分析.csv", header = TRUE)
Type <- table(data_FB[, 3])
p <- barplot(Type, space = 0, ylim=c(0, 30), col=rainbow(7),xaxt="n",ylab = "计数", main = "窃电用户用电类别分布分析")

# xaxt="n"设置是否显示x轴信息,axes=F不显示坐标轴

# 颜色可以用heat.colors,terrain.colors,cm.colors等

#space = 0,各条形组之间的距离

#ylim = c(0, 30)表示y轴坐标轴在0到30范围

df <- data.frame(Type)


axis(1, p, df$Var1, las = 2)

#axis 是“轴”的意思 ,在图下边(1指在下边)填上变量名字,如大工业,非工业...

text(p, Type, labels = Type,pos = 3)  # 添加数值标签

#在直方柱上添加数字,如23,5,6...

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分离度

3 趋势图分析

日期日电量
2012/2/16200
2012/2/26440
2012/2/36440
2012/2/44293
   共59个数据。

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

plot(1:59, Regular[, 2], type = "l", col = "blue", main = "正常用户的用电量趋势")  # 主标题,x,y轴标题 # 基础绘图


这是去掉1:59的结果。

    

Unusual <- read.csv("./data/窃电用电量数据.csv", header = T)

plot(Unusual[, 2], type = "l", col = "blue")  # 设置主标题,x,y轴标题

把两列数字放在一个图上比较

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

Unusual <- read.csv("./data/窃电用电量数据.csv", header = T)

plot(Regular[,2], col = "blue", lty = 1, type = "l",

     main = "正常用户与窃电用户的用电趋势比较", ylim = c(0,8000),

     ylab = "用电量", xlab = "", xaxt = "n")  # axes = F

axis(1, at = 1:59, Regular[, 1], las = 2)  # 设置x轴

lines(Unusual[,2], col = "red", lty = 2, type = "l")  # 添加窃电数据

legend("bottomleft", legend = c("正常用户","窃电用户",

lty = 1:2, col = c("blue", "red"))  # 添加图例



ASP.NET 在线考试系统 X宝3000元定制c#毕业设计讲解

本课程主要针对某ASP.NET在线考试系统进行视频讲解。该系统定做价格为3000元 ASP.NET 在线考试系统 增强版 自带听力题(可播放MP3)。 该课程是在某在线考核系统的基础上,根据导师要求,增加四六级英语考试中的听力部分,功能包括1、院系管理2、专业管理3、班级管理4、考试科目管理5教师管理6学生管理7听力题管理8选择题9问答题10阅读题管理 共管理员、教师、学生三个不同角色
  • 2017年09月15日 00:24

R语言 柱状图与折线图 趋势图 highcharter (hc_yAxis_multiples)图

首先,本人无任何编程经验,纯自学R语言,所以文章有不足之处还请指出。 1.用到几个包:library(RJDBC);library(highcharter) 2.最近领导对可视化方面有所要求...
  • happy_quanquanj
  • happy_quanquanj
  • 2016-11-04 09:50:32
  • 2219

R 学习 - 散点图

散点图散点图在生物信息分析中是应用比较广的一个图,常见的差异基因火山图、功能富集分析泡泡图、相关性分析散点图、抖动图、PCA样品分类图等。凡是想展示分布状态的都可以用散点图。横纵轴都为数字的散点图解析...
  • qazplm12_3
  • qazplm12_3
  • 2017-08-01 08:23:50
  • 644

R ggplot2画饼状图

library(ggplot2) type
  • wl101yjx
  • wl101yjx
  • 2016-06-02 10:41:09
  • 6453

matplotlib绘制直方图、条形图和饼图

matplotlib绘制直方图、条形图和饼图 matplotlib是一个非常强大的Python第三方绘图包,可以绘制非常多非常漂亮的图形。matplotlib.pyplot提供了一个类Matlab的...
  • hohaizx
  • hohaizx
  • 2018-01-18 22:02:33
  • 475

ggplot2——饼图篇

目录: 原始图样 如何去除饼图中心的杂点 如何去除饼图旁边的标签 如何去掉左上角多出来的一横线 如何去掉图例的标题,并将图例放到上面 如何对图例的标签加上百分比 如何让饼图的小块按顺时针从...
  • Bone_ACE
  • Bone_ACE
  • 2015-08-13 01:28:35
  • 12280

R语言之饼状图

# 饼图在商业世界中无所不在,然而多数统计学家,包括相应R文档的编写者却都对它持否定 # 态度。相对于饼图,他们更推荐使用条形图或点图,因为相对于面积,人们对长度的判断更精确。 # 也许由于这个原因,...
  • u012429555
  • u012429555
  • 2017-12-23 17:11:58
  • 208

R语言绘制双坐标图直方图与折线的结合

par(mar = c(5, 5, 3, 4)+0.1) #似乎是设置图片位置 bar col="blue",col.axis="blue",col.lab="blue") mtext(c...
  • xspyzm
  • xspyzm
  • 2017-08-17 14:49:31
  • 728

【R 语言 可视化】在直方图上面添加密度曲线

rm(list=ls()) gc() set.seed(1234) score
  • u013421629
  • u013421629
  • 2017-06-12 16:51:24
  • 3162

C# winform chart 饼图 直方图 and so on

在[工具]->[添加/移出工具箱]->鼠标单击->选择[COM组件]找到Mcrosoft Chart Control 6.0(SP4)(oledb) 选中,然后[确定],你会发现你的工具箱里面有了一个...
  • mustbelove
  • mustbelove
  • 2007-01-24 09:28:00
  • 6667
收藏助手
不良信息举报
您举报文章:电力公司:用R做两列不同数字的直方图和饼图以及趋势图
举报原因:
原因补充:

(最多只允许输入30个字)