group by 保留哪一条数据_使用R语言绘制一维数据统计图总结

d0365a87ce95b5deb3a0048f256377ba.png

加载数据 绘制茎叶图 绘制直方图 绘制概率密度曲线 绘制小提琴图 绘制箱线图 绘制小提琴图箱线图 集中趋势统计 分散程度 apply的使用

加载数据

模拟数据下载

library(tidyverse)
cjb <- read.csv("/home/wy/Downloads/cjb.csv",header = TRUE,stringsAsFactors = FALSE,fileEncoding = "UTF-8")

绘制茎叶图

cjb %>% filter(bj == '1101') %>%select(sx) %>%as_vector() %>%stem()
5 | 57996 | 00146 | 557897 | 0000111223344447 | 7888998 | 1112223344448 | 5899 | 224

绘制直方图

sx_hist_result = hist(cjb$sx,plot = FALSE)
typeof(sx_hist_result)
names(sx_hist_result)
# 使用ggplot绘制与hist相同的直方图
ggplot(data = cjb,mapping = aes(sx))+geom_histogram(breaks = sx_hist_result$breaks,color = "darkgray",fill = "white")+stat_bin(breaks = sx_hist_result$breaks,geom = "text",aes(label = ..count..))+coord_flip()

0255984ba7cfd102220104d04f01fa85.png

绘制概率密度曲线

ggplot(data = cjb,mapping = aes(sx))+geom_histogram(breaks = sx_hist_result$breaks,color = "darkgray",fill = "white",aes(y = ..density.. ))+geom_density(color = 'blue')

e4516bc207ab6281e6912cade3db15f2.png

绘制小提琴图

ggplot(cjb,aes(x=factor(0),y=sx))+geom_violin(fill="orange",alpha=0.2)+coord_flip()

6483d8b832493dcebfec1aed63032dad.png

绘制箱线图

c9dc84c40807ae3f26d2846b1fca0765.png
cjb %>%ggplot(aes(x=factor(0),y=sx))+geom_boxplot(width=0.25,fill = "#E69F00",outlier.colour = "red",outlier.shape = 1,outlier.size = .2)+geom_rug(position = "jitter",size=0.1,sides = "l")+coord_flip()

a49d37823a6431e2b8c9084b00bf2085.png
boxplot.stats(cjb$sx)
# $stats 下边界 一分位距 中位数 三分位距 上边界
# [1]  60  81  89  95 100
# $n 数据记录数
# [1] 775
# $conf
# [1] 88.20543 89.79457
# $out 异常点
# [1] 55 59 57 59 58 51 56 55 59 26 58 46  0 59 59

绘制小提琴图+箱线图

cjb %>%ggplot(aes(x=factor(0),y=sx)) +geom_violin(fill="#56B4E9",width=0.75) +geom_boxplot(width=0.25,fill = "#E69F00",outlier.colour = "red",outlier.shape = 1,outlier.size = 2)+geom_rug(position = "jitter",size=0.1,sides = "l")+coord_flip()

b7f8a97615411d43066967c109793ae4.png

集中趋势统计

cjb %>%group_by(wlfk) %>% # 按文理分科分组统计summarise(count = n(), # 各组人数sx_median = median(sx), # 中位数sx_mean = mean(sx) # 均值)
# A tibble: 2 x 4
# wlfk  count sx_median sx_mean
# <chr> <int>     <dbl>   <dbl>
# 1 文科    394        84    82.7
# 2 理科    381        93    89.5

分散程度

cjb %>%group_by(wlfk) %>% # 按文理分科分组统计summarise(sx_max = max(sx), # 最大值sx_min = min(sx), # 最小值sx_range = max(sx) - min(sx) # 极差)# A tibble: 2 x 4
# wlfk  sx_max sx_min sx_range
# <chr>  <int>  <int>    <int>
# 1 文科     100     26       74
# 2 理科     100      0      100
cjb %>%group_by(wlfk) %>% # 按文理分科分组统计summarise(sx_O3 = quantile(sx,3/4), # 第三分位数sx_min = quantile(sx,1/4), # 第一分位数sx_iqr = IQR(sx) # 四分位距)
# A tibble: 2 x 4
# wlfk  sx_O3 sx_min sx_iqr
# <chr> <dbl>  <dbl>  <dbl>
# 1 文科     92     75     17
# 2 理科     96     86     10

apply的使用

