Вот предлагаемое решение:
Установка базового кадра данных, на который ссылаются:
X12_5_3 <- data.frame ("P" = c (5350, 25831,5594, 10359), «1» = c (17 788 968 212), «2» = c (44 890 218 185), «3» = c (50, 1409, 344, 306)) </p>
Создание фрейма данных из вектора из 4 значений
weight <- data.frame (c (0,4, 0,4, 0,6, 0,6)) </p>
Связать оба фрейма данныхс cbind()
после последнего столбца данных
X12_5_3 <- cbind (X12_5_3, вес) </p>
Переименовать столбцы с помощью colnames
имена столбцов (X12_5_3) <- c («P», «1», «2», «3», «weight») </p>
Просмотр обновленного фрейма данных:
X12_5_3
Это покажет ваш фрейм данных с именем X12_5_3
с добавленными данными столбца.
Вывод на консоль:
> X12_5_3 <- data.frame( "P" = c(5350, 25831, 5594, 10359),
+ "1" = c(17,788,968,212),
+ "2" = c(44,890,218,185),
+ "3" = c(50, 1409, 344, 306) )
>
> weight <- data.frame( c( 0.4, 0.4, 0.6, 0.6))
>
> X12_5_3 <- cbind(X12_5_3, weight)
> colnames(X12_5_3) <- c("P", "1", "2", "3", "weight")
>
> X12_5_3
P 1 2 3 weight
1 5350 17 44 50 0.4
2 25831 788 890 1409 0.4
3 5594 968 218 344 0.6
4 10359 212 185 306 0.6