Вот один вариант с enframe
, если начальный ввод имеет имя vector
library(tibble)
library(dplyr)
enframe(signature_group_factor, name = "signature", value = "quantity")
# A tibble: 5 x 2
# signature quantity
# <chr> <dbl>
#1 S1 24
#2 S2 80
#3 S3 111
#4 S4 15
#5 S5 210
Или с использованием stack
из base R
out <- setNames(stack(signature_group_factor)[2:1], c("signature", "quantity"))
out
# signature quantity
#1 S1 24
#2 S2 80
#3 S3 111
#4 S4 15
#5 S5 210
данные
signature_group_factor <- setNames(c(24, 80, 111, 15, 210), paste0("S", 1:5))