Chp1. R-Basic - 7

본론
"기초부터 차근차근"

1-4 입력과 출력

1-4-1 scan 함수로 txt 읽어들이기

1,2,3,4.txt 를 이용한다

> a <-scan("1.txt")
Read 4 items

> b <-scan("2.txt")
Read 4 items
> b
[1] 1 2 3 4
-->소수점이 사라졋다
-->문자와 실수를 호출하기 위해서는 what="" 옵션을 사용해서 호출해야한다

> b <- scan("2.txt",what="")
Read 4 items
> b
[1] "1.00" "2.00" "3.00" "4.00"

**scan 함수에 값을 안주면 입력을 "받겟다"는 의미**
> d <- scan(what="")
1: kusee
2: kusee2
3:
Read 2 items
> d
[1] "kusee"  "kusee2"
>

1-4-2 readline 함수로 한줄읽기
> e <- readline()
kuseeing
> e
[1] "kuseeing"
>

1-4-3 read.table/csv/delim 등을 이용한 파일 읽기
-->member.txt
no name bitrhday
111 aaa 2019-10-1
222 bbb 2019-11-1
333 ccc 2019-12-1

> h <-read.table("member.txt",header=T)
> h
   no name  bitrhday
1 111  aaa 2019-10-1
2 222  bbb 2019-11-1
3 333  ccc 2019-12-1
>

1-4-4 write.table()로 파일에 저장하기
> write.table(h,"i.txt")

> list.files(path=".",pattern = NULL)
[1] "1-2-6.zip"        "1.txt"            "2.txt"         
[4] "3.txt"            "4.txt"            "fa.png"       
[7] "fruits.txt"       "fruits_csv.csv"   "fruits_xlsx.xlsx"
[10] "i.txt"            "member.txt"

1-4-4 excel 형식으로의 저장
WriteXLS 패키지를 설치한다
1.perl 설치
2.install.packages("WriteXLS")

- c("apple","banana","cherry")
> b <- c(100,200,300)
> fruite_2 <- fata.frame(name=a ,price=b)
Error in fata.frame(name = a, price = b) :
  could not find function "fata.frame"
> fruite_2 <- data.frame(name=a ,price=b)
> fruite_2
name price
1  apple   100
2 banana   200
3 cherry   300

writeXLS("fruits_2","fruits_2.xlsx")

1-5 정규표현식 Regular Expression

1-5-1 grep(pattern,a)
> grep("apple",c("apple","banana","berry"))
[1] 1

1-5-2 substr("a",s,t)
> substr("kusee",1,2)
[1] "ku"
문자열의 s위치부터 t위치까지 출력해줌