round(apply(cjb[,4:12], 2, function(x){c(mean = mean(x),median = median(x),range = diff(range(x)),IQR = IQR(x))
}))
# yw  sx wy  zz  ls  dl  wl  hx  sw
# mean   87  86 87  92  89  93  81  92  86
# median 88  89 88  93  90  94  83  94  88
# range  96 100 99 100 100 100 100 100 100
# IQR     6  14  8   5  10   6  17  10  12
R语言​www.bioinfo.online
06b2fa93ab625f2d9561269102b1b4c3.png

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/276257.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

npm安装和Vue运行

一、开始&#xff1a; 下载地址&#xff1a;http://nodejs.cn/download/ 下载安装&#xff1a; 直到 二、打开CMD,检查是否正常 在安装目录里新增两个文件夹 然后运行命令&#xff1a;如下图&#xff1a; npm config set prefix "D:\InstallSoftWare\nodejs\node_global&q…

Scott 32 岁前端年终总结,探寻另一种可能

今年一年都是飞快 这 10 年编程好时光&#xff0c;花费在不经意间&#xff0c;而立的第三年也即将用完&#xff1a;23 到 26 岁&#xff0c;花在了阿里&#xff0c;从入门到职业迷茫&#xff0c;27 到 29 岁&#xff0c;花在了创业&#xff0c;从热血到倒闭还钱&#xff0c;30 …

跨页数据传递的两种方式

选择具有PostBackUrl属性的三个控件Button、LinkButton、ImageButton。PostBackUrl属性的值就是投递的页面URL。 要在接收页面按对象的方式接收投递页面的表单中的值有两种方式&#xff1a; 1、PreviousPage.FindControl(“控件变量名”)&#xff0c;这个方法返回的是Control类…

linux批量杀进程_Linux下批量杀JAVA进程

在工作中经常需要停止JAVA进程&#xff0c;停止时间也比较长&#xff0c;那么有时候因为一些情况&#xff0c;需要把 linux 下JAVA所有进程kill 掉&#xff0c;又不能用killall 直接杀掉某一进程名称包含的所有运行中进程(我们可能只需要杀掉其中的某一类或运行指定参数命令的进…

用jquery1.9版本判断ie浏览器及ie6浏览器

参考链接&#xff1a;http://www.my0832.com/158182/blog-117887.html jQuery 从 1.9 版开始&#xff0c;移除了 $.browser 和 $.browser.version &#xff0c; 取而代之的是 $.support 。 在更新的 2.0 版本中&#xff0c;将不再支持 IE 6/7/8。 以后&#xff0c;如果用户需要…

嵌入式操作系统 NuttX 5.0 发布

Nuttx 是一个实时嵌入式操作系统&#xff08;RTOS&#xff09;&#xff0c;它有一个小巧是在微控制器的环境中使用。这是完全可扩展&#xff0c;从小型&#xff08;8位&#xff09;至中型嵌入式&#xff08;32位&#xff09;系统。它的目的还 在于要完全符合标准&#xff0c;完…

Windows下Mysql 的安装和卸载

2019独角兽企业重金招聘Python工程师标准>>> 一、安装 1、下载zip文件 2、解压&#xff0c;在bin目录下新建my.ini [mysql] # 设置mysql客户端默认字符集 default-character-setutf8 [mysqld] # 设置3306端口 port3306 # 设置mysql的安装目录 basedirC:\Program Fil…

现在学前端还来得及吗?总听人说饱和了

“前端已经饱和了&#xff0c;现在学前端没有前途了”每次听到这种论调我都气不打一处来。自己技艺不精&#xff0c;然后就说市场饱和了。是&#xff0c;现在的确不是那个会切个图&#xff0c;懂点htmlCSS就能找到工作的年代了。现在对前端的技术要求稍微高了点&#xff0c;但这…

jquery网页刷新后控件失效_jquery动态增减控件如何才能不刷新页面

已结贴√问题点数&#xff1a;20 回复次数&#xff1a;9jquery动态增减控件如何才能不刷新页面用jquery动态管理控件&#xff0c;可是每一次增减控件都会刷新页面&#xff0c;然后控件里面原来输入的值就都不在了&#xff0c;可以怎么来实现在动态增减控件时不刷新页面呢&#…

HTML代码 网页设置 QQ空间等分享

