如何用r完成如下数据库整理

Question

数据是导出的，不知道如何整理，希望赐教，如何用R，把图1整理为图2，谢谢

Answer 1

如下代码：

# 导入数据
data <- data.frame(
  Name = c("A", "B", "B", "B", "Z", "Z"),
  Time = c(6, 8, 4, 5, 5, 7),
  Height = c(11, 15, 11, 17, 15, 16),
  Weight = c(15, 20, 17, 18, 20, 20),
  BPA = c(90, 88, 85, 81, 82, 90)
)

# 创建表格二的数据框
data2 <- data.frame(
  Name = unique(data$Name),
  Time1 = NA,
  Height1 = NA,
  Weight1 = NA,
  BP1 = NA,
  Time2 = NA,
  Height2 = NA,
  Weight2 = NA,
  BP2 = NA,
  Time3 = NA,
  Height3 = NA,
  Weight3 = NA,
  BP3 = NA
)

# 更新表格二的数据
for (i in 1:nrow(data)) {
  name <- data[i, "Name"]
  time <- data[i, "Time"]
  height <- data[i, "Height"]
  weight <- data[i, "Weight"]
  bpa <- data[i, "BPA"]
  
  index <- which(data2$Name == name)
  
  if (is.na(data2[index, "Time1"])) {
    data2[index, c("Time1", "Height1", "Weight1", "BP1")] <- c(time, height, weight, bpa)
  } else if (is.na(data2[index, "Time2"])) {
    data2[index, c("Time2", "Height2", "Weight2", "BP2")] <- c(time, height, weight, bpa)
  } else if (is.na(data2[index, "Time3"])) {
    data2[index, c("Time3", "Height3", "Weight3", "BP3")] <- c(time, height, weight, bpa)
  }
}

# 打印表格二
print(data2)