Deal With String & Other

library(data.table);library(tidyverse);library(qdapRegex);library(tidytext)

วิธีเปิดไฟล์ txt จาก Folder แล้วเอามาต่อกัน

ค้นหา Folder ตัวเ

path = "C:\\Few_pila\\text"

text = read.table("C:\\Few_pila\\Text\\1 APR 2008.txt", sep="\t",stringsAsFactors = F)
text

##                       V1
## 1 1 APR 2008 WOIIII !!!

เปลี่ยนชื่อ Column ให้ดูดีขึ้น

colnames(text) <- 'text'
text

##                     text
## 1 1 APR 2008 WOIIII !!!

อ่านหลายๆไฟล์ในคราเดียว

path = 'C:\\Few_pila\\Text\\'
file_list = list.files(path)
file_list

## [1] "1 APR 2008.txt" "2 APR 2008.txt" "3 JUN 2015.txt"

real_data <- data.table() #เอาไว้เป็นตัวหลักไว้ต่อ
for (i in file_list) {
  each_path = paste0(path,i)
  print(each_path)
  temp_data <- read.table(each_path,sep = '\t',stringsAsFactors = F)
  real_data <- rbind(real_data,temp_data)
}

## [1] "C:\\Few_pila\\Text\\1 APR 2008.txt"
## [1] "C:\\Few_pila\\Text\\2 APR 2008.txt"
## [1] "C:\\Few_pila\\Text\\3 JUN 2015.txt"

เราจะได้ DATA มาแต่ดันไม่รุ้ว่ามันมาจากไฟล์ไหนด้วย เราต้องบอกมันเพื่อความง่าย

real_data

##                        V1
## 1: 1 APR 2008 WOIIII !!! 
## 2:                      2
## 3:   APR 2008 WOIIII !!! 
## 4:         3 JUN 2015 WOI

real_data <- data.table() #เอาไว้เป็นตัวหลักไว้ต่อ
for (i in file_list) {
  each_path = paste0(path,i)
  print(each_path)
  temp_data <- read.table(each_path,sep = '\t',stringsAsFactors = F)
  colnames(temp_data) <- 'text'
  temp_data$location <- as.character(i)
  real_data <- rbind(real_data,temp_data)
}

## [1] "C:\\Few_pila\\Text\\1 APR 2008.txt"
## [1] "C:\\Few_pila\\Text\\2 APR 2008.txt"
## [1] "C:\\Few_pila\\Text\\3 JUN 2015.txt"

real_data

##                      text       location
## 1: 1 APR 2008 WOIIII !!!  1 APR 2008.txt
## 2:                      2 2 APR 2008.txt
## 3:   APR 2008 WOIIII !!!  2 APR 2008.txt
## 4:         3 JUN 2015 WOI 3 JUN 2015.txt