R语言做两次分类,再做两两T检验,最终输出均值和pvalue

1.输入文件:
在这里插入图片描述

2.代码:

setwd("E:/R/Rscripts/rG4相关绘图")# 加载所需的库
library(tidyverse)# 读取CSV文件
data <- read.csv("box-cds-ABD-不同类型rg4-2.csv", stringsAsFactors = FALSE)# 组合Type1和Type2:通过paste0函数创建一个新列CombinedType,这个列是Type1和Type2列值的组合,
# 目的是为了生成区分不同Type1分类下的Type2组(如AG2L1-2、BG2L1-2等)。
data$CombinedType <- paste0(data$Type1, data$Type2)# 定义一个函数,用于进行两两t检验并计算均值,同时避免比较的重复
perform_analysis <- function(subset_data, type_prefix) {# 使用组合类型进行分析subset_data$Type2 <- as.character(subset_data$CombinedType)unique_types <- unique(subset_data$Type2)results <- tibble(Type1 = character(),Group1 = character(),Group2 = character(),Mean1 = numeric(),Mean2 = numeric(),TStatistic = numeric(),PValue = numeric())# 使用combn生成所有唯一的组合combn(unique_types, 2, function(x) {group1 <- x[1]group2 <- x[2]scores1 <- subset_data$Score[subset_data$Type2 == group1]scores2 <- subset_data$Score[subset_data$Type2 == group2]t_test_result <- t.test(scores1, scores2)# 将每次比较的结果追加到结果集results <<- bind_rows(results, tibble(Type1 = type_prefix,Group1 = group1,Group2 = group2,Mean1 = mean(scores1),Mean2 = mean(scores2),TStatistic = t_test_result$statistic,PValue = t_test_result$p.value))}, simplify = FALSE)return(results)
}# 对每个Type1分类进行分析
results_list <- lapply(unique(data$Type1), function(type) {subset_data <- subset(data, Type1 == type)perform_analysis(subset_data, type)
})# 整合结果并输出
all_results <- bind_rows(results_list)
print(all_results)

3.输出结果:
在这里插入图片描述

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

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

相关文章

新装debian常用操作

时间ntp apt-get update apt-get install ntp #编辑配置 nano /etc/ntp.conf填写内容如下&#xff1a; server your-ntp-server #(可选&#xff09;如果您的网络中有本地的 NTP 服务器&#xff0c;您可以添加以下行以使用本地服务器 server your-local-ntp-server iburst #重…

unity 2D游戏使用navmashagent遇到的问题

问题描述&#xff1a; 在2D游戏中使用navmashagent来导航的时候&#xff0c;navmashagent会出现x,y轴旋转&#xff0c;且在代码aweak.start中重置依然用的问题。 解决方法 agent.updateRotation false; agent.updateUpAxis false; 解释以下这两个参数 updateRotation up…

新版 Redis 不再“开源”,对使用者都有哪些影响?

2024年3月20日&#xff0c;Redis Labs 的一个重大声明震惊了开源社区&#xff1a;从 Redis 7.4 版本开始&#xff0c;Redis 将不再遵循原有的 BSD 开源协议&#xff0c;而是转向 RSALv2 和 SSPLv1 的双重许可机制。这一变化标志着 Redis 在 OSI&#xff08;开放源代码促进会&am…

以Monkey为例全方位解析App压力测试的关键要点

概念解读&#xff1a; 以Monkey为例&#xff0c;全方位解析App压力测试的关键要点主要包括以下几个方面&#xff1a; 一、Monkey工具概述 Monkey是Android系统自带的一个命令行工具&#xff0c;用于生成伪随机用户事件流来对应用程序进行压力测试。通过发送大量的随机事件到…

大数据学习-2024/3/28-excel文件的读写操作

