R脚本进行长宽数据转换

1.R脚本进行长宽数据转换

library(tidyverse)
df = tibble(Class = c("1班", "2班"),
            Name = c("张三，李四，王五", "赵六，钱七"))
df

## # A tibble: 2 x 2
##   Class Name
##   <chr> <chr>
## 1 1班   张三，李四，王五
## 2 2班   赵六，钱七

df1 = df %>%
  separate_rows(Name, sep = "，")
df1

## # A tibble: 5 x 2
##   Class Name
##   <chr> <chr>
## 1 1班   张三
## 2 1班   李四
## 3 1班   王五
## 4 2班   赵六
## 5 2班   钱七

df1 %>%
  group_by(Class) %>%
  summarise(Name = str_c(Name, collapse = ","))
  # A tibble: 2 × 2
# Class Name          
# <chr> <chr>         
# 1 1班   张三,李四,王五
# 2 2班   赵六,钱七   
#最后加上文件保存代码
write.table(df1,file="a.txt",row.names = FALSE,quote = FALSE,sep = "\t")
#切记一定要加上这两个参数: row.names = FALSE,quote = FALSE