r - 重塑（转换为字符）

Question

我有以下矩阵

data=structure(list(Metric = c("x", "y"), Result1 = c(9, 
18), Result2 = c(7, 14
), Delta = c(-170, -401)), .Names = c("Metric", 
"Result_1", "Result_2", "Delta"), row.names = c(NA, 
-2L), class = "data.frame")

我想将其转换为 1 行并将列数加倍

我尝试了以下(as.vector(t(data))). 但是，当我这样做时，它会将所有内容转换为字符，并且我会丢失数据信息

有什么帮助吗？

Answer 1

我们可以拆分数据框，然后bind_cols从dplyr包中使用。虽然我不确定这是您的预期输出，因为您没有提供任何示例，只是描述。

dplyr::bind_cols(split(data, data$Metric))

  Metric Result_1 Result_2 Delta Metric1 Result_11 Result_21 Delta1
1      x        9        7  -170       y        18        14   -401

Answer 2

在基础 R

dd=stack(data)
A=dd$values
names(A)=dd$ind
data.frame(as.list(A))

      Metric Metric.1 Result_1 Result_1.1 Result_2 Result_2.1 Delta Delta.1
1      x        y        9         18        7         14  -170    -401