R语言学习之整理ETCM查询到的target symbol

#方法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比较好