![](https://velog.velcdn.com/images/xowen96/post/ca938697-8bb0-4e95-9c90-16f96807c7c4/image.png)
![](https://velog.velcdn.com/images/xowen96/post/417fdb8c-c356-4208-8268-eb0b182baf99/image.png)
![](https://velog.velcdn.com/images/xowen96/post/7e34001f-13e9-4d70-991f-489f6808bd58/image.png)
News_0531 <- NULL
for (pageNo in 1:10) {
urls <- paste0("https://news.naver.com/main/list.naver?mode=LS2D&mid=shm&sid2=258&sid1=101&date=20220531&page=",pageNo)
html_source <- read_html(urls)
for (i in 1:20) {
T.selector <- paste0("#main_content > div.list_body.newsflash_body > ul.type06_headline > li:nth-child(",i,") > dl > dt:nth-child(2) > a")
title_nodes <- html_nodes(html_source,T.selector)
text_title <- html_text(title_nodes)
News_0531 <- c(News_0531,text_title)
}
}
df <- data.frame(News_0531)
df[,1]<- gsub("\t","",df[,1])
df[,1]<- gsub("\n","",df[,1])
df[,1]<- gsub(" ","",df[,1])
df