Я предполагаю, что ваши исходные данные - это фрейм данных.В этом случае вы можете просто использовать t()
для преобразования его в транспонированный кадр данных:
# Create original data frame
original.df <- data.frame(t(c(0.97949, 1.29, 3.02194675, 0.41881809)))
colnames(original.df) <- c(1, 2, 3, 4)
original.df
# 1 2 3 4
# 1 0.97949 1.29 3.021947 0.4188181
# Transpose it and rename the column
df <- data.frame(DIH=t(original.df))
df
# DIH
# 1 0.9794900
# 2 1.2900000
# 3 3.0219468
# 4 0.4188181