Как упомянуто Камиллой в комментариях - похоже, ваш набор данных представляет собой матрицу, поэтому мы начнем с нее.Мы будем использовать несколько пакетов из tidyverse
для достижения желаемого результата:
library(tidyverse)
mapped_reads <- matrix(c(127281L, 328077L, 99573L, 88251L, 34318L))
rownames(mapped_reads) <- c("A01", "A02", "A03", "A04", "concatanated_data")
mapped_reads
#> [,1]
#> A01 127281
#> A02 328077
#> A03 99573
#> A04 88251
#> concatanated_data 34318
df <- mapped_reads %>%
as_tibble(rownames = "Sample") %>%
rename("Count" = 2)
df
#> # A tibble: 5 x 2
#> Sample Count
#> <chr> <int>
#> 1 A01 127281
#> 2 A02 328077
#> 3 A03 99573
#> 4 A04 88251
#> 5 concatanated_data 34318
Создано в 2019-04-18 пакетом представлением (v0.2,1)