问R中的合并字符串

EN

library(tidyverse)

df = read_csv("Downloads/test.csv")

df = df %>% group_by(Transaction, Item) %>% summarize(count_value = n())

result = df %>% pivot_wider(names_from = "Item", values_from = "count_value", values_fill = 0)

library(tidyverse)
df <- data.frame(Transaction=c(1,2,2),
                 Item=c("Apple", "Banana", "Coconut"))
df
df <- df %>% 
  group_by(Transaction) %>% 
  mutate(ItemNumber=paste0("Item", row_number()))
df
df <- df %>% 
  pivot_wider(names_from = ItemNumber, 
              values_from = Item)
df
#  Transaction Item1  Item2  
#1           1 Apple  NA     
#2           2 Banana Coconut