借助第三方模块:inxlrd,xlwt pip 第三方模块包管理工具 –> winr --> cmd --> 打开操作系统 –> python --> 查看默认的解释器版本 --> exit() –> pip list --> 查看第三方模块的列表 pip36 list --> 查看3.6版本安装的第三方模块列表 –> pip[…

iOS —— 初识KVO

iOS —— 初始KVO KVO的基础1. KVO概念2. KVO使用步骤注册KVO监听实现KVO监听销毁KVO监听 3. KVO基本用法4. KVO传值禁止KVO的方法 注意事项&#xff1a; KVO的基础 1. KVO概念 KVO是一种开发模式&#xff0c;它的全称是Key-Value Observing (观察者模式) 是苹果Fundation框架…

[LeetCode][LCR187]破冰游戏——约瑟夫环

题目 LCR 187. 破冰游戏 社团共有 num 位成员参与破冰游戏&#xff0c;编号为 0 ~ num-1。成员们按照编号顺序围绕圆桌而坐。社长抽取一个数字 target&#xff0c;从 0 号成员起开始计数&#xff0c;排在第 target 位的成员离开圆桌&#xff0c;且成员离开后从下一个成员开始计…

支持MacOS苹果操作系统的网卡你用过吗?

Marvell AQC113以太网控制器支持苹果操作系统&#xff08;MacOS&#xff09;&#xff0c;进一步扩展搭载了AQC113设备的应用领域。 众所周知&#xff0c;苹果操作系统应用生态完善&#xff0c;是业内备受瞩目的巨头级操作系统&#xff0c;其应用领域覆盖了游戏、社交、娱乐、工…

UE小:基于UE5的两种Billboard material(始终朝向相机材质)

本文档展示了两种不同的效果&#xff0c;分别是物体完全朝向相机和物体仅Z轴朝向相机。通过下面的演示和相关代码&#xff0c;您可以更加直观地理解这两种效果的差异和应用场景。 1. 完全朝向相机效果 此效果下&#xff0c;物体将完全面向相机&#xff0c;不论相机在哪个角度…

STM32学习和实践笔记(3): 使用库函数点亮LED后的学习总结

依照教程&#xff0c;做完了第一个试验&#xff0c;使用库函数点亮LED&#xff0c;如下: 总结一下一些要点&#xff1a; 一&#xff0c;要记得指明各头文件的查找路径&#xff0c;方法如下图&#xff1a; 二&#xff0c;使用库函数来编程相当方便高效&#xff0c;要学会查找对…

Perl基本语法

变量声明&#xff1a;Perl的变量使用特殊符号&#xff08;如$、、%&#xff09;来标识其类型。例如&#xff0c;$表示标量&#xff08;scalar&#xff09;变量&#xff0c;表示数组&#xff08;array&#xff09;变量&#xff0c;%表示哈希&#xff08;hash&#xff09;变量。 …

八大技术趋势案例(云计算大数据)

科技巨变,未来已来,八大技术趋势引领数字化时代。信息技术的迅猛发展,深刻改变了我们的生活、工作和生产方式。人工智能、物联网、云计算、大数据、虚拟现实、增强现实、区块链、量子计算等新兴技术在各行各业得到广泛应用,为各个领域带来了新的活力和变革。 为了更好地了解…

QT控件之输入窗口控件

Qt Designer窗口部件提供的面板中&#xff0c;提供了16种输入部件 &#xff08;1&#xff09;QComboBox继承QWidget类&#xff0c;被QFontComboBox类继承。通常用于用户显示选项列表的 方法&#xff0c;这种方法占用最少的屏幕空间。 &#xff08;2&#xff09;QFontComboBox继…

CI/CD实战-jenkins结合ansible

配置主机环境 在jenkins上断开并删除docker1节点 重新给master添加构建任务 将server3&#xff0c;server4作为测试主机&#xff0c;停掉其上后面的docker 在server2&#xff08;jenkins&#xff09;主机上安装ansible 设置jenkins用户到目标主机的免密 给测试主机创建用户并…

每日OJ题_子序列dp①_力扣300. 最长递增子序列

目录 力扣300. 最长递增子序列 解析代码 力扣300. 最长递增子序列 300. 最长递增子序列 难度 中等 给你一个整数数组 nums &#xff0c;找到其中最长严格递增子序列的长度。 子序列 是由数组派生而来的序列&#xff0c;删除&#xff08;或不删除&#xff09;数组中的元素…

百度智能小程序源码系统简洁版 SEO关键词排名推广优化 带完整的安装代码包以及搭建教程

移动互联网的快速发展&#xff0c;小程序以其轻量级、无需下载、即用即走的特点&#xff0c;迅速成为了各大平台争相推广的重要产品形态。百度智能小程序作为百度生态下的重要一环&#xff0c;凭借其强大的流量入口和丰富的功能组件&#xff0c;为开发者提供了广阔的创作空间。…

设计模式之外观模式解析

外观模式 1&#xff09;概述 1.问题 在软件开发中&#xff0c;为完成一项较为复杂的功能&#xff0c;一个客户类需要和多个业务类交互&#xff0c;而这些需要交互的业务类经常会作为一个整体出现&#xff0c;由于涉及到的类比较多&#xff0c;导致使用时代码较为复杂。 2.作…

维修ESA意萨触摸屏 VT585WAPS00 工控一体机 人机界面 工业电脑

ESA显示屏尺寸从 4.3 英寸到 15 英寸&#xff0c;带白色 LED 背光触摸屏 SP1串口&#xff08;RS232/RS485&#xff0c;集成MPI&#xff09;用于终端配置的 USB 端口&#xff08;设备类型&#xff09; COM0 端口 (RS-232)、USB 端口&#xff08;主机类型&#xff09;&#xff0c…

吴恩达机器学习笔记 三十 什么是聚类 K-means

聚类(clustering)是一种无监督学习算法&#xff0c;关注多个数据点并自动找到相似的数据点&#xff0c;在数据中找到一种特定的结构。无监督学习算法的数据集中没有标签 y &#xff0c;所以不能说哪个是“正确的 y ”。 K-means算法 K-means算法就是在重复做两件事&#xff1a…

北斗短报文+4G应急广播系统:实时监控 自动预警 保护校园安全的新力量

安全无小事&#xff0c;生命重如山。学生是祖国的未来&#xff0c;校园安全是全社会安全工作的一个重要的组成部分。它直接关系到青少年学生能否安健康地成长&#xff0c;关系到千千万万个家庭的幸福安宁和社会稳定。 灾害事故和突发事件频频发生&#xff0c;给学生、教职员工…