转载链接&#xff1a;http://zhidao.baidu.com/link?urlgpehGR7eSSyilECgVIOuZnDycBUjKABR2VubZAUSRD89qQrNhlCBxHuIUq9mQmvGaQy2RUSw1gAx614JlroXFK 右边&#xff1a; <!-- Baidu Button BEGIN --> <script type"text/javascript" id"bdshare_js&qu…

固定资产减值准备与累计折旧会计核算的关系

转载http://hi.baidu.com/ddumy/blog/item/d96b361901776e7ddab4bdd6.html固定资产减值准备与累计折旧会计核算的关系【摘 要】 固定资产减值准备与累计折旧是固定资产核算的重要组成部分&#xff0c;又都是“固定资产”的备抵项目&#xff0c;它们共同反映着固定资产的现时价值…

DotNetNuke 5 C#版本解读之2--HTTP Modules

在前面文章里说明了DNN的架构&#xff0c;下面这个图应该说是更加能够全面的让你去了解它的结构&#xff1a; 如果你是个asp.net新手建议你看看前面这部分&#xff0c;因为它会向你介绍什么是http module,以及其他的一些概念。我想通过你读这篇文章来明白asp.net的机制&#xf…

用框架的你,可能早已忽略了这些事件API

DOMContentLoaded&#xff0c;load&#xff0c;beforeunload&#xff0c;unloadHTML 页面的生命周期包含三个重要事件&#xff1a;DOMContentLoaded —— 浏览器已完全加载 HTML&#xff0c;并构建了 DOM 树&#xff0c;但像 <img> 和样式表之类的外部资源可能尚未加载完…

调用接口登录禅道_有java调用api登录并验证禅道的实例吗

展开全部本文实例为大家分享了32313133353236313431303231363533e78988e69d8331333363396466JAVA的短信验证码api调用代码&#xff0c;供大家参考&#xff0c;具体内容如下import java.io.BufferedReader;import java.io.DataOutputStream;import java.io.IOException;import j…

[Docker]Docker快速上手学习笔记

0. 学习的一些疑问 如何热更新镜像(images)&#xff1f;&#xff08;你可以快速启动或者销毁容器。这种时间几乎是实时的&#xff09;如何热更新游戏服&#xff1f;好处在于各个应用之间环境相互独立&#xff0c;即使某一个容器崩溃也不会影响到其它容器&#xff1b;每个容器使…

原来 Clipboard 还能复制图像?原理是什么

在写了 这个 29.7 K 的剪贴板 JS 库有点东西&#xff01; 这篇文章之后&#xff0c;收到了小伙伴提的两个问题&#xff1a;1.clipboard.js 这个库除了复制文字之外&#xff0c;能复制图像么&#xff1f;2.clipboard.js 这个库依赖的 document.execCommand API 已被废弃了&…

计算机大数据的前景方向_计算机方向,网络与信息安全和大数据哪个前景好一点?...

大数据是我目前的研究方向之一&#xff0c;我也曾经做过网络安全相关的项目&#xff0c;主要涉及的是各种网络环境下数据传输的安全处理方案。另外&#xff0c;我曾经给高校的学生做过网络安全的系列讲座&#xff0c;系统地整理过网络安全的相关内容&#xff0c;所以我来谈一谈…

Smarty 显示大括号 | 在Smarty中计算数组元素的长度 | Smarty字符串拼接

参考链接&#xff1a;http://hi.baidu.com/bdusnb/item/289d160e6a9c92cd9157183d 参考链接&#xff1a;http://hi.baidu.com/mayimu789/item/b565088d047da0d05f0ec16f 参考链接&#xff1a;http://blog.sina.com.cn/s/blog_8155e74d0101el2k.html Smarty 3 &#xff1a;大…

ftp协议分析(一)

作者: 肖建彬 | 可以转载, 转载时务必以超链接形式标明文章原始出处和作者信息及版权声明网址&#xff1a;http://www.xiaojb.com/archives/it/ftp.shtml根据是使用port模式还是passive模式&#xff0c;ftp使用不同的tcp端口号&#xff0c;在详细描述ftp前&#xff0c;我们来简…

JavaScript 元编程

大家好&#xff0c;我是若川。今天给分享一篇来自freecodecamp的好文。我是freecodecamp杭州社区组织者之一&#xff0c;有一群小伙伴一起组织线下分享活动&#xff0c;不过2020年我们杭州社区几乎没有活跃&#xff0c;我也没有什么贡献。另外&#xff0c;我的公众号「若川视野…