r语言crosstable函数

时间: 2023-10-28 07:04:51 浏览: 73
在 R 语言中,可以使用 `table()` 函数来生成数据的频数表。而 `CrossTable()` 函数则是 `gmodels` 包中的一个函数,可以用来生成交叉表。 下面是一个示例: ```r # 安装 gmodels 包 install.packages("gmodels") # 加载 gmodels 包 library(gmodels) # 创建一个示例数据框 x <- c("A", "B", "A", "B", "A", "B", "A", "B") y <- c("X", "X", "Y", "Y", "X", "X", "Y", "Y") df <- data.frame(x, y) # 生成交叉表 CrossTable(df$x, df$y) ``` 输出结果如下: ``` Cell Contents |-------------------------| | N | | N / Table Total | |-------------------------| Total Observations in Table: 8 | df$y df$x | X | Y | Row Total | -------------|-----------|-----------|-----------| A | 3 | 1 | 4 | | 0.375 | 0.125 | | -------------|-----------|-----------|-----------| B | 2 | 2 | 4 | | 0.250 | 0.250 | | -------------|-----------|-----------|-----------| Column Total | 5 | 3 | 8 | | 0.625 | 0.375 | | -------------|-----------|-----------|-----------| ``` 可以看到,`CrossTable()` 函数生成了一个交叉表,其中包括每个单元格的频数和相对频率,以及行和列的总计。

相关推荐

