h-elena

> format(Sys.Date(), '%a') #오늘의 요일

[1] "화"

> Sys.Date()

[1] "2018-06-19"

> format(Sys.Date(), '%b') #오늘의 월 : 6

[1] "6"

> format(Sys.Date(), '%c') #화 6 19 00:00:00 2018

[1] "화 6 19 00:00:00 2018"

> format(Sys.Date(), '%d') #오늘의 일 : 19

[1] "19"

> 

> format(Sys.Date(), '%A') #화요일

[1] "화요일"

> format(Sys.Date(), '%B') #6월

[1] "6월"

> format(Sys.Date(), '%C') #내일? 20

[1] "20"

> substr("star", 1, 3) #문자열 추출 : str

[1] "sta"

> nchar("star") #문자열의 개수 : 4

[1] 4

> a<-c("Tom", "Yoon", "Kim") #chr

> b<-c(pi, "pi", 3.14) #chr

> c<-c(3.14, pi, TRUE) #num

> d<-c("A", "B") #chr

>

> pi

[1] 3.141593

>

> mode(pi) #numeric

[1] "numeric"

par(mar=c(1,1,1,1))

TEST<-as.data.frame(FRE) #df으로 변경

colnames(TEST)<-"num" #열이름 변경

TEST$keywords<-rownames(TEST) #행이름을 데이터로 추가

rownames(TEST)<-c() #행이름 삭제

#df를 transaction으로 변경 -> 작동안함

test<-as(TXT_P_MORP$MORP, "transactions")

#df를 transaction으로 변경

write(TXT_P_MORP$MORP, file = "my_basket");

trans = read.transactions("my_basket", format = "basket", sep=",");

inspect(trans) #transaction 내용 보기

wordtable <- crossTable(trans) # 교차표 작성

tranrules <- apriori(trans, parameter=list(supp=0.05, conf=0.01)) 

inspect(tranrules) # 연관규칙 생성 결과 보기

<다운로드>

다운받아서 한 폴더에 넣기

(나는 selenium이라는 폴더를 만들었음)

selenium standalone server - https://www.seleniumhq.org/download/

gecko driver - https://github.com/mozilla/geckodriver/releases/tag/v0.17.0

chrome driver - https://sites.google.com/a/chromium.org/chromedriver/

<cmd>

cmd창을 관리자 권한으로 열어서

위에서 사용한 폴더로 접근

이 명령어 입력

(포트 번호가 busy하다고 나오면 다른 번호로 입력)

**standalone 버전에 맞게 입력 필요**

java -Dwebdriver.gecko.driver="geckodriver.exe" -jar selenium-server-standalone-3.11.0.jar -port 4444

<R studio>

library(RSelenium) #브라우저를 제어하기 위한 패키지

library(rvest) #HTML처리

library(httr) #HTML처리

library(stringr) #문자열 함수

ch=wdman::chrome(port=4444L) #크롬드라이버를 포트 4444번에 배정

remDr=remoteDriver(port=4444L, browserName='chrome') #remort설정

remDr$open() #크롬드라이버 실행

remDr$navigate("크롤링 하고자 하는 페이지 url")

# remDr$close #닫을 때 사용

참고

http://hmtb.tistory.com/5

https://blog.naver.com/edgelab/221179101707

역수 : 어떤 수와 곱해서 1이 되게 하는 수

> x <- c(10.4, 5.6, 3.1, 6.4, 21.7)

> 1/x #숫자의 역수

[1] 0.09615385 0.17857143 0.32258065 0.15625000 0.04608295

help(solve) 

# solve 라는 명령어 사용법에 대한 설명#

example(solve)

# solve 라는 명령어에 대한 예제#

demo(persp) 

# persp 라는 명령어에 대한 예시#