개발냥발

#설정하기 setwd("c:/Rdata") getwd() #필요한 library 활성화하기 library(dplyr) library(ggmap) library(rvest) 구글맵을 사용하기 위한 구글지도 API 키를 받아야 한다. 받은 키는 아래와 같이 작성한다. register_google(key = "여기에 키 복붙하면 됨") ex) 홍은동 지도 보기 get_map(location = '서울 서대문구 홍은동', zoom = 16, maptype = "hybrid", source='google') %>% ggmap() ex) 서울 위경도 좌표 받기 geocode(location = '서울', output = 'latlon', source = 'google') ex) 원하는 위치의 위경도 정보를 얻는 방..

tt=barplot(kk,col=(rainbow(20)), las=2, ylim=c(0,300)) 이 무지개빛깔로 영롱한 막대를 덜 영롱하게 만들고 싶었다. 값 하나씩 넣어주기엔 시간관계상 애매하므로 "R barplot 색상" 이라는 키워드로 구글구글 했다가 찾은 이 곳 mycol0

저작권 문제로 아무거나 크롤링을 할 수 없다는 말씀과 함께 주신 과제... library(rvest) library(stringr) library(dplyr) library(ggplot2) library(wordcloud) library(wordcloud2) cnt=c() base_url="https://www.bskorea.or.kr/bible/korbibReadpage.php?version=GAE&book=gen&chap=" for(i in 1:50){ cr_url=paste0(base_url,i) t_css="#tdBible1 span" hdoc=read_html(cr_url,encoding = 'UTF-8') n_css=html_nodes(hdoc,t_css) cnt_part=html_text(n..