form.on('submit(*)', function(data) { data = data.field; // 数据校验 if(!isIntNumer(data.canhuirenshu)){ layer.msg('参会人数应输入整数', { time: 2000, icon: 5 }); return false } // 跨表计算判断 // 比较大小 //更新跨表属性 var crossuserid; var crossrefid; var crossoptnum; if(http.getParam('corss')){ var statusColumnName = localStorage.getItem('statusColumnName'); var statusColumnValue = localStorage.getItem('statusColumnValue'); if(statusColumnName!='') { var obj = JSON.parse(localStorage.getItem('crossObj')); if(!statusColumnName.startsWith("[")) { for (var o in obj){ if(o==statusColumnName){ obj[o] = statusColumnValue; } } var table = localStorage.getItem('crossTable'); http.requestJson(${table}/update,'post',obj,(res)=>{}); } else { crossuserid=Number(localStorage.getItem('userid')); crossrefid=obj['id']; crossoptnum=localStorage.getItem('statusColumnName'); crossoptnum=crossoptnum.replace(/\[/,"").replace(/\]/,""); } } } if(crossrefid && crossuserid) { data.crossuserid=crossuserid; data.crossrefid=crossrefid; http.request('huiyishiyuyue/list', 'get', { page: 1, limit: 10, crossuserid:crossuserid, crossrefid:crossrefid, }, function(res) { if(res.data.total>=crossoptnum) { layer.msg(localStorage.getItem('tips'), { time: 2000, icon: 6 }) return false; } else { // 跨表计算 // 提交数据 http.requestJson('huiyishiyuyue' + '/add', 'post', data, function(res) { layer.msg('提交成功', { time: 2000, icon: 6 }, function() { back(); }); }); } }); } else { // 跨表计算 // 提交数据 http.requestJson('huiyishiyuyue' + '/add', 'post', data, function(res) { layer.msg('提交成功', { time: 2000, icon: 6 }, function() { back(); }); }); } return false

onAcrossTap(acrossTable,crossOptAudit,statusColumnName,tips,statusColumnValue){ if(crossOptAudit=='是'&&this.detail.sfsh!='是') { layer.msg('请审核通过后再操作', { time: 2000, icon: 3 }); return } localStorage.setItem('crossTable',huiyishiyuyue); localStorage.setItem('crossObj', JSON.stringify(this.detail)); localStorage.setItem('statusColumnName',statusColumnName); localStorage.setItem('statusColumnValue',statusColumnValue); localStorage.setItem('tips',tips); if(statusColumnName!=''&&!statusColumnName.startsWith("[")) { var obj = JSON.parse(localStorage.getItem('crossObj')); for (var o in obj){ if(o==statusColumnName && obj[o]==statusColumnValue){ layer.msg(tips, { time: 2000, icon: 5 }); return } } } jump(../${acrossTable}/add.html?corss=true); }, } }) layui.use(['layer', 'form', 'element', 'carousel', 'http', 'jquery', 'laypage'], function() { var layer = layui.layer; var element = layui.element; var form = layui.form; var carousel = layui.carousel; var http = layui.http; var jquery = layui.jquery; var laypage = layui.laypage; var limit = 10; // 数据ID var id = http.getParam('id'); vue.detail.id = id; vue.baseurl = http.baseurl; // 商品信息 http.request(${vue.detailTable}/detail/ + id, 'get', {}, function(res) { // 详情信息 vue.detail = res.data // var swiperItemHtml = ''; // for (let item of vue.swiperList) { // swiperItemHtml += // '' + // '' + // ''; // } // jquery('#swiper-item').html(swiperItemHtml); // 轮播图 vue.$nextTick(() => { carousel.render({ elem: '#swiper', width: '400px', height: '400px', arrow: 'hover', anim: 'default', autoplay: 'true', interval: '3000', indicator: 'inside' });

最新推荐

recommend-type

用html5的canvas和JavaScript创建一个绘图程序的简单实例

下面小编就为大家带来一篇用html5的canvas和JavaScript创建一个绘图程序的简单实例。小编觉得挺不错的, 现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧
recommend-type

小xlsx1111111111111

小xlsx1111111111111
recommend-type

ATMega board for VisualStudio IDE

APM Mega board for VisualStudio. 對於想要使用 ArduPilot 在 VisualStudio 下編譯的人所需要的一個主板芯片設置檔案.
recommend-type

一款极好用的 Office/WPS/Word/Excel/PPT/PDF工具箱软件 OfficeUtils 2.8

OfficeUtils(Office助手/工具箱)软件是一款极好用的、绿色的 Office/WPS/PDF 辅助处理工具,可用于处理一些 Office 无法解决或轻易解决的问题(如PDF转Word、PDF图片提取、Excel多列组合排序、Excel表合并、Excel提取身份证生日、Word口算题等)。该工具很适合文职工作人员,不需要掌握数据库和编程知识,可批量高效地处理文档,增加办公效率。 https://blog.csdn.net/surfsky/article/details/138686503 # 最新版功能 Excel - Excel 高级查询(列处理、条件过滤、组合排序) - Excel 高级统计(数量、求和、最大值、最小值、平均值、方差) - Excel 关联合并 - Excel 拆分单元格 - Excel 拆分文件 - Excel 合并文件 Word - Word 模板文件生成 - Word 口算生成器 PPT - PPT 模板页面生成 PDF - PDF 转 Word
recommend-type

计算机图形学-从0开始构建一个OpenGL软光栅

视频课程下载——计算机图形学—从0开始构建一个OpenGL软光栅
recommend-type

中文翻译Introduction to Linear Algebra, 5th Edition 2.1节

中文翻译Introduction to Linear Algebra, 5th Edition 2.1节 线性代数的核心问题是求解方程组。这些方程都是线性的,即未知数仅与数相乘——我们绝不会 遇见 x 乘以 y。我们的第一个线性方程组较小。接下来你来看看它引申出多远: 两个方程 两个未知数 x − 2y = 1 3x + 2y = 11 (1) 我们一次从一个行开始。第一个方程 x − 2y = 1 得出了 xy 平面的一条直线。由于点 x = 1, y = 0 解 出该方程,因此它在这条直线上。因为 3 − 2 = 1,所以点 x = 3, y = 1 也在这条直线上。若我们选择 x = 101,那我们求出 y = 50。 这条特定直线的斜率是 12,是因为当 x 变化 2 时 y 增加 1。斜率在微积分中很重要,然而这是线 性代数! 图 2.1 将展示第一条直线 x − 2y = 1。此“行图”中的第二条直线来自第二个方程 3x + 2y = 11。你 不能错过两条线的交点 x = 3, y = 1。点 (3, 1) 位于两条线上并且解出两个方程。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

识别MATLAB微分方程求解中的混沌行为:分析非线性方程混沌行为的实用技巧

![matlab求解微分方程](https://img-blog.csdnimg.cn/2021062810300367.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTQ3OTY3OA==,size_16,color_FFFFFF,t_70) # 1. MATLAB微分方程求解概述 微分方程是描述物理、工程和金融等领域中动态系统的数学模型。MATLAB提供了强大的工具来求解微分方程,包括内置求解器和自定义函数
recommend-type

physon如何做ERP系统

作为一个AI语言模型,我可以给您提供一些基本的建议和思路: 1.明确需求和目标:在开始开发ERP系统之前,需要明确您的业务需求和目标,了解您的业务流程、流程数据、员工角色和权限、财务管理等方面的要求,这样才能更好的设计和开发ERP系统。 2.选择技术框架和开发工具:选择合适的技术框架和开发工具是ERP系统开发的关键。选择一种流行的技术框架和工具可以提高开发效率和质量。 3.设计数据库:ERP系统需要一个功能强大的数据库来存储数据。设计数据库需要考虑数据的完整性、安全性和可扩展性。 4.设计系统架构:系统架构是ERP系统的骨架,需要考虑系统的可扩展性、可维护性和性能。 5.开发和测试:
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。