У меня есть вектор, элементы которого я хотел бы увеличить на основе другого вектора.
Как увеличить количество элементов в моем векторе, не вводя его вручную? Я хочу использовать два вектора
NumberofTimes<-c(4,1,2,3)
Spread<-c(0.060,0.170,0.140,0.070)
```
I.e. I want a vector with 4 of the 0.060, 1 of the 0.170, 2 of the 0.140, etc.
Instead of writing:
```
Spread<-c(0.060,0.060,0.060,0.060,0.170,0.140,0.140,0.070,0.070,0.070)
```
Базовая функция R rep с аргументом времени
> rep(Spread, times = NumberofTimes)
[1] 0.06 0.06 0.06 0.06 0.17 0.14 0.14 0.07 0.07 0.07
Попробуйте это, используя mapply() и функцию с rep() для переноса последовательностей между Spread и NumberofTimes. Вот код:
#Data
NumberofTimes<-c(4,1,2,3)
Spread<-c(0.060,0.170,0.140,0.070)
#Apply
vecval <- unlist(mapply(function(x,y) rep(x,y),x=Spread,y=NumberofTimes))
Выход:
[1] 0.06 0.06 0.06 0.06 0.17 0.14 0.14 0.07 0.07 0.07
Вариант с Map
unlist(Map(rep, Spread, NumberofTimes))
