(macOS)[R] file import : csv, txt, xls, xlsx

INTRO

첨부파일 data : csv, txt, xls, xlsx

data_txt.txt

0.00MB

data_xlsx.xlsx

0.00MB

data_xls.xls

0.01MB

data_csv.csv

0.00MB

 

# clear environment : rm(list = ls())

 

1. csv, txt file import

test_import_1.R

rm(list = ls())
setwd("/Users/[YourMacID]/Rcoding")

fpath = "./data/"
fname = c("data_csv.csv","data_txt.txt","data_xls.xls","data_xlsx.xlsx")
fpath_list = paste(fpath,fname,sep="")

data_csv <- read.csv(fpath_list[1], stringsAsFactors = FALSE)
# data_csv <- read.table(fpath_list[1], header=T, sep=",")
data_txt <- read.table(fpath_list[2])
# data_txt <- read.table(fpath_list[2], stringsAsFactors = FALSE)

print(data_csv)
print(data_txt)

 

출력결과

> rm(list = ls())

> setwd("/Users/[YourMacID]/Rcoding")

> fpath = "./data/"

> fname = c("data_csv.csv","data_txt.txt","data_xls.xls","data_xlsx.xlsx")

> fpath_list = paste(fpath,fname,sep="")


> # data_csv <- read.table(fpath_list[1], header=T, sep=",")
> data_csv <- read.csv(fpath_list[1], stringsAsFactors = FALSE)

> data_txt <- read.table(fpath_list[2])

> # data_txt <- read.table(fpath_list[2], stringsAsFactors = FALSE)
> 
> print(data_csv)
  X income     car marriage
1 1    100     kia    FALSE
2 2    200 hyundai    FALSE
3 3    150     kia    FALSE
4 4    300  toyota     TRUE
5 5    900   lexus     TRUE

> print(data_txt)
  income     car marriage
1    100     kia    FALSE
2    200 hyundai    FALSE
3    150     kia    FALSE
4    300  toyota     TRUE
5    900   lexus     TRUE

 

2. xls, xlsx file import

- Rstudio console에서 library install

> install.packages("readxl")

 

test_import_2.R

rm(list = ls())
setwd("/Users/[YourMacID]/Rcoding")

fpath = "./data/"
fname = c("data_csv.csv","data_txt.txt","data_xls.xls","data_xlsx.xlsx")
fpath_list = paste(fpath,fname,sep="")

library(readxl)
data_xls = read_excel(fpath_list[3])
data_xlsx = read_excel(fpath_list[4])
print(data_xls)
print(data_xlsx)

 

출력결과

> library(readxl)

> data_xls = read_excel(fpath_list[3])
New names:                                                                     
* `` -> ...1

> data_xlsx = read_excel(fpath_list[4])
New names:                                                                     
* `` -> ...1

> print(data_xls)
# A tibble: 5 × 4
   ...1 income car     marriage
  <dbl>  <dbl> <chr>   <chr>   
1     1    100 kia     FALSE   
2     2    200 hyundai FALSE   
3     3    150 kia     FALSE   
4     4    300 toyota  TRUE    
5     5    900 lexus   TRUE    

> print(data_xlsx)
# A tibble: 5 × 4
   ...1 income car     marriage
  <dbl>  <dbl> <chr>   <chr>   
1     1    100 kia     FALSE   
2     2    200 hyundai FALSE   
3     3    150 kia     FALSE   
4     4    300 toyota  TRUE    
5     5    900 lexus   TRUE