在R中编排数据以按组添加变量(列)和观测值(行

library(dplyr)

# 创建一个数据框df
df <- data.frame(group = c("A", "A", "B", "B"),
                 value = c(1, 2, 3, 4))

# 使用mutate()函数按组添加新的变量列sum_value，表示每个组的value之和
df <- df %>%
  group_by(group) %>%
  mutate(sum_value = sum(value))

# 输出结果
print(df)

library(tidyr)

# 创建一个数据框df
df <- data.frame(group = c("A", "A", "B", "B"),
                 variable = c("var1", "var2", "var1", "var2"),
                 value = c(1, 2, 3, 4))

# 使用pivot_wider()函数按组添加新的变量列，将变量列variable转换为宽格式
df <- df %>%
  pivot_wider(names_from = variable, values_from = value)

# 输出结果
print(df)