数据整理

--宽变长pivot_longer

cols指定哪些列需要转换，也就是哪些列不是变量，可以使用与select相同的语法，starts_with("wk")是以wk开头的列；

names_to给用来存储列名的变量命名；

values_to给用来存储单元格值的变量命名；

范例中week和rank都加双引号，因为他们是要创建的新变量，运行pivotlonger调用时候他们还不在数据中. valuesdropna = TRUE清除缺失值

df |> 
  pivotlonger(
    cols=startswith("wk"),
    namesto = "week",
    valuesto = "rank",
    valuesdrop_na = TRUE
  )

--长变宽pivot_wider

df=tribble(
  ~id,~measurment,~value,
  "A","bp1",100,
  "B","bp1",140,
  "B","bp2",115,
  "A","bp2",120,
  "A","bp3",105
  )
df |> 
  pivot_wider(
    names_from = measurment,
    values_from = value
  )