Rstudio:根据列中的重复值将行值合并为一行

library(dplyr)

# 创建示例数据框
df <- data.frame(ID = c(1, 1, 2, 3, 3),
                 Name = c("A", "B", "C", "D", "E"),
                 Value = c(10, 20, 30, 40, 50))

# 根据ID列合并行值
merged_df <- df %>%
  distinct(ID, .keep_all = TRUE) %>%
  group_by(ID) %>%
  summarise(Name = paste(Name, collapse = ", "),
            Value = sum(Value))

# 输出合并后的数据框
print(merged_df)

# 根据ID列合并行值
merged_df <- aggregate(. ~ ID, data = df, FUN = function(x) paste0(unique(x), collapse = ", "))

# 输出合并后的数据框
print(merged_df)

library(data.table)

# 创建示例数据表
dt <- data.table(ID = c(1, 1, 2, 3, 3),
                 Name = c("A", "B", "C", "D", "E"),
                 Value = c(10, 20, 30, 40, 50))

# 根据ID列合并行值
merged_dt <- dt[!duplicated(ID)][, .(Name = paste(Name, collapse = ", "),
                                     Value = sum(Value)), by = ID]

# 输出合并后的数据表
print(merged_dt)