R 中数据集的分组和平均值

Question

我想计算不同三次重复的平均值，但似乎找不到一个好方法来做到这一点。我尝试过对数据集进行分组和总结，但仍然没有成功。我使用以下代码来修剪我的数据集：

Data_mini <- 
  Trimmed_Data %>% 
  group_by(Component.Name, Sample.Name) %>%
  summarise(Area.Ratio)
        summarise(DF_ABCR, mymean = mean(Area.Ratio))

我有一个带有组件名称、样本名称和面积比的虚拟数据集。我需要计算每个组件名称的 A1_ABCR1、B1_ABCR1 和 C1_ABCR1（样本名称）的平均值。请参阅图像以获取数据集的直观概述。谁能分享他们对如何最好地解决这个问题的看法？预先感谢您:) 虚拟数据集视觉概述

Answer 1

我创建了一个示例数据：

Trimmed_Data <- data.frame(Sample.Name = c("A1_ABCR1", "B1_ABCR1", "C1_ABCR1", "A1_ABCR1", "B1_ABCR1", "C1_ABCR1"),
                             Component.Name = c("BAD_acetylcarnitine", "BAD_acetylcarnitine", "BAD_acetylcarnitine", "BAD_alanine", "BAD_alanine", "BAD_alanine"),
                             Area.Ratio = runif(6, 0, 100))

示例数据：

  Sample.Name      Component.Name Area.Ratio
1    A1_ABCR1 BAD_acetylcarnitine   70.51099
2    B1_ABCR1 BAD_acetylcarnitine   48.85098
3    C1_ABCR1 BAD_acetylcarnitine   36.42945
4    A1_ABCR1         BAD_alanine   22.29663
5    B1_ABCR1         BAD_alanine   63.06249
6    C1_ABCR1         BAD_alanine   78.02675

您可以使用此代码来计算单位面积比率的平均值：

Data_mini <- 
    Trimmed_Data %>% 
    group_by(Component.Name, Sample.Name) %>%
    summarise(mean.Area.Ratio = mean(Area.Ratio))
  
  Data_mini

输出：

# A tibble: 6 × 3
# Groups:   Component.Name [2]
  Component.Name      Sample.Name mean.Area.Ratio
  <chr>               <chr>                 <dbl>
1 BAD_acetylcarnitine A1_ABCR1               70.5
2 BAD_acetylcarnitine B1_ABCR1               48.9
3 BAD_acetylcarnitine C1_ABCR1               36.4
4 BAD_alanine         A1_ABCR1               22.3
5 BAD_alanine         B1_ABCR1               63.1
6 BAD_alanine         C1_ABCR1               78.0