#方法1
#准备工作（后面需要用这个包的trim函数）
install.packages("raster")
library (raster)
#读入数据（必须要加上encoding，以免乱码）
data1 <- read.table("modify.txt",sep = ",",encoding = "UTF-8")
#转置数据
data1 <- t(data1)
#删除括号内所有内容
data1 <- gsub("\\(.*?\\)","",data1)
#删除前后空格
data1 <- trim(data1)
#导出数据
write.csv(data1,file="modify.csv")
#方法2
#准备工作
library(tidyverse)
#导入示例数据
data1 <- read.table("modify.txt",sep = ",",encoding = "UTF-8")
data1 <- t(data1)
#清除首尾空格str_trim
data1 <- str_trim(data1)
#分列
data1 <- strsplit(data1," ")
#提取第一个元素
data2 <- sapply(data1,"[",1)
#导出数据
write.csv(data2,file="modify2.csv")
#结果 方法1会漏掉部分内容，方法2比较好
