Мы можем либо stack
до data.frame
, paste
columnns ('values', 'ind') вместе с аргументами sep
и collapse
with(stack(equiposcount), paste(values, ind, sep=" ", collapse=", "))
#[1] "138 MOVIL, 1 PILA, 13 PORTATIL"
Или непосредственно использовать paste
на names
названного вектора и самого вектора
paste(equiposcount, names(equiposcount), sep=" ", collapse=", ")
#[1] "138 MOVIL, 1 PILA, 13 PORTATIL"
данные
equiposcount <- c(MOVIL = 138, PILA = 1, PORTATIL = 13)