使用Tidyverse [重复]

Question

周末快乐 我一直在试图复制R中此

BLOGPOST

的结果。在下面的示例中，通过对

t的转换获得。 tidyr

尽管它实现了我想要的东西，但我发现它有点不熟练。是否有有效的工作流程来传输数据框架？

data

reshape

使用

metadata

，您是除第一个以外的所有列，然后您是收集的列。 try：

data

metadata <- data.frame(colnames(data), t(data[1:4, ]) )
colnames(metadata) <- t(metadata[1,])
metadata <- metadata[-1,]
metadata$Multiplier <- as.numeric(metadata$Multiplier)

the是复制主要答案中的内容，但更广泛地（例如，在其中的工作，

Answer 1

不是结果的第一列）并使用较新的

tidyr

/

gather

动词。

spread但请注意，（如上所述）第一列的名称丢失了。以下内容保留了这一点（我猜是上面@jbkunst提出的

library(dplyr)
library(tidyr)
data %>%
  gather(var, val, 2:ncol(data)) %>%
  spread(Series.Description, val)

方法）。

library(dplyr)
# Omitted data <- structure part ...

Answer 2

reprex软件包（v2.0.0）在2021-05-30创建