在R中迭代子集和换台表

Question

我有这个表（ inputdf ）：

数值	0
1	0.2
1	0.3
1	0.4
2	0.2
0.2 2	0.7
3	0.1

，我想获得此（ outputddf ）：

number1	number2	number2 0.2
0.2	0.2	0.1
0.1 0.3	0.7	Na
0.4	Na	i i

已通过使用第1列中的数字进行循环迭代，然后按照该数字来子集，但是我有麻烦将结果附加到输出数据框中：

inputdf <- read.table("input.txt", sep="\t", header = TRUE)
outputdf <- data.frame()

i=1
total=3 ###user has to modify it

for(i in seq(1:total)) {
  cat("Collecting values for number", i, "\n")
  values <- subset(input, Number == i, select=c(Value))
  cbind(outputdf, NewColumn= values, )
  names(outputdf)[names(outputdf) == "NewColumn"] <- paste0("Number", i)
}

任何帮助或提示都将做得很好。提前致谢！

Answer 1

在tidyverse中，您可以为组的每个元素创建一个ID，然后使用tidyr :: pivot_wider：

library(tidyverse)
dat %>% 
  group_by(Number) %>% 
  mutate(id = row_number()) %>% 
  pivot_wider(names_from = Number, names_prefix = "Number", values_from = "Value")

# A tibble: 3 × 4
      n Number1 Number2 Number3
  <int>   <dbl>   <dbl>   <dbl>
1     1     0.2     0.2     0.1
2     2     0.3     0.7    NA  
3     3     0.4    NA      NA 

---

在base> base r中，相同的想法。创建ID列，然后重新设计为宽：

transform(dat, id = with(dat, ave(rep(1, nrow(dat)), Number, FUN = seq_along))) |>
  reshape(direction = "wide", timevar = "Number")