有沒有辦法通過重新格式化來總結(jié)數(shù)據(jù)？

使用Rtidyr::pivot_wider，假設(shè)數(shù)據(jù)幀df1中的數(shù)據(jù)：

library(tidyr)
df1 %>% 
  pivot_wider(names_from = "Sample", 
              values_from = "No. of Reads", 
              values_fill = 0)

Result:

# A tibble: 4 x 8
  Position Reference Alternate    P6    P7    P8   P98  P114
     <int> <chr>     <chr>     <int> <int> <int> <int> <int>
1 10017884 C         G             2     1     0     0     0
2 10017884 C         A             0     0     7     0     0
3 10017884 C         T,A           0     0     0     4     0
4 10020433 A         C             0     0     0     4     1

Data:

df1 <- read.table(text = "Sample    Position    Reference   Alternate   'No. of Reads'
P6  10017884    C   G   2
P7  10017884    C   G   1
P8  10017884    C   A   7
P98 10017884    C   T,A 4
P114    10020433    A   C   1
P98 10020433    A   C   4", header = TRUE, check.names = FALSE)