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

1.输入文件：

2.代码：

setwd("E:/R/Rscripts/rG4相关绘图")

# 加载所需的库
libra服务器托管ry(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$sta服务器托管tistic,
      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.fwqtg.net

相关推荐: jenkins离线安装一波

内网安装jenkins对于没有外网的看过来 插件下载神器-jenkins-plugin-manager 服务器托管网 首先下载jenkins，官网地址我就不贴了 下载完正常运行，开始界面不要选择任何插件安装，选择无 去下载一个插件下载工具 https://gi…