W11-2: RWC Ch. 3 Web Scraping with rvest
Shin Lee
11/11/2020
Web scraping in practice
library(XML)
library(rvest)## Loading required package: xml2##
## Attaching package: 'rvest'## The following object is masked from 'package:XML':
##
## xmllibrary(stringr)page <- readLines("https://news.daum.net/ranking/popular")
page_parsed <- htmlParse(page)First Headline XPath: ‘//[@id="mArticle"]/div[2]/ul[3]/li[1]/div[2]/strong/a’ Second Headline XPath: ’//[@id="mArticle"]/div[2]/ul[3]/li[2]/div[2]/strong/a’
First Company XPath: ‘//[@id="mArticle"]/div[2]/ul[3]/li[1]/div[2]/strong/span’ Second Company XPath: ’//[@id="mArticle"]/div[2]/ul[3]/li[2]/div[2]/strong/span’
headline_xpath <- '//*[@id="mArticle"]/div[2]/ul[3]/li/div[2]/strong/a'
company_xpath <- '//*[@id="mArticle"]/div[2]/ul[3]/li/div[2]/strong/span'
headlines <- xpathSApply(page_parsed, headline_xpath, xmlValue)
headlines## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
## [6] "[단독] \"경비원에게 이런 일을, 너무 잔인\" 대학생의 일갈"
## [7] "화이자 CEO, '백신 효과' 발표 당일 \"62억원어치 주식 매각\""
## [8] "제트기 동원해 독일로 환자 이송..\"의료붕괴 위기\""
## [9] "트럼프를 아는 이들은 말린다..전 부인 \"골프 치며 살길\""
## [10] "\"아이폰12 너무 비싸 ㅠㅠ\" 90만원→3만원 '똥값'된 아이폰XR 구매 문의 급증! [IT선빵!]"
## [11] "'입주하려는데 현관문에 용접이..' 울산 대명루첸 또 '시끌'"
## [12] "전동킥보드 규제 풀어준 의원들..뒤늦게 \"안 타봐서\""
## [13] "추미애 \"보수·진보언론 안 가리고 윤석열 띄워..국민 우려\"(종합)"
## [14] "[단독] '학대 동영상' 또 있었다..'두 얼굴의 엄마' 구속"
## [15] "윤석열 부인 회사 과세자료 확보..\"무리한 수사\" vs \"원칙대로\""
## [16] "김봉현 \"검사 술접대 증거, 차량 내비게이션에 남았을 것\""
## [17] "어제 끼고 오늘 또 끼고..마스크 재사용 괜찮을까?"
## [18] "\"확산세 계속되면 거리두기 격상\"..1.5단계 뭐가 달라지나?"
## [19] "최재형 \"월성원전, 범죄 개연성 있어 檢에 참고자료 보내\"(종합)"
## [20] "[현장영상] 서울 하늘에 처음 뜬 '드론택시'..누가 탔나? 요금은?"
## [21] "김봉현\"룸살롱 접대 작년 7월12일..검사 집까지 차로, 내비에 증거\"(종합)"
## [22] "日 전역서 '하루 최다' 속출..\"코로나19 3차 유행 왔다\""
## [23] "'전설의 대물' 돗돔, 3년 만에 경매에..통영서 양식 도전"
## [24] "수천만원 주고 정교사된 사학 기간제교사들 무더기 송치(종합)"
## [25] "[단독]\"위험하다고 말렸는데..\" 음주운전 차량에 23살 배달원 다리 절단"
## [26] "\"일단 도수치료 하시죠\" 제동?..의사 책임 묻는다"
## [27] "백신 나오면 마스크 없는 일상으로?..\"시간 더 필요\""
## [28] "12조 원 규모 철도 건설 추진..현실성은?"
## [29] "'화이자 백신' 日 1억 회분 '선주문' 했는데..한국 \"협상 중\""
## [30] "26년 전 쫓겨난 서의현, 또다시 조계종을 뒤흔들다"
## [31] "네 살 아이 두 눈에 시퍼런 피멍 들 때까지 때린 40대"
## [32] "김해 신공항 백지화 가닥..선거용 변질, 지역 갈등 '뇌관'으로"
## [33] "\"보건소서 괜찮다했는데..독감주사 맞은 누이, 이틀뒤 사망\""
## [34] "교사들 \"코로나19 장기화, 대면수업 늘려야 .. 교육부 예산은 '원격수업' 치중\""
## [35] "잘못된 수요예측, 비싼 통행료 받고도 혈세 1조6667억 '꿀꺽'"
## [36] "하루평균 확진자 100명 육박..정부 \"2~3주 내 1.5단계 가능성\""
## [37] "[오늘 이 뉴스] \"여전히 고통..\" 고유정 사건 또 다른 피해자"
## [38] "'630억 재산피해' 군포물류센터 실화 혐의 튀니지인 무죄 선고(종합)"
## [39] "[사건의 재구성] \"내 여친에 연락 그만해\" 죽기 직전까지 얻어맞은 옛 남친"
## [40] "[집중취재M] 기자가 '택배'로만 1주일 살아봤습니다"
## [41] "바이든 사람들은 읽씹 중인데..방미 강경화의 '난센스 외교'"
## [42] "동료 의원에 축의금 100만원 건넨 道 의장· 부의장 검찰 송치"
## [43] "'술집부터 미행 음주차에 고의 사고' 돈 뜯어낸 20대"
## [44] "[밀착카메라] 쓰레기 쌓이는 '캠핑 명소'..실종된 에티켓"
## [45] "이재명 \"연애는 필수, 결혼은 선택?.. 더 이상, 결혼·출산 포기 되어선 안돼\""
## [46] "美대선불복 와중에 강경화, 트럼프·바이든 양쪽에 손 내밀었다"
## [47] "[팩트체크] 영하 70도 백신 유통, 국내에서는 불가능하다?"
## [48] "국민의힘, 잡기엔 뜨거운 감자들 '윤·안·금'을 어쩌나"
## [49] "\"담임카톡 못 받아 우는데, 결국 폰 샀죠\" 학부모들 한숨"
## [50] "혼전계약서 쓴 트럼프, 멜라니아 이혼땐 14살 아들도 뺏긴다?"companies <- xpathSApply(page_parsed, company_xpath, xmlValue)
companies## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"
## [6] "오마이뉴스" "연합뉴스" "MBC" "JTBC" "헤럴드경제"
## [11] "연합뉴스" "JTBC" "뉴시스" "MBC" "KBS"
## [16] "연합뉴스" "머니투데이" "KBS" "연합뉴스" "KBS"
## [21] "뉴스1" "KBS" "JTBC" "연합뉴스" "동아일보"
## [26] "MBC" "JTBC" "KBS" "채널A" "한국일보"
## [31] "연합뉴스" "경향신문" "중앙일보" "서울신문" "경향신문"
## [36] "KBS" "MBC" "연합뉴스" "뉴스1" "MBC"
## [41] "중앙일보" "뉴시스" "뉴시스" "JTBC" "머니S"
## [46] "중앙일보" "JTBC" "경향신문" "국민일보" "중앙일보"Five steps of web scraping
- We identify the running mechanism in the URL syntax.
- We retrieve links to the running pages.
- We download the running pages.
- We retrieve links to the entries on the running pages.
- We download the single entries.
Manipulating URLs to access multiple pages
baseurl <- "https://news.daum.net/ranking/popular?regDate="
dates <- seq(from=20201025, to=20201031, by=1)
urls <- str_c(baseurl, dates)
urls## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"Constructing a function to extract headlines of popular news from each URL
headline_extractor <- function(url) {
page <- readLines(url)
page_parsed <- htmlParse(page)
headlines <- xpathSApply(page_parsed, headline_xpath, xmlValue)
return(headlines)
}
urls## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"length(urls)## [1] 7headline_list <- lapply(urls, headline_extractor)
headline_list## [[1]]
## [1] "오바마 \"한국 인구당 코로나 사망률은 미국 1.3%\"..트럼프 직격"
## [2] "한국 재계의 거목 '하늘나라로'..이건희 삼성 회장 별세(종합)"
## [3] "[이건희 별세] 이재용, 두 자녀와 빈소 도착..정·재계 애도행렬(종합)"
## [4] "\"박원순 때와 왜 이리 달라\"..이낙연 '이건희 추모 페북'에 비판 댓글"
## [5] "[무플방지]\"윤석열, 아내 재산과 무관?..조국 땐 왜 그랬나\""
## [6] "이건희 삼성전자 회장 투병끝 별세, 향년 78세(상보)"
## [7] "[이건희 별세] 상속세 10조 넘을 듯..주식재산 18조 2000억원"
## [8] "'차기 대통령 감' 이재명 23%, 이낙연 20%인데.. '없다' 28%"
## [9] "\"27살 차이 한베커플 첫 만남\"..러브스토리인줄 알았는데 반전"
## [10] "부동산 세금 큰 파도 온다..\"집 팔려면 올해 넘기지 마라\""
## [11] "내성적이지만 엉뚱했던 소년..'초일류' 삼성 만들었다"
## [12] "국내 1위 부호 삼성 이건희 자산 18조..어떻게 처리되나"
## [13] "하루에 4개 주 강행군..\"한국을 봐라\" 코로나로 비판"
## [14] "성폭행도, 살해도 '봐도 모른척' 中.. 웨이관 문화 뭐길래 [관심집中]"
## [15] "강기정 \"윤석열, 대통령 순방 때마다 난리.. 조용히 수사하랬다가 타깃\""
## [16] "[취재후] 새벽 아파트 11층 유리창 깬 물체는?..누가 어디서 쐈나?"
## [17] "'라면형제'에 쏟아진 후원금..\"엄마에겐 직접 주지 않는다\""
## [18] "일본, 유명희 견제..\"WTO 총장에 나이지리아 후보 지지 방침\""
## [19] "[단독] 부산 온천천에 연어가 나타났다.. 추정 사체 등 2마리 목격"
## [20] "\"죽으면 책임진다\" 구급차 막은 택시기사, 징역 2년형 논란"
## [21] "사과받으러 간 성폭행 피해자를 또..대법, 징역 5년 확정"
## [22] "진혜원 검사, '윤석열 응원' 화환에 연이틀 비판"
## [23] "\"코로나 확'찐'자 안되려면 걸으세요\"..1주일 최소 150분 빠르게"
## [24] "행실 무개념 연예인 Top3? 조회수 목맨 '이슈 유튜버'"
## [25] "\"배달앱 지각변동 시작됐다\""
## [26] "후배 도우러 흉기 챙겨갔다가 40년 동네 선배 살해한 50대..징역 20년"
## [27] "\"나 저 후보 때문에 망했어\"..김진태 후보 선거운동원 폭행한 50대 벌금형"
## [28] "[이건희 타계]'글로벌 삼성' 키워냈지만..순탄치않은 가족사"
## [29] "[세쓸통]\"NO재팬 벌써 끝?\"..車 판매 늘자 비웃는 日"
## [30] "野 \"진혜원, 직속상관 윤석열을 '나이트 개업' 조롱..징계해야\""
## [31] "[이건희 별세] 사양한다 했는데도 밀려드는 조화로 '북적'.. 외부인 출입 통제"
## [32] "'야당의 시간' 국감인데 국민의힘 6%p 하락..민주당 지지율 35%"
## [33] "\"왜 독가스를 뿜어 대느냐\"고 따지던 옆집 할머니"
## [34] "\"이병철 선대회장 때처럼?\"..호텔신라·패션, 삼성서 계열 분리될까"
## [35] "여권이 키운 '윤석열 대망론'..\"죽 써서 개 주게 될라\" [홍영식의 정치판]"
## [36] "'라면형제' 기부금 모금은 중단..\"목숨 건진 10살형 지원은 계속\""
## [37] "'학대누명 교사 자살사건' 여론 분노..엄벌 청원 30만 훌쩍"
## [38] "[이건희 타계]이재현 CJ 회장 \"집안 이끈 자랑스러운 작은 아버지\""
## [39] "10조→387조..\"삼성의 거침없는 진격에 천하의 애플도 떨었다\""
## [40] "5·18 부당징계 경찰관 급여 정산액 10만원..'40년 전 봉급대로'"
## [41] "'혈세 4300억' 어쩌나..애물단지 전락한 영암 F1 서킷 [세금 먹는 하마]"
## [42] "미 복지장관 \"한국 대형교회 코로나때 접촉자 체포 위해 군활용\""
## [43] "\"한국 교회 접촉자 체포하려 군 동원\" 미 복지장관 황당 주장"
## [44] "이건희 삼성 회장 별세에 정치권 '조문·애도' 긴급 논의"
## [45] "정부, 6·25책임 美에 돌린 시진핑에 \"북의 남침은 역사적 사실\""
## [46] "일본에 \"스가=히틀러\" \"일본 국민=나치독일 국민\" 논쟁 가열"
## [47] "[뉴스人사이드]베일에 싸인 亞 최고 여성부호..정작 그를 알린건 '국적세탁'"
## [48] "\"이 가격에 계속 쿠팡에 납품해야 하나?\"..고민하는 제조기업"
## [49] "[왜?]\"구충제 효과\"→\"먹는 환자들 말려야\" 김철민 국감 증언"
## [50] "[이건희 별세]상속세 10조 그게 다가 아니다, 이재용·이부진 과제"
##
## [[2]]
## [1] "아내와 성관계 후 갑자기 폭행한 뒤 살해..英 갑부의 두 얼굴"
## [2] "한국은 되고 유럽은 안 되는 이유, '가디언'의 적나라한 지적"
## [3] "[단독] 나라에 낼 돈 130억인데, 조국 모친 \"전재산 9만원\""
## [4] "\"EU 회원국, WTO 총장 선거서 나이지리아 후보 지지에 접근\""
## [5] "살 뺀다고 탄수화물을 끊어? \"줄일 것은 따로 있어요\""
## [6] "온천천에 나타난 진객 연어, \"하루 사이 무슨 일이.. \""
## [7] "어린이집서 친구와 부딪쳐 넘어진 5살..이틀만에 숨져(종합)"
## [8] "싱가포르, 한국 '독감백신 접종 후 사망'에 백신 2종 접종 중단"
## [9] "제2의 '구하라 사건'..딸 숨지자 28년만에 나타난 생모"
## [10] "28년만에 나타나 딸 억대 유산 챙긴 친모..간병한 계모에 절도소송까지"
## [11] "\"고소하니 합의하자고..\" 어느 날 사라진 유튜버, 망가진 그의 삶"
## [12] "윤석열 화환 '나이트클럽' 조롱한 진혜원..야당 \"부하가 상급자 모욕, 징계감\""
## [13] "\"질병청 믿고 백신 맞자\"..62~69세 반나절 만에 26만명 접종"
## [14] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [15] "가수 '상위 1%' 63명 연소득 34억원..1%가 전체소득 53% 차지"
## [16] "\"물 찾다 실수로 소주 1병 마셔\".. 음주운전 경찰관의 황당 변명"
## [17] "\"윤석열 누구랑 밥먹으면 고발할 것..윤석열 정치 방지법 만들어야\""
## [18] "한 달째 전남대 앞 쓰레기봉투 들고 나타난 20대들"
## [19] "이건희 상속세 무려 11조..국가 세입예산마저 뒤흔들었다"
## [20] "'전 남편 살해 무기징역' 고유정, 현 남편과 이혼소송서 패소"
## [21] "'6.25는 북침' 열 올리는 중국, 동조하는 아이돌..조용한 한국 정부"
## [22] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [23] "미국서 '살인말벌' 제거 작전..완전무장에 진공청소기 동원"
## [24] "허수아비 후보로 세운 청소부, 진짜로 러 시장 되자 벌어진 일"
## [25] "'공항 화장실에 버려진 아이' 카타르, 여성승객 강제 자궁 검사"
## [26] "부산에 있는 55년 '해운대암소갈비'가 서울에도..법원 \"불법행위\""
## [27] "추미애, 野 사퇴요구에 \"뭐라 하겠나..장관 한번 해보세요\""
## [28] "'#택배기사님감사합니다'..잇단 사망에 \"새벽배송 안 시킨다\""
## [29] "\"되찾을 수 없는 건 생명\"..이건희 '가짜 편지' 확산"
## [30] "[타봤습니다] 비행기는 탔지만 목적지는 없다..완판된 9만9000원 여행"
## [31] "\"40만원 과외, 버는건 8만원\" 요즘 대학생들에게 무슨 일이"
## [32] "다시 칼 빼든 추미애 \"윤석열 중앙지검장 때 옵티 무혐의, 감찰 예정\"(종합)"
## [33] "강경화 \"'병역 면탈' 유승준 비자 발급, 허용하지 않기로\""
## [34] "바이든 아들은 노트북 수리를 맡겼다, 그것이 화근이었다"
## [35] "조국에게 총애받던 박형철, 그가 입 열수록 조국은 다친다"
## [36] "'부하' 표현..조수진 \"우병우에 썼잖냐\" 秋 \"기억 없다\""
## [37] "김홍희 해경청장 \"충동적 공황상태에서 자진 월북..증거 다수\"(종합)"
## [38] "[이건희 별세] 사인은 '신부전'..신장이 노폐물 걸러내지 못하는 병"
## [39] "검찰인사 문제삼는 野에 폭발..추미애 \"총장한테 물어봐라\""
## [40] "종전선언 논의하러 美갔는데..北 \"외세 할아비처럼 섬기며 비굴하게 처신\""
## [41] "추미애, 윤석열 국감 맹공..'직접감찰·해임건의' 꺼냈다"
## [42] "추미애 \"김봉현 술접대 검사 수사팀장 투입..사실로 확인\"(종합)"
## [43] "'시속 166km' 음주운전하다 2명 사망사고 낸 20대 징역 7년"
## [44] "\"못살겠다, 불안해서\"..대선 앞두고 총 사러가는 미국인"
## [45] "[시선집중] 윤호중 \"윤석열 불쌍하기까지.. 악마에 영혼 판 파우스트 같아\""
## [46] "어린이집에서 놀던 5살 남아 숨져..경찰 수사"
## [47] "70대 몰던 어린이 통학버스 주유소 돌진..2명 부상"
## [48] "박상기 \"내가 윤석열에게 '조국 선처'?..참 어이가 없다\""
## [49] "강준만 \"문재인 정권 거의 모든 게 내로남불, 정리하다 포기\""
## [50] "삼성전기 3분기 영업이익 3천25억원..작년 동기 대비 59.9%↑(종합)"
##
## [[3]]
## [1] "'백신 사망' 17세 고교생, 부검서 화학물질 검출..유족 \"억울하다\""
## [2] "[단독][취재파일] 잿더미 된 사찰, 알고 보니..부처님 앞 \"할렐루야!\" 외친 '그 여자'"
## [3] "'화학물질 검출' 고교생..경찰 \"직접 구매 확인\" 가족 \"극단선택 이유없다\""
## [4] "[AS뉴스]\"엽기폭행 양진호, 옥중 결혼..한해 수익 2백억\""
## [5] "[단독] '조국 일가 명예훼손' 보수 블로거 \"조 선생님 선처를\""
## [6] "'붉은대게' 재고 산더미..공장 문 닫고 조업 포기"
## [7] "성병 숨기고 7개월간 두명과 성관계..20대 집행유예"
## [8] "용인 골프모임 31명 집단확진..가족모임·어린이집서도 새 감염(종합)"
## [9] "7억짜리 용인 땅, 300억 됐다..이건희가 건설비 전액 댄 이곳"
## [10] "[단독] \"실종 보고받고 지휘한 내용 밝혀라\"<U+22EF> 피격 공무원 형, 청와대에 정보공개 청구"
## [11] "자신과 아내 지키려 흉기든 이웃 제압해 숨지게 한 70대 '무죄'"
## [12] "세계최고 수준 천문학적 세금 '폭탄'..세금 때문에 기업 판다"
## [13] "트럼프 개인 빚 1조2400억..재선 실패땐 파산 가능성"
## [14] "'갑질폭행' 양진호, 옥중결혼 이유..부인 통해 매년 200억 가져간다"
## [15] "'3000만원 현상금'에 놀라 롤렉스 반환한 범인 \"고가인줄 몰랐어요\"[사건TMI!]"
## [16] "트럼프 잔고 바닥났다, 바이든은 45억짜리 브래드 피트 광고"
## [17] "무면허로 전동킥보드 타다 택시 충돌한 고교생, 사흘만에 사망"
## [18] "\"휠 고의 파손? 그런적 없다\" 타이어뱅크 점주 '사과문' 나흘만에 돌변"
## [19] "문대통령이 윤석열에 메신저 보내?..靑 \"정보 없어 확인 불가\""
## [20] "시외버스서 승객 너머로 자위행위 촬영 20대 집행유예"
## [21] "강경화 \"비자발급 안돼\"→유승준 또 호소문..\"국민이 거부\" 여론 싸늘"
## [22] "인천 마트 주차장 3층서 승용차 추락..70대 운전자 숨져"
## [23] "유튜브 잠깐 출연했다 봉변.. 일상 덮친 이름 모를 '악플'"
## [24] "트럼프 극찬한 항체 치료제 실제 써보니 '효과'"
## [25] "인천 고교생 사망 원인 \"독감 백신 아닌 독극물\""
## [26] "백*원의 원조쌈밥집 등 '자기 이름을 상표로'..성명상표 출원 활발"
## [27] "파지수집 리어카 끌던 노인, 전복된 승용차에 치여 사망(종합)"
## [28] "아프리카서 물개 7000마리 떼죽음 미스터리..대부분 태아 상태"
## [29] "백악관 \"대유행 통제 않을 것\" 바이든 \"패배의 백기 흔들어\""
## [30] "'한동훈과 육탄전' 정진웅, 독직폭행 혐의로 기소(종합)"
## [31] "\"왜 더 큰 평수로 옮겨요? 이거 거래허가 못내줍니다\""
## [32] "AFP \"EU 회원국 대다수, WTO 총장 선거서 나이지리아 후보 지지\""
## [33] "중국 공청단 \"한국전쟁 남침 아니다..한 국가 내전\" 궤변(종합)"
## [34] "의협 다시 집단행동? \"28일까지 의사국시 해결책 내놓지 않으면..\""
## [35] "이탈리아 언론 또 한국 칭찬..\"첨단기술로 바이러스 잡았다\""
## [36] "EU 27개 '몰표' 나이지리아로..WTO 첫 한국인 수장 선출 경고등"
## [37] "이건희 회장 병상 6년간 일가 받은 배당금 2.8조"
## [38] "[황보선의출발새아침] 박수영\"文 대통령, 둘 다 해임하든 한 사람 해임하든지 결단해야\""
## [39] "쇠징 박힌 신발 신은 채 후배 얼굴 걷어찬 겁 없는 10대"
## [40] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [41] "1인용 킥보드에 남녀 두명이? 도로 위 '위험천만' 데이트"
## [42] "낙동강 하구 이어 도심하천인 부산 온천천에서도 연어 발견"
## [43] "\"한국만 아니면 된다\"..고비 때마다 '발목' 잡는 일본"
## [44] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [45] "룸살롱서 술판 벌이고 라임 자료 줬는데.. 금감원은 '사적영역'이라며 부실 감찰"
## [46] "\"한국반도체 인수 검토하라\" 한마디..삼성, 세계적 기업 시발점 됐습니다"
## [47] "[단독]해외는 좌석 채우는데..한국은 연인도 띄어앉아"
## [48] "김봉현이 주장한 술접대, 당사자 전원 \"검사 없었다\""
## [49] "독감 백신 접종 뒤 숨진 인천 고교생 형 \"억울함 풀어달라\" 청원(종합)"
## [50] "중국 신장서 기침·발열없이 137명 집단감염..\"이전 코로나와 다르다\""
##
## [[4]]
## [1] "[현장영상] 故 이건희 회장 발인 엄수..눈물 보이는 딸 이부진"
## [2] "'딸들 광고 좀 하겠다'던 이건희 회장.. 눈물로 보낸 두딸"
## [3] "\"떼쓸 것을 써라\" 사망 원인 묻는 유가족에 쏟아지는 '악플' <U+00A0>"
## [4] "내 딸이, 12시간 동안 쇠창살에 찔려 죽었다"
## [5] "'별장 성접대' 김학의 무죄 뒤집혀 법정구속..\"상고할 것\"(종합)"
## [6] "여자손님 잇달아 성폭행한 40대 게스트하우스 주인 감형"
## [7] "양배추, 삶은 달걀, 사과.. 아침에 좋은 건강식 5가지"
## [8] "\"코로나환자 수차례 접촉해도 감염 안되는 사람들 있어\" 러' 전문가"
## [9] "'까맸던 얼굴이' 코로나 극한 투병 중국인 의사 회복"
## [10] "\"지금 예약해도 내년에나 가능\"..병원마다 검진 환자 북새통"
## [11] "[단독] \"난 곁가지다\" 김봉현, 진짜 '라임 몸통' 실명 밝혔다"
## [12] "文 시정연설에 野 '이게 나라냐' 항의..'신원검색' 소란도(종합)"
## [13] "'항미원조 선동' 아이돌 '일파만파'..소속사·방송사까지 '규탄'"
## [14] "이건희 회장 화성 삼성반도체서 마지막 인사..임직원 국화 배웅"
## [15] "23년간 TV 50대 수신료 내온 병원, KBS에 \"10대 뿐..23년치 환불 요구\""
## [16] "고문으로 얼굴 붓지 않은 '어린 유관순' 찾았다"
## [17] "\"인천 고교생 사망.. 독감 백신 음모론은 틀렸다\""
## [18] "'42명 확진' 용인 동문 골프모임은 성균관대 '비학위과정 모임'"
## [19] "[단독] \"이건희, '일 한번 벌여보자'..고대·성대 합치려 했다\""
## [20] "\"등록금·신혼집 날렸어요\" 빅히트 주식 '영끌'한 개미들 아우성"
## [21] "정청래 \"한푼 줍쇼\" 앵벌이 논란에..\"고액 연봉자\" vs \"솔직하다\""
## [22] "서초구 \"윤석열 화환 강제철거\" 예고..일부 시민 \"민주국가 맞나\""
## [23] "'주호영 몸수색'에 국회 발칵..野, 대통령 연설때 고성"
## [24] "WTO, 오늘 밤 선호도 조사결과 통보..유명희 당선 조만간 윤곽"
## [25] "\"안마의자 쓰면 키 크고 집중력 좋아져\"..검찰, 바디프랜드 기소"
## [26] "이재명 '文 시정연설' 겉으로는 칭찬했지만..\"과오 반복 안돼\" 우회적 비판"
## [27] "코웃음 친 박범계 \"옵티머스, 자료 없어 계좌 추적 못했다고?\""
## [28] "[황보선의출발새아침] 호사카 유지\"日, 美 따라 유명희 지지할 것.. 당선가능성 60%\""
## [29] "홍준표 \"지지율 4% 정당 살려놨더니..야당 왜 이래\""
## [30] "[데일리안 여론조사] '차기 대권' 이재명22.8%, 이낙연21.6%, 윤석열15.1%"
## [31] "추미애, 수사지휘 이어 '감찰그물'로 윤석열 꽁꽁..사퇴종용인가"
## [32] "'별장 성접대' 김학의 무죄 뒤집혔다..2심 실형 법정구속"
## [33] "[단독] 대구 실종 잠수사, 취수구 배관에 빨려 들어간 듯..관로 절단 추진"
## [34] "오바마 \"김정은이 트럼프 재선 원한다고?..모든 것 줬기 때문\""
## [35] "[단독][취재파일] 잿더미 된 사찰, 알고 보니..부처님 앞 \"할렐루야!\" 외친 '그 여자'"
## [36] "문대통령·정총리 다 나섰지만 '나이지리아' 손 든 EU, WTO 선거 '먹구름'"
## [37] "\"전두환 아직 정신 못 차렸네\".. 수상한 사람들의 반격"
## [38] "의료계 또 다시 집단행동?..의협 \"정부, 국시 문제 해결책 내놔라\""
## [39] "의협 다시 집단행동? \"28일까지 의사국시 해결책 내놓지 않으면..\""
## [40] "\"휠 고의 파손? 없다\" 평생 반성하겠다던 타이어뱅크 점주 '돌변'"
## [41] "의협 '의대 국시' 강공 전환..의료계마저 \"국민 협박하나\""
## [42] "오색찬란 단풍 속 하늘 찌를 듯 솟은 '한국의 장자제'"
## [43] "\"이 아이, 300만원\" 중학생 당근마켓 글..실제 문의한 사람들(종합)"
## [44] "문정인 \"반중 군사훈련 동참시 중국은 한국을 적으로 간주할 것\"(종합)"
## [45] "하필 마오 아들 생일날, 계란볶음밥 만들다 욕먹은 中요리사"
## [46] "정의선 현대차 회장, 이건희 회장 영결식에도 달려왔다"
## [47] "[단독/레이더P] '방역지침 위반 논란' 강경화 장관 남편, 요트 결국 못 샀다"
## [48] "아파트 관리소장 살해한 60대 입주자대표, 도주했다가 자수"
## [49] "2억7천만 뷰 기록한 '이날치 열풍'..세계 매료시킨 '조선의 힙합'"
## [50] "유승민 \"文대통령, 나라살림 거덜 내려 작정..악성 포퓰리즘 몰아내야\""
##
## [[5]]
## [1] "\"혹시 가짜 마스크?\" 이 마스크 산 분들, 꼭 확인하세요"
## [2] "대장과 병장 월급 차이.. 이 정도일 줄은 몰랐을 거다"
## [3] "[단독] 이건희 회장 장지까지 간 3개의 조화, 누구일까"
## [4] "'하''허''호' 번호판에 당했다, 콜받고 갔다 돈폭탄 맞는 대리기사"
## [5] "\"추 장관님, 저 역시 커밍아웃합니다\" 이어지는 평검사들의 비판글"
## [6] "나이지리아 손 들어준 WTO..유명희, 사퇴·버티기 갈림길(종합2보)"
## [7] "한밤 고층 아파트에 드론 띄워 성관계 현장 촬영 일당 기소"
## [8] "\"우리 WTO 후보는\".. 日, 유명희 예상 밖 선전에 '충격' [특파원+]"
## [9] "\"다스는 MB것\" 밝혀낸 검사들, 추미애 취임후 죄다 좌천됐다"
## [10] "'스스로 코로나 두 번 감염' 69세 교수의 결론..\"집단면역 소용없다\""
## [11] "무허가 공장서 마스크 1천만장 만들어 KF94로 속여 판 일당 적발"
## [12] "대법원, 이명박 전 대통령 징역 17년·벌금 130억 확정(종합)"
## [13] "징역 17년 확정 이명박 \"법치 무너져, 진실 반드시 밝혀질 것\"(종합2보)"
## [14] "\"다시 유행하는 코로나..최고의 투자처는 한국\""
## [15] "평생 동반자 떠나보낸 홍라희..\"삼성의 조용한 조력자\""
## [16] "'윤석열 화환' 물결..대검, 서초구 철거 요청에 협조 부탁"
## [17] "박형준, 국민의힘 8년 만에 복당..부산시장 출마 준비 중"
## [18] "[단독그후] '여교사 7명 불법 몰카촬영' 고교생 '퇴학처분'..우편물 뒤지며 '찰칵'"
## [19] "밀린다는 소식에 보란 듯 \"유명희 지지\"..승복이냐 완주냐"
## [20] "'윤석열 화환' 철거 요구 김남국에..서민 \"낙엽 떨어지는 11월엔 외출 금지하자\""
## [21] "\"커피마시러, 담배피우러 나간 시간, 근로시간인가?\""
## [22] "의협 또 '파업 가능성'에 등돌린 여론..네티즌들 비판 목소리"
## [23] "국민의힘, 청년 비대위원 뽑아놨더니.. 연일 '상속세 인하' 목청"
## [24] "미국 유명희 지지에 유럽언론은 '일방주의·WTO 사보타주' 의심"
## [25] "윤석열 장모 변호인 \"속아서 사문서위조했다\"..장모는 불출석"
## [26] "[사건의 재구성]\"성폭행 당했다\" 거짓고소 들통난 꽃뱀 범행"
## [27] "[3보] 이명박 전 대통령 징역 17년·벌금 130억 확정..재수감"
## [28] "코로나 입원환자 80%의 공통점..비타민D가 모자라"
## [29] "2억7천만 뷰 기록한 '이날치 열풍'..세계 매료시킨 '조선의 힙합'"
## [30] "코로나에 갇힌 6개월, 딸은 다시 아기가 됐다"
## [31] "\"4인가족에 왜 40평 필요\" 구청 공무원의 황당 발언"
## [32] "'이재용 상속세 인하' 주장에..이재웅 \"일고의 가치 없어\""
## [33] "추미애, '검찰개혁 실패' 검사 글 저격..\"개혁이 답이다\""
## [34] "고문으로 얼굴 붓지 않은 '어린 유관순' 찾았다"
## [35] "유준상 \"한칸 띄워앉으면 적자\" 호소..정총리 \"공연계 요구 고려\""
## [36] "5년만에 의원 체포동의안 가결..정정순 \"의원들 선택 존중\"(종합)"
## [37] "[단독] 검찰, 조해진 국민의힘 의원에 벌금 300만원 구형"
## [38] "미 무역대표부, WTO 사무총장 '유명희 지지' 공식 발표(종합)"
## [39] "與, 이명박 징역형 확정에 \"국민의힘, 대국민 사과하라\""
## [40] "정경심, 재판 막판에 증거 70여개 제출..검찰 \"부당하다\""
## [41] "\"아들 만나겠다\"며 집 나선 70대..실종 18일만에 숨진 채 발견(종합)"
## [42] "친구들과 축구하다 넘어진 중1, 10분 뒤 사망 '논란'"
## [43] "조폭 끼고 버리고 째고.. \"전국 쓰레기산 처리비만 1천억\" [이슈&탐사]"
## [44] "인천 아파트서 노부부 숨진 채 발견..사망 원인 조사"
## [45] "김학의 운명 가른 '인디밴드 보컬' 부친의 말"
## [46] "'징역 17년 확정' 이명박, 침묵..측근들 속속 자택 집결"
## [47] "쪼잔한 억만장자..\"조망권 가린다\" \"훔쳐본다\" 이웃과 다투다 소송전"
## [48] "'위안부는 일종의 매춘' 발언 류석춘, 명예훼손 혐의 불구속기소"
## [49] "'주호영 몸수색'에 국회 발칵..野, 대통령 연설때 고성"
## [50] "16억아파트 10년 보유세만 9000만원..\"나라에 월세 내는 기분\""
##
## [[6]]
## [1] "\"터질 게 터져\" 제주MBC 대체 무슨 일이 있었길래"
## [2] "제주 '악마의 잼'으로 대박난 40대 업자 벌금만 15억"
## [3] "친구들과 공차던 중학생, 10분 뒤 사망..엇갈리는 유족과 학교"
## [4] "청와대 앞에서 막춤을..전 세계 3억 번 돌려 봤다"
## [5] "이만희에 귓속말 김평화..재판에서 드러난 '실세'"
## [6] "시골마을 4가구 나란히 쌍둥이 출산..아빠는 모두 '굴착기 기사'"
## [7] "도박과 불륜이 낳은 '관악구 모자살인'..남편 2심도 '무기징역'"
## [8] "박훈 변호사, '룸살롱 술접대' 검사 실명·얼굴 공개"
## [9] "연봉 4천만원에 월 100만원 긁으면 작년보다 130만원 더 공제"
## [10] "충남 한 주유소서 주유한 차량 무더기로 '고장'"
## [11] "고문하다 사람이 죽으면 낙동강 고기밥으로 던졌다"
## [12] "수상한 '빨래 바구니'..금반지·황금열쇠·골드바 와르르"
## [13] "\"7억 빚 안 물려받아\".. 故박원순 유족 상속포기 법원 수용"
## [14] "美 \"WTO총장에 유명희 지지\" 유럽 \"이제와서 왜 이러느냐\""
## [15] "오늘부터 외식 1만원·영화 6000원 할인..'506만명' 소비쿠폰 혜택"
## [16] "'코로나의 역설'..인간 사라지니 멸종위기 바다거북 기록적 부화"
## [17] "박훈 변호사, '룸살롱 술접대 의혹' 검사 실명 공개(종합)"
## [18] "\"야당이 왜이래\" 국민의힘, 저조한 지지율..커지는 비판 목소리"
## [19] "의사들 다시 집단휴진?..의협 긴급회의에 전공의·의대생 대표 참석했다"
## [20] "LG전자 생활가전 일냈다..누적 영업이익 2조원 돌파(종합2보)"
## [21] "文, 한번도 경험한 적 없는 '無 레임덕' 대통령 될까"
## [22] "프랑스 국가봉쇄에 간밤 '탈출 러시'..꼬리 문 차량행렬 700km (영상)"
## [23] "류호정 \"비겁한 민주당, 해괴한 이낙연..부끄러운 줄 알라\""
## [24] "바이든이 미국 대통령 되면 첫 한국인 WTO 사무총장 무산?"
## [25] "임은정 \"자성없이 성내는게 바른 검사냐\"..검사들 \"물타기냐\""
## [26] "인천 아파트서 엄마와 쌍둥이 자녀 의식 불명 상태로 발견"
## [27] "김정재 \"박원순, 무릎에 입술 맞추고..\" 발언에 與 고성"
## [28] "\"KF94 장당 300원\".. 마스크업체 줄도산 위기"
## [29] "김종인 \"MB만 확정..박근혜 전 대통령까지 나오면 대국민 사과\""
## [30] "\"혹시 가짜 마스크?\" 이 마스크 산 분들, 꼭 확인하세요"
## [31] "[특파원 시선] 이탈리아서 딸 잃은 부모의 절규..\"외교부는 어디 있나요\""
## [32] "이성윤 '尹가족 수사' 배당 지시했지만 부서 정하지 못한채 한달째"
## [33] "\"10알씩 입에 털어요\" 무심코 먹는 영양제 하루에 몇 알까지 가능할까?"
## [34] "검사 저격 秋에 \"벌거벗은 임금님\"..'커밍아웃' 일파만파"
## [35] "[단독]뭐 실어가러 왔나..올 두번째 한국 온 UAE 군 수송기"
## [36] "\"비싸서 안 사요?\"..전기차 가격 5년 내 1000만원 내린다"
## [37] "[레이더P] 국민의당 부대변인 탈당..안철수 서울시장 불출마 반발"
## [38] "마스크 고리..귀를 지킨다"
## [39] "[시선집중] 조은희 \"윤석열 화환 철거하라니 '너는 무슨 당이냐' 문자 폭탄 쏟아져 .. 법과 원칙은 공정해야\""
## [40] "옥중편지 변호사 \"尹과 상갓집? 혼밥했다\"..영수증 공개(종합)"
## [41] "BTS도, 차태현도, 전지현도 애틋하게 지나간 역"
## [42] "\"그 때 쉬는 건데..\" 운동을 후회하는 경우 5가지"
## [43] "\"트럼프 재선 확률 높다, 어찌됐든 대북정책은 유지될 것\""
## [44] "로또 1등 11차례 복권방, 새벽 6시부터 찍는 '마지막 희망'"
## [45] "\"신은 위대하다\" 외치며..기도하는 할머니도 참수"
## [46] "'민주당만 빼고' 임미리 \"문 대통령, 추미애와 윤석열 모두 해임하라\""
## [47] "방송사 영업정지 초유의 사태..MBN 향방은"
## [48] "이재명 \"부동산 문제 잘못 건드려 악순환 반복\""
## [49] "이명박 전 대통령, 재수감 앞두고 서울대병원 진료차 외출"
## [50] "이곳만 다녀가면..차량 100여 대 망가뜨린 주유소"
##
## [[7]]
## [1] "'김학의 법정구속' 결정타는 '연예인 아빠' 진술"
## [2] "봉인된 박근혜 때 '세월호 참사' 대통령기록물, 시민 힘으로 열릴까"
## [3] "서경석도 본 공인중개사 시험, 직접 치러보니..\"너 마저, 넘사벽\""
## [4] "13년 전 이명박-박근혜 '경선 폭로전'..모두 사실로"
## [5] "\"4년 전 아내가 사자고 했던 아파트가 7억이 올랐습니다\""
## [6] "개그맨 서경석도 응시..공인중개사 시험 34만명 접수 역대 최다(종합)"
## [7] "원산안면대교 교각에 낚싯배 '쾅'..3명 사망·19명 부상(종합2보)"
## [8] "MB 저격했던 BBK 김경준 \"정치 검찰 역사의 재판대에 올려야\""
## [9] "베일 벗은 인천 '새우타워'..기다란 수염에 다리까지 만들어"
## [10] "동부구치소 돌아가는 MB 다시 독방으로..최서원 '한솥밥'"
## [11] "\"살고 싶어요\"..마스크 공장 사장의 '호소'[르포]"
## [12] "피 흘릴 때까지 공무원 폭행한 전남 강진체육회장 구속"
## [13] "[이주의 미오픽] KBS 탐사보도에 딱 걸린 검찰의 '기획수사' 의혹"
## [14] "김진태 \"후배 검사들 끝까지 버텨라..곧 좋은 세상 온다\""
## [15] "\"넌 여기서 못 살걸, 난 잠깐 형을 살면 돼\"..뻔뻔한 유사강간범"
## [16] "가수 이승환 \"세월호 고통 안긴 분들, 잘 살고 계신가\""
## [17] "지구촌 전체 GDP 7만 배짜리 '노다지' 광물 소행성 발견"
## [18] "걷잡을 수 없는 확산..이탈리아 일일 확진자 사상 첫 3만명대(종합)"
## [19] "\"공익 차원서 깐다\"..라임 '술접대 의혹' 검사 실명 공개 파문"
## [20] "\"이사오면 3년 연봉줄게요\"..伊 마을 파격조건으로 청년 유혹"
## [21] "거리두기 1단계 완화 후 확진자 다시 급증..내일 거리두기 개편 주목"
## [22] "\"오로지 한국인 위해 잡는다\" 골뱅이船 띄우는 영국"
## [23] "다시 K-방역 주목하는 유럽..\"오만함 버리고 한국 배워야\""
## [24] "'부자의 왕도' 물었더니..1위 사업, 2위 부동산, 3위는?"
## [25] "[사건의 재구성] 일당 15만원 택배알바..배달품목은 '체크카드'"
## [26] "\"김밥 빼고 물감·팔레트..\" 산 100곳서 붓질하는 여자"
## [27] "北, 윤석열 또 맹비난..\"형님 떠받드니 왕이라도 된 듯\""
## [28] "던킨·배스킨, 13조원에 팔린다..미2위 레스토랑체인 탄생"
## [29] "14세 여학생, 국내 3번째 소아·청소년 다기관염증증후군 발생(종합)"
## [30] "'김신조 사건' 52년만에 개방된 북악산 철문..문 대통령 직접 열어"
## [31] "\"안철수, 보여준 게 없다\" 청년 탈당에 술렁이는 국민의당"
## [32] "'바이든이어야 하는 이유'..유력 매체들, 노골적인 '바이든 지지 커밍아웃'"
## [33] "가격인상 루머에 터진 '샤넬 쇼핑대란'..\"새벽부터 100명 줄\""
## [34] "나이지리아 \"美반대에도 WTO 총장 우리후보 뽑히게 작업\""
## [35] "야구장 관객 꽉 채워 '감염 실험'..日 '코로나 마루타' 논란"
## [36] "대리사과에 거부감 드러낸 의대생들..갈수록 꼬여가는 의사국시"
## [37] "고문하다 사람이 죽으면 낙동강 고기밥으로 던졌다"
## [38] "음주 뒤 차에서 잤더니..\"음주운전했죠?\" 견인차 기사들의 협박"
## [39] "검사들 커밍아웃 '사이버 연판장'..秋 \"불편한 진실 계속\""
## [40] "이곳만 다녀가면..차량 100여 대 망가뜨린 주유소"
## [41] "'손님 가장' 남성에 성매매 알선한 업주<U+2027>여종업원 1심서 무죄..이유는?"
## [42] "[영상] 터키·그리스 덮친 규모 7.0 강진..\"쓰나미가 더 심각\"(종합2보)"
## [43] "72년생 서경석도 봤다..34만 몰린 공인중개사 시험 40대 최다"
## [44] "[단독] 윤석열, 진천에서 '신임부장 소집'..조직 다지기 본격화"
## [45] "김민석 \"의사국시 당정청 합의 없어..최대집 자작극 언플 중단해야\""
## [46] "김경준 \"BBK도 이명박 소유..진술 막은 검찰 단죄해야\""
## [47] "마스크 고리..귀를 지킨다"
## [48] "'처치곤란' 아이스팩, 재활용 아이디어 '눈길'"
## [49] "\"신은 위대하다\" 외치며..기도하는 할머니도 참수"
## [50] "[화보] 19년 만에 뜬 '핼러윈 블루문'..다음은 2039년"class(headline_list)## [1] "list"length(headline_list)## [1] 7urls[2]## [1] "https://news.daum.net/ranking/popular?regDate=20201026"headline_list[[2]]## [1] "아내와 성관계 후 갑자기 폭행한 뒤 살해..英 갑부의 두 얼굴"
## [2] "한국은 되고 유럽은 안 되는 이유, '가디언'의 적나라한 지적"
## [3] "[단독] 나라에 낼 돈 130억인데, 조국 모친 \"전재산 9만원\""
## [4] "\"EU 회원국, WTO 총장 선거서 나이지리아 후보 지지에 접근\""
## [5] "살 뺀다고 탄수화물을 끊어? \"줄일 것은 따로 있어요\""
## [6] "온천천에 나타난 진객 연어, \"하루 사이 무슨 일이.. \""
## [7] "어린이집서 친구와 부딪쳐 넘어진 5살..이틀만에 숨져(종합)"
## [8] "싱가포르, 한국 '독감백신 접종 후 사망'에 백신 2종 접종 중단"
## [9] "제2의 '구하라 사건'..딸 숨지자 28년만에 나타난 생모"
## [10] "28년만에 나타나 딸 억대 유산 챙긴 친모..간병한 계모에 절도소송까지"
## [11] "\"고소하니 합의하자고..\" 어느 날 사라진 유튜버, 망가진 그의 삶"
## [12] "윤석열 화환 '나이트클럽' 조롱한 진혜원..야당 \"부하가 상급자 모욕, 징계감\""
## [13] "\"질병청 믿고 백신 맞자\"..62~69세 반나절 만에 26만명 접종"
## [14] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [15] "가수 '상위 1%' 63명 연소득 34억원..1%가 전체소득 53% 차지"
## [16] "\"물 찾다 실수로 소주 1병 마셔\".. 음주운전 경찰관의 황당 변명"
## [17] "\"윤석열 누구랑 밥먹으면 고발할 것..윤석열 정치 방지법 만들어야\""
## [18] "한 달째 전남대 앞 쓰레기봉투 들고 나타난 20대들"
## [19] "이건희 상속세 무려 11조..국가 세입예산마저 뒤흔들었다"
## [20] "'전 남편 살해 무기징역' 고유정, 현 남편과 이혼소송서 패소"
## [21] "'6.25는 북침' 열 올리는 중국, 동조하는 아이돌..조용한 한국 정부"
## [22] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [23] "미국서 '살인말벌' 제거 작전..완전무장에 진공청소기 동원"
## [24] "허수아비 후보로 세운 청소부, 진짜로 러 시장 되자 벌어진 일"
## [25] "'공항 화장실에 버려진 아이' 카타르, 여성승객 강제 자궁 검사"
## [26] "부산에 있는 55년 '해운대암소갈비'가 서울에도..법원 \"불법행위\""
## [27] "추미애, 野 사퇴요구에 \"뭐라 하겠나..장관 한번 해보세요\""
## [28] "'#택배기사님감사합니다'..잇단 사망에 \"새벽배송 안 시킨다\""
## [29] "\"되찾을 수 없는 건 생명\"..이건희 '가짜 편지' 확산"
## [30] "[타봤습니다] 비행기는 탔지만 목적지는 없다..완판된 9만9000원 여행"
## [31] "\"40만원 과외, 버는건 8만원\" 요즘 대학생들에게 무슨 일이"
## [32] "다시 칼 빼든 추미애 \"윤석열 중앙지검장 때 옵티 무혐의, 감찰 예정\"(종합)"
## [33] "강경화 \"'병역 면탈' 유승준 비자 발급, 허용하지 않기로\""
## [34] "바이든 아들은 노트북 수리를 맡겼다, 그것이 화근이었다"
## [35] "조국에게 총애받던 박형철, 그가 입 열수록 조국은 다친다"
## [36] "'부하' 표현..조수진 \"우병우에 썼잖냐\" 秋 \"기억 없다\""
## [37] "김홍희 해경청장 \"충동적 공황상태에서 자진 월북..증거 다수\"(종합)"
## [38] "[이건희 별세] 사인은 '신부전'..신장이 노폐물 걸러내지 못하는 병"
## [39] "검찰인사 문제삼는 野에 폭발..추미애 \"총장한테 물어봐라\""
## [40] "종전선언 논의하러 美갔는데..北 \"외세 할아비처럼 섬기며 비굴하게 처신\""
## [41] "추미애, 윤석열 국감 맹공..'직접감찰·해임건의' 꺼냈다"
## [42] "추미애 \"김봉현 술접대 검사 수사팀장 투입..사실로 확인\"(종합)"
## [43] "'시속 166km' 음주운전하다 2명 사망사고 낸 20대 징역 7년"
## [44] "\"못살겠다, 불안해서\"..대선 앞두고 총 사러가는 미국인"
## [45] "[시선집중] 윤호중 \"윤석열 불쌍하기까지.. 악마에 영혼 판 파우스트 같아\""
## [46] "어린이집에서 놀던 5살 남아 숨져..경찰 수사"
## [47] "70대 몰던 어린이 통학버스 주유소 돌진..2명 부상"
## [48] "박상기 \"내가 윤석열에게 '조국 선처'?..참 어이가 없다\""
## [49] "강준만 \"문재인 정권 거의 모든 게 내로남불, 정리하다 포기\""
## [50] "삼성전기 3분기 영업이익 3천25억원..작년 동기 대비 59.9%↑(종합)"headline_list## [[1]]
## [1] "오바마 \"한국 인구당 코로나 사망률은 미국 1.3%\"..트럼프 직격"
## [2] "한국 재계의 거목 '하늘나라로'..이건희 삼성 회장 별세(종합)"
## [3] "[이건희 별세] 이재용, 두 자녀와 빈소 도착..정·재계 애도행렬(종합)"
## [4] "\"박원순 때와 왜 이리 달라\"..이낙연 '이건희 추모 페북'에 비판 댓글"
## [5] "[무플방지]\"윤석열, 아내 재산과 무관?..조국 땐 왜 그랬나\""
## [6] "이건희 삼성전자 회장 투병끝 별세, 향년 78세(상보)"
## [7] "[이건희 별세] 상속세 10조 넘을 듯..주식재산 18조 2000억원"
## [8] "'차기 대통령 감' 이재명 23%, 이낙연 20%인데.. '없다' 28%"
## [9] "\"27살 차이 한베커플 첫 만남\"..러브스토리인줄 알았는데 반전"
## [10] "부동산 세금 큰 파도 온다..\"집 팔려면 올해 넘기지 마라\""
## [11] "내성적이지만 엉뚱했던 소년..'초일류' 삼성 만들었다"
## [12] "국내 1위 부호 삼성 이건희 자산 18조..어떻게 처리되나"
## [13] "하루에 4개 주 강행군..\"한국을 봐라\" 코로나로 비판"
## [14] "성폭행도, 살해도 '봐도 모른척' 中.. 웨이관 문화 뭐길래 [관심집中]"
## [15] "강기정 \"윤석열, 대통령 순방 때마다 난리.. 조용히 수사하랬다가 타깃\""
## [16] "[취재후] 새벽 아파트 11층 유리창 깬 물체는?..누가 어디서 쐈나?"
## [17] "'라면형제'에 쏟아진 후원금..\"엄마에겐 직접 주지 않는다\""
## [18] "일본, 유명희 견제..\"WTO 총장에 나이지리아 후보 지지 방침\""
## [19] "[단독] 부산 온천천에 연어가 나타났다.. 추정 사체 등 2마리 목격"
## [20] "\"죽으면 책임진다\" 구급차 막은 택시기사, 징역 2년형 논란"
## [21] "사과받으러 간 성폭행 피해자를 또..대법, 징역 5년 확정"
## [22] "진혜원 검사, '윤석열 응원' 화환에 연이틀 비판"
## [23] "\"코로나 확'찐'자 안되려면 걸으세요\"..1주일 최소 150분 빠르게"
## [24] "행실 무개념 연예인 Top3? 조회수 목맨 '이슈 유튜버'"
## [25] "\"배달앱 지각변동 시작됐다\""
## [26] "후배 도우러 흉기 챙겨갔다가 40년 동네 선배 살해한 50대..징역 20년"
## [27] "\"나 저 후보 때문에 망했어\"..김진태 후보 선거운동원 폭행한 50대 벌금형"
## [28] "[이건희 타계]'글로벌 삼성' 키워냈지만..순탄치않은 가족사"
## [29] "[세쓸통]\"NO재팬 벌써 끝?\"..車 판매 늘자 비웃는 日"
## [30] "野 \"진혜원, 직속상관 윤석열을 '나이트 개업' 조롱..징계해야\""
## [31] "[이건희 별세] 사양한다 했는데도 밀려드는 조화로 '북적'.. 외부인 출입 통제"
## [32] "'야당의 시간' 국감인데 국민의힘 6%p 하락..민주당 지지율 35%"
## [33] "\"왜 독가스를 뿜어 대느냐\"고 따지던 옆집 할머니"
## [34] "\"이병철 선대회장 때처럼?\"..호텔신라·패션, 삼성서 계열 분리될까"
## [35] "여권이 키운 '윤석열 대망론'..\"죽 써서 개 주게 될라\" [홍영식의 정치판]"
## [36] "'라면형제' 기부금 모금은 중단..\"목숨 건진 10살형 지원은 계속\""
## [37] "'학대누명 교사 자살사건' 여론 분노..엄벌 청원 30만 훌쩍"
## [38] "[이건희 타계]이재현 CJ 회장 \"집안 이끈 자랑스러운 작은 아버지\""
## [39] "10조→387조..\"삼성의 거침없는 진격에 천하의 애플도 떨었다\""
## [40] "5·18 부당징계 경찰관 급여 정산액 10만원..'40년 전 봉급대로'"
## [41] "'혈세 4300억' 어쩌나..애물단지 전락한 영암 F1 서킷 [세금 먹는 하마]"
## [42] "미 복지장관 \"한국 대형교회 코로나때 접촉자 체포 위해 군활용\""
## [43] "\"한국 교회 접촉자 체포하려 군 동원\" 미 복지장관 황당 주장"
## [44] "이건희 삼성 회장 별세에 정치권 '조문·애도' 긴급 논의"
## [45] "정부, 6·25책임 美에 돌린 시진핑에 \"북의 남침은 역사적 사실\""
## [46] "일본에 \"스가=히틀러\" \"일본 국민=나치독일 국민\" 논쟁 가열"
## [47] "[뉴스人사이드]베일에 싸인 亞 최고 여성부호..정작 그를 알린건 '국적세탁'"
## [48] "\"이 가격에 계속 쿠팡에 납품해야 하나?\"..고민하는 제조기업"
## [49] "[왜?]\"구충제 효과\"→\"먹는 환자들 말려야\" 김철민 국감 증언"
## [50] "[이건희 별세]상속세 10조 그게 다가 아니다, 이재용·이부진 과제"
##
## [[2]]
## [1] "아내와 성관계 후 갑자기 폭행한 뒤 살해..英 갑부의 두 얼굴"
## [2] "한국은 되고 유럽은 안 되는 이유, '가디언'의 적나라한 지적"
## [3] "[단독] 나라에 낼 돈 130억인데, 조국 모친 \"전재산 9만원\""
## [4] "\"EU 회원국, WTO 총장 선거서 나이지리아 후보 지지에 접근\""
## [5] "살 뺀다고 탄수화물을 끊어? \"줄일 것은 따로 있어요\""
## [6] "온천천에 나타난 진객 연어, \"하루 사이 무슨 일이.. \""
## [7] "어린이집서 친구와 부딪쳐 넘어진 5살..이틀만에 숨져(종합)"
## [8] "싱가포르, 한국 '독감백신 접종 후 사망'에 백신 2종 접종 중단"
## [9] "제2의 '구하라 사건'..딸 숨지자 28년만에 나타난 생모"
## [10] "28년만에 나타나 딸 억대 유산 챙긴 친모..간병한 계모에 절도소송까지"
## [11] "\"고소하니 합의하자고..\" 어느 날 사라진 유튜버, 망가진 그의 삶"
## [12] "윤석열 화환 '나이트클럽' 조롱한 진혜원..야당 \"부하가 상급자 모욕, 징계감\""
## [13] "\"질병청 믿고 백신 맞자\"..62~69세 반나절 만에 26만명 접종"
## [14] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [15] "가수 '상위 1%' 63명 연소득 34억원..1%가 전체소득 53% 차지"
## [16] "\"물 찾다 실수로 소주 1병 마셔\".. 음주운전 경찰관의 황당 변명"
## [17] "\"윤석열 누구랑 밥먹으면 고발할 것..윤석열 정치 방지법 만들어야\""
## [18] "한 달째 전남대 앞 쓰레기봉투 들고 나타난 20대들"
## [19] "이건희 상속세 무려 11조..국가 세입예산마저 뒤흔들었다"
## [20] "'전 남편 살해 무기징역' 고유정, 현 남편과 이혼소송서 패소"
## [21] "'6.25는 북침' 열 올리는 중국, 동조하는 아이돌..조용한 한국 정부"
## [22] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [23] "미국서 '살인말벌' 제거 작전..완전무장에 진공청소기 동원"
## [24] "허수아비 후보로 세운 청소부, 진짜로 러 시장 되자 벌어진 일"
## [25] "'공항 화장실에 버려진 아이' 카타르, 여성승객 강제 자궁 검사"
## [26] "부산에 있는 55년 '해운대암소갈비'가 서울에도..법원 \"불법행위\""
## [27] "추미애, 野 사퇴요구에 \"뭐라 하겠나..장관 한번 해보세요\""
## [28] "'#택배기사님감사합니다'..잇단 사망에 \"새벽배송 안 시킨다\""
## [29] "\"되찾을 수 없는 건 생명\"..이건희 '가짜 편지' 확산"
## [30] "[타봤습니다] 비행기는 탔지만 목적지는 없다..완판된 9만9000원 여행"
## [31] "\"40만원 과외, 버는건 8만원\" 요즘 대학생들에게 무슨 일이"
## [32] "다시 칼 빼든 추미애 \"윤석열 중앙지검장 때 옵티 무혐의, 감찰 예정\"(종합)"
## [33] "강경화 \"'병역 면탈' 유승준 비자 발급, 허용하지 않기로\""
## [34] "바이든 아들은 노트북 수리를 맡겼다, 그것이 화근이었다"
## [35] "조국에게 총애받던 박형철, 그가 입 열수록 조국은 다친다"
## [36] "'부하' 표현..조수진 \"우병우에 썼잖냐\" 秋 \"기억 없다\""
## [37] "김홍희 해경청장 \"충동적 공황상태에서 자진 월북..증거 다수\"(종합)"
## [38] "[이건희 별세] 사인은 '신부전'..신장이 노폐물 걸러내지 못하는 병"
## [39] "검찰인사 문제삼는 野에 폭발..추미애 \"총장한테 물어봐라\""
## [40] "종전선언 논의하러 美갔는데..北 \"외세 할아비처럼 섬기며 비굴하게 처신\""
## [41] "추미애, 윤석열 국감 맹공..'직접감찰·해임건의' 꺼냈다"
## [42] "추미애 \"김봉현 술접대 검사 수사팀장 투입..사실로 확인\"(종합)"
## [43] "'시속 166km' 음주운전하다 2명 사망사고 낸 20대 징역 7년"
## [44] "\"못살겠다, 불안해서\"..대선 앞두고 총 사러가는 미국인"
## [45] "[시선집중] 윤호중 \"윤석열 불쌍하기까지.. 악마에 영혼 판 파우스트 같아\""
## [46] "어린이집에서 놀던 5살 남아 숨져..경찰 수사"
## [47] "70대 몰던 어린이 통학버스 주유소 돌진..2명 부상"
## [48] "박상기 \"내가 윤석열에게 '조국 선처'?..참 어이가 없다\""
## [49] "강준만 \"문재인 정권 거의 모든 게 내로남불, 정리하다 포기\""
## [50] "삼성전기 3분기 영업이익 3천25억원..작년 동기 대비 59.9%↑(종합)"
##
## [[3]]
## [1] "'백신 사망' 17세 고교생, 부검서 화학물질 검출..유족 \"억울하다\""
## [2] "[단독][취재파일] 잿더미 된 사찰, 알고 보니..부처님 앞 \"할렐루야!\" 외친 '그 여자'"
## [3] "'화학물질 검출' 고교생..경찰 \"직접 구매 확인\" 가족 \"극단선택 이유없다\""
## [4] "[AS뉴스]\"엽기폭행 양진호, 옥중 결혼..한해 수익 2백억\""
## [5] "[단독] '조국 일가 명예훼손' 보수 블로거 \"조 선생님 선처를\""
## [6] "'붉은대게' 재고 산더미..공장 문 닫고 조업 포기"
## [7] "성병 숨기고 7개월간 두명과 성관계..20대 집행유예"
## [8] "용인 골프모임 31명 집단확진..가족모임·어린이집서도 새 감염(종합)"
## [9] "7억짜리 용인 땅, 300억 됐다..이건희가 건설비 전액 댄 이곳"
## [10] "[단독] \"실종 보고받고 지휘한 내용 밝혀라\"<U+22EF> 피격 공무원 형, 청와대에 정보공개 청구"
## [11] "자신과 아내 지키려 흉기든 이웃 제압해 숨지게 한 70대 '무죄'"
## [12] "세계최고 수준 천문학적 세금 '폭탄'..세금 때문에 기업 판다"
## [13] "트럼프 개인 빚 1조2400억..재선 실패땐 파산 가능성"
## [14] "'갑질폭행' 양진호, 옥중결혼 이유..부인 통해 매년 200억 가져간다"
## [15] "'3000만원 현상금'에 놀라 롤렉스 반환한 범인 \"고가인줄 몰랐어요\"[사건TMI!]"
## [16] "트럼프 잔고 바닥났다, 바이든은 45억짜리 브래드 피트 광고"
## [17] "무면허로 전동킥보드 타다 택시 충돌한 고교생, 사흘만에 사망"
## [18] "\"휠 고의 파손? 그런적 없다\" 타이어뱅크 점주 '사과문' 나흘만에 돌변"
## [19] "문대통령이 윤석열에 메신저 보내?..靑 \"정보 없어 확인 불가\""
## [20] "시외버스서 승객 너머로 자위행위 촬영 20대 집행유예"
## [21] "강경화 \"비자발급 안돼\"→유승준 또 호소문..\"국민이 거부\" 여론 싸늘"
## [22] "인천 마트 주차장 3층서 승용차 추락..70대 운전자 숨져"
## [23] "유튜브 잠깐 출연했다 봉변.. 일상 덮친 이름 모를 '악플'"
## [24] "트럼프 극찬한 항체 치료제 실제 써보니 '효과'"
## [25] "인천 고교생 사망 원인 \"독감 백신 아닌 독극물\""
## [26] "백*원의 원조쌈밥집 등 '자기 이름을 상표로'..성명상표 출원 활발"
## [27] "파지수집 리어카 끌던 노인, 전복된 승용차에 치여 사망(종합)"
## [28] "아프리카서 물개 7000마리 떼죽음 미스터리..대부분 태아 상태"
## [29] "백악관 \"대유행 통제 않을 것\" 바이든 \"패배의 백기 흔들어\""
## [30] "'한동훈과 육탄전' 정진웅, 독직폭행 혐의로 기소(종합)"
## [31] "\"왜 더 큰 평수로 옮겨요? 이거 거래허가 못내줍니다\""
## [32] "AFP \"EU 회원국 대다수, WTO 총장 선거서 나이지리아 후보 지지\""
## [33] "중국 공청단 \"한국전쟁 남침 아니다..한 국가 내전\" 궤변(종합)"
## [34] "의협 다시 집단행동? \"28일까지 의사국시 해결책 내놓지 않으면..\""
## [35] "이탈리아 언론 또 한국 칭찬..\"첨단기술로 바이러스 잡았다\""
## [36] "EU 27개 '몰표' 나이지리아로..WTO 첫 한국인 수장 선출 경고등"
## [37] "이건희 회장 병상 6년간 일가 받은 배당금 2.8조"
## [38] "[황보선의출발새아침] 박수영\"文 대통령, 둘 다 해임하든 한 사람 해임하든지 결단해야\""
## [39] "쇠징 박힌 신발 신은 채 후배 얼굴 걷어찬 겁 없는 10대"
## [40] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [41] "1인용 킥보드에 남녀 두명이? 도로 위 '위험천만' 데이트"
## [42] "낙동강 하구 이어 도심하천인 부산 온천천에서도 연어 발견"
## [43] "\"한국만 아니면 된다\"..고비 때마다 '발목' 잡는 일본"
## [44] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [45] "룸살롱서 술판 벌이고 라임 자료 줬는데.. 금감원은 '사적영역'이라며 부실 감찰"
## [46] "\"한국반도체 인수 검토하라\" 한마디..삼성, 세계적 기업 시발점 됐습니다"
## [47] "[단독]해외는 좌석 채우는데..한국은 연인도 띄어앉아"
## [48] "김봉현이 주장한 술접대, 당사자 전원 \"검사 없었다\""
## [49] "독감 백신 접종 뒤 숨진 인천 고교생 형 \"억울함 풀어달라\" 청원(종합)"
## [50] "중국 신장서 기침·발열없이 137명 집단감염..\"이전 코로나와 다르다\""
##
## [[4]]
## [1] "[현장영상] 故 이건희 회장 발인 엄수..눈물 보이는 딸 이부진"
## [2] "'딸들 광고 좀 하겠다'던 이건희 회장.. 눈물로 보낸 두딸"
## [3] "\"떼쓸 것을 써라\" 사망 원인 묻는 유가족에 쏟아지는 '악플' <U+00A0>"
## [4] "내 딸이, 12시간 동안 쇠창살에 찔려 죽었다"
## [5] "'별장 성접대' 김학의 무죄 뒤집혀 법정구속..\"상고할 것\"(종합)"
## [6] "여자손님 잇달아 성폭행한 40대 게스트하우스 주인 감형"
## [7] "양배추, 삶은 달걀, 사과.. 아침에 좋은 건강식 5가지"
## [8] "\"코로나환자 수차례 접촉해도 감염 안되는 사람들 있어\" 러' 전문가"
## [9] "'까맸던 얼굴이' 코로나 극한 투병 중국인 의사 회복"
## [10] "\"지금 예약해도 내년에나 가능\"..병원마다 검진 환자 북새통"
## [11] "[단독] \"난 곁가지다\" 김봉현, 진짜 '라임 몸통' 실명 밝혔다"
## [12] "文 시정연설에 野 '이게 나라냐' 항의..'신원검색' 소란도(종합)"
## [13] "'항미원조 선동' 아이돌 '일파만파'..소속사·방송사까지 '규탄'"
## [14] "이건희 회장 화성 삼성반도체서 마지막 인사..임직원 국화 배웅"
## [15] "23년간 TV 50대 수신료 내온 병원, KBS에 \"10대 뿐..23년치 환불 요구\""
## [16] "고문으로 얼굴 붓지 않은 '어린 유관순' 찾았다"
## [17] "\"인천 고교생 사망.. 독감 백신 음모론은 틀렸다\""
## [18] "'42명 확진' 용인 동문 골프모임은 성균관대 '비학위과정 모임'"
## [19] "[단독] \"이건희, '일 한번 벌여보자'..고대·성대 합치려 했다\""
## [20] "\"등록금·신혼집 날렸어요\" 빅히트 주식 '영끌'한 개미들 아우성"
## [21] "정청래 \"한푼 줍쇼\" 앵벌이 논란에..\"고액 연봉자\" vs \"솔직하다\""
## [22] "서초구 \"윤석열 화환 강제철거\" 예고..일부 시민 \"민주국가 맞나\""
## [23] "'주호영 몸수색'에 국회 발칵..野, 대통령 연설때 고성"
## [24] "WTO, 오늘 밤 선호도 조사결과 통보..유명희 당선 조만간 윤곽"
## [25] "\"안마의자 쓰면 키 크고 집중력 좋아져\"..검찰, 바디프랜드 기소"
## [26] "이재명 '文 시정연설' 겉으로는 칭찬했지만..\"과오 반복 안돼\" 우회적 비판"
## [27] "코웃음 친 박범계 \"옵티머스, 자료 없어 계좌 추적 못했다고?\""
## [28] "[황보선의출발새아침] 호사카 유지\"日, 美 따라 유명희 지지할 것.. 당선가능성 60%\""
## [29] "홍준표 \"지지율 4% 정당 살려놨더니..야당 왜 이래\""
## [30] "[데일리안 여론조사] '차기 대권' 이재명22.8%, 이낙연21.6%, 윤석열15.1%"
## [31] "추미애, 수사지휘 이어 '감찰그물'로 윤석열 꽁꽁..사퇴종용인가"
## [32] "'별장 성접대' 김학의 무죄 뒤집혔다..2심 실형 법정구속"
## [33] "[단독] 대구 실종 잠수사, 취수구 배관에 빨려 들어간 듯..관로 절단 추진"
## [34] "오바마 \"김정은이 트럼프 재선 원한다고?..모든 것 줬기 때문\""
## [35] "[단독][취재파일] 잿더미 된 사찰, 알고 보니..부처님 앞 \"할렐루야!\" 외친 '그 여자'"
## [36] "문대통령·정총리 다 나섰지만 '나이지리아' 손 든 EU, WTO 선거 '먹구름'"
## [37] "\"전두환 아직 정신 못 차렸네\".. 수상한 사람들의 반격"
## [38] "의료계 또 다시 집단행동?..의협 \"정부, 국시 문제 해결책 내놔라\""
## [39] "의협 다시 집단행동? \"28일까지 의사국시 해결책 내놓지 않으면..\""
## [40] "\"휠 고의 파손? 없다\" 평생 반성하겠다던 타이어뱅크 점주 '돌변'"
## [41] "의협 '의대 국시' 강공 전환..의료계마저 \"국민 협박하나\""
## [42] "오색찬란 단풍 속 하늘 찌를 듯 솟은 '한국의 장자제'"
## [43] "\"이 아이, 300만원\" 중학생 당근마켓 글..실제 문의한 사람들(종합)"
## [44] "문정인 \"반중 군사훈련 동참시 중국은 한국을 적으로 간주할 것\"(종합)"
## [45] "하필 마오 아들 생일날, 계란볶음밥 만들다 욕먹은 中요리사"
## [46] "정의선 현대차 회장, 이건희 회장 영결식에도 달려왔다"
## [47] "[단독/레이더P] '방역지침 위반 논란' 강경화 장관 남편, 요트 결국 못 샀다"
## [48] "아파트 관리소장 살해한 60대 입주자대표, 도주했다가 자수"
## [49] "2억7천만 뷰 기록한 '이날치 열풍'..세계 매료시킨 '조선의 힙합'"
## [50] "유승민 \"文대통령, 나라살림 거덜 내려 작정..악성 포퓰리즘 몰아내야\""
##
## [[5]]
## [1] "\"혹시 가짜 마스크?\" 이 마스크 산 분들, 꼭 확인하세요"
## [2] "대장과 병장 월급 차이.. 이 정도일 줄은 몰랐을 거다"
## [3] "[단독] 이건희 회장 장지까지 간 3개의 조화, 누구일까"
## [4] "'하''허''호' 번호판에 당했다, 콜받고 갔다 돈폭탄 맞는 대리기사"
## [5] "\"추 장관님, 저 역시 커밍아웃합니다\" 이어지는 평검사들의 비판글"
## [6] "나이지리아 손 들어준 WTO..유명희, 사퇴·버티기 갈림길(종합2보)"
## [7] "한밤 고층 아파트에 드론 띄워 성관계 현장 촬영 일당 기소"
## [8] "\"우리 WTO 후보는\".. 日, 유명희 예상 밖 선전에 '충격' [특파원+]"
## [9] "\"다스는 MB것\" 밝혀낸 검사들, 추미애 취임후 죄다 좌천됐다"
## [10] "'스스로 코로나 두 번 감염' 69세 교수의 결론..\"집단면역 소용없다\""
## [11] "무허가 공장서 마스크 1천만장 만들어 KF94로 속여 판 일당 적발"
## [12] "대법원, 이명박 전 대통령 징역 17년·벌금 130억 확정(종합)"
## [13] "징역 17년 확정 이명박 \"법치 무너져, 진실 반드시 밝혀질 것\"(종합2보)"
## [14] "\"다시 유행하는 코로나..최고의 투자처는 한국\""
## [15] "평생 동반자 떠나보낸 홍라희..\"삼성의 조용한 조력자\""
## [16] "'윤석열 화환' 물결..대검, 서초구 철거 요청에 협조 부탁"
## [17] "박형준, 국민의힘 8년 만에 복당..부산시장 출마 준비 중"
## [18] "[단독그후] '여교사 7명 불법 몰카촬영' 고교생 '퇴학처분'..우편물 뒤지며 '찰칵'"
## [19] "밀린다는 소식에 보란 듯 \"유명희 지지\"..승복이냐 완주냐"
## [20] "'윤석열 화환' 철거 요구 김남국에..서민 \"낙엽 떨어지는 11월엔 외출 금지하자\""
## [21] "\"커피마시러, 담배피우러 나간 시간, 근로시간인가?\""
## [22] "의협 또 '파업 가능성'에 등돌린 여론..네티즌들 비판 목소리"
## [23] "국민의힘, 청년 비대위원 뽑아놨더니.. 연일 '상속세 인하' 목청"
## [24] "미국 유명희 지지에 유럽언론은 '일방주의·WTO 사보타주' 의심"
## [25] "윤석열 장모 변호인 \"속아서 사문서위조했다\"..장모는 불출석"
## [26] "[사건의 재구성]\"성폭행 당했다\" 거짓고소 들통난 꽃뱀 범행"
## [27] "[3보] 이명박 전 대통령 징역 17년·벌금 130억 확정..재수감"
## [28] "코로나 입원환자 80%의 공통점..비타민D가 모자라"
## [29] "2억7천만 뷰 기록한 '이날치 열풍'..세계 매료시킨 '조선의 힙합'"
## [30] "코로나에 갇힌 6개월, 딸은 다시 아기가 됐다"
## [31] "\"4인가족에 왜 40평 필요\" 구청 공무원의 황당 발언"
## [32] "'이재용 상속세 인하' 주장에..이재웅 \"일고의 가치 없어\""
## [33] "추미애, '검찰개혁 실패' 검사 글 저격..\"개혁이 답이다\""
## [34] "고문으로 얼굴 붓지 않은 '어린 유관순' 찾았다"
## [35] "유준상 \"한칸 띄워앉으면 적자\" 호소..정총리 \"공연계 요구 고려\""
## [36] "5년만에 의원 체포동의안 가결..정정순 \"의원들 선택 존중\"(종합)"
## [37] "[단독] 검찰, 조해진 국민의힘 의원에 벌금 300만원 구형"
## [38] "미 무역대표부, WTO 사무총장 '유명희 지지' 공식 발표(종합)"
## [39] "與, 이명박 징역형 확정에 \"국민의힘, 대국민 사과하라\""
## [40] "정경심, 재판 막판에 증거 70여개 제출..검찰 \"부당하다\""
## [41] "\"아들 만나겠다\"며 집 나선 70대..실종 18일만에 숨진 채 발견(종합)"
## [42] "친구들과 축구하다 넘어진 중1, 10분 뒤 사망 '논란'"
## [43] "조폭 끼고 버리고 째고.. \"전국 쓰레기산 처리비만 1천억\" [이슈&탐사]"
## [44] "인천 아파트서 노부부 숨진 채 발견..사망 원인 조사"
## [45] "김학의 운명 가른 '인디밴드 보컬' 부친의 말"
## [46] "'징역 17년 확정' 이명박, 침묵..측근들 속속 자택 집결"
## [47] "쪼잔한 억만장자..\"조망권 가린다\" \"훔쳐본다\" 이웃과 다투다 소송전"
## [48] "'위안부는 일종의 매춘' 발언 류석춘, 명예훼손 혐의 불구속기소"
## [49] "'주호영 몸수색'에 국회 발칵..野, 대통령 연설때 고성"
## [50] "16억아파트 10년 보유세만 9000만원..\"나라에 월세 내는 기분\""
##
## [[6]]
## [1] "\"터질 게 터져\" 제주MBC 대체 무슨 일이 있었길래"
## [2] "제주 '악마의 잼'으로 대박난 40대 업자 벌금만 15억"
## [3] "친구들과 공차던 중학생, 10분 뒤 사망..엇갈리는 유족과 학교"
## [4] "청와대 앞에서 막춤을..전 세계 3억 번 돌려 봤다"
## [5] "이만희에 귓속말 김평화..재판에서 드러난 '실세'"
## [6] "시골마을 4가구 나란히 쌍둥이 출산..아빠는 모두 '굴착기 기사'"
## [7] "도박과 불륜이 낳은 '관악구 모자살인'..남편 2심도 '무기징역'"
## [8] "박훈 변호사, '룸살롱 술접대' 검사 실명·얼굴 공개"
## [9] "연봉 4천만원에 월 100만원 긁으면 작년보다 130만원 더 공제"
## [10] "충남 한 주유소서 주유한 차량 무더기로 '고장'"
## [11] "고문하다 사람이 죽으면 낙동강 고기밥으로 던졌다"
## [12] "수상한 '빨래 바구니'..금반지·황금열쇠·골드바 와르르"
## [13] "\"7억 빚 안 물려받아\".. 故박원순 유족 상속포기 법원 수용"
## [14] "美 \"WTO총장에 유명희 지지\" 유럽 \"이제와서 왜 이러느냐\""
## [15] "오늘부터 외식 1만원·영화 6000원 할인..'506만명' 소비쿠폰 혜택"
## [16] "'코로나의 역설'..인간 사라지니 멸종위기 바다거북 기록적 부화"
## [17] "박훈 변호사, '룸살롱 술접대 의혹' 검사 실명 공개(종합)"
## [18] "\"야당이 왜이래\" 국민의힘, 저조한 지지율..커지는 비판 목소리"
## [19] "의사들 다시 집단휴진?..의협 긴급회의에 전공의·의대생 대표 참석했다"
## [20] "LG전자 생활가전 일냈다..누적 영업이익 2조원 돌파(종합2보)"
## [21] "文, 한번도 경험한 적 없는 '無 레임덕' 대통령 될까"
## [22] "프랑스 국가봉쇄에 간밤 '탈출 러시'..꼬리 문 차량행렬 700km (영상)"
## [23] "류호정 \"비겁한 민주당, 해괴한 이낙연..부끄러운 줄 알라\""
## [24] "바이든이 미국 대통령 되면 첫 한국인 WTO 사무총장 무산?"
## [25] "임은정 \"자성없이 성내는게 바른 검사냐\"..검사들 \"물타기냐\""
## [26] "인천 아파트서 엄마와 쌍둥이 자녀 의식 불명 상태로 발견"
## [27] "김정재 \"박원순, 무릎에 입술 맞추고..\" 발언에 與 고성"
## [28] "\"KF94 장당 300원\".. 마스크업체 줄도산 위기"
## [29] "김종인 \"MB만 확정..박근혜 전 대통령까지 나오면 대국민 사과\""
## [30] "\"혹시 가짜 마스크?\" 이 마스크 산 분들, 꼭 확인하세요"
## [31] "[특파원 시선] 이탈리아서 딸 잃은 부모의 절규..\"외교부는 어디 있나요\""
## [32] "이성윤 '尹가족 수사' 배당 지시했지만 부서 정하지 못한채 한달째"
## [33] "\"10알씩 입에 털어요\" 무심코 먹는 영양제 하루에 몇 알까지 가능할까?"
## [34] "검사 저격 秋에 \"벌거벗은 임금님\"..'커밍아웃' 일파만파"
## [35] "[단독]뭐 실어가러 왔나..올 두번째 한국 온 UAE 군 수송기"
## [36] "\"비싸서 안 사요?\"..전기차 가격 5년 내 1000만원 내린다"
## [37] "[레이더P] 국민의당 부대변인 탈당..안철수 서울시장 불출마 반발"
## [38] "마스크 고리..귀를 지킨다"
## [39] "[시선집중] 조은희 \"윤석열 화환 철거하라니 '너는 무슨 당이냐' 문자 폭탄 쏟아져 .. 법과 원칙은 공정해야\""
## [40] "옥중편지 변호사 \"尹과 상갓집? 혼밥했다\"..영수증 공개(종합)"
## [41] "BTS도, 차태현도, 전지현도 애틋하게 지나간 역"
## [42] "\"그 때 쉬는 건데..\" 운동을 후회하는 경우 5가지"
## [43] "\"트럼프 재선 확률 높다, 어찌됐든 대북정책은 유지될 것\""
## [44] "로또 1등 11차례 복권방, 새벽 6시부터 찍는 '마지막 희망'"
## [45] "\"신은 위대하다\" 외치며..기도하는 할머니도 참수"
## [46] "'민주당만 빼고' 임미리 \"문 대통령, 추미애와 윤석열 모두 해임하라\""
## [47] "방송사 영업정지 초유의 사태..MBN 향방은"
## [48] "이재명 \"부동산 문제 잘못 건드려 악순환 반복\""
## [49] "이명박 전 대통령, 재수감 앞두고 서울대병원 진료차 외출"
## [50] "이곳만 다녀가면..차량 100여 대 망가뜨린 주유소"
##
## [[7]]
## [1] "'김학의 법정구속' 결정타는 '연예인 아빠' 진술"
## [2] "봉인된 박근혜 때 '세월호 참사' 대통령기록물, 시민 힘으로 열릴까"
## [3] "서경석도 본 공인중개사 시험, 직접 치러보니..\"너 마저, 넘사벽\""
## [4] "13년 전 이명박-박근혜 '경선 폭로전'..모두 사실로"
## [5] "\"4년 전 아내가 사자고 했던 아파트가 7억이 올랐습니다\""
## [6] "개그맨 서경석도 응시..공인중개사 시험 34만명 접수 역대 최다(종합)"
## [7] "원산안면대교 교각에 낚싯배 '쾅'..3명 사망·19명 부상(종합2보)"
## [8] "MB 저격했던 BBK 김경준 \"정치 검찰 역사의 재판대에 올려야\""
## [9] "베일 벗은 인천 '새우타워'..기다란 수염에 다리까지 만들어"
## [10] "동부구치소 돌아가는 MB 다시 독방으로..최서원 '한솥밥'"
## [11] "\"살고 싶어요\"..마스크 공장 사장의 '호소'[르포]"
## [12] "피 흘릴 때까지 공무원 폭행한 전남 강진체육회장 구속"
## [13] "[이주의 미오픽] KBS 탐사보도에 딱 걸린 검찰의 '기획수사' 의혹"
## [14] "김진태 \"후배 검사들 끝까지 버텨라..곧 좋은 세상 온다\""
## [15] "\"넌 여기서 못 살걸, 난 잠깐 형을 살면 돼\"..뻔뻔한 유사강간범"
## [16] "가수 이승환 \"세월호 고통 안긴 분들, 잘 살고 계신가\""
## [17] "지구촌 전체 GDP 7만 배짜리 '노다지' 광물 소행성 발견"
## [18] "걷잡을 수 없는 확산..이탈리아 일일 확진자 사상 첫 3만명대(종합)"
## [19] "\"공익 차원서 깐다\"..라임 '술접대 의혹' 검사 실명 공개 파문"
## [20] "\"이사오면 3년 연봉줄게요\"..伊 마을 파격조건으로 청년 유혹"
## [21] "거리두기 1단계 완화 후 확진자 다시 급증..내일 거리두기 개편 주목"
## [22] "\"오로지 한국인 위해 잡는다\" 골뱅이船 띄우는 영국"
## [23] "다시 K-방역 주목하는 유럽..\"오만함 버리고 한국 배워야\""
## [24] "'부자의 왕도' 물었더니..1위 사업, 2위 부동산, 3위는?"
## [25] "[사건의 재구성] 일당 15만원 택배알바..배달품목은 '체크카드'"
## [26] "\"김밥 빼고 물감·팔레트..\" 산 100곳서 붓질하는 여자"
## [27] "北, 윤석열 또 맹비난..\"형님 떠받드니 왕이라도 된 듯\""
## [28] "던킨·배스킨, 13조원에 팔린다..미2위 레스토랑체인 탄생"
## [29] "14세 여학생, 국내 3번째 소아·청소년 다기관염증증후군 발생(종합)"
## [30] "'김신조 사건' 52년만에 개방된 북악산 철문..문 대통령 직접 열어"
## [31] "\"안철수, 보여준 게 없다\" 청년 탈당에 술렁이는 국민의당"
## [32] "'바이든이어야 하는 이유'..유력 매체들, 노골적인 '바이든 지지 커밍아웃'"
## [33] "가격인상 루머에 터진 '샤넬 쇼핑대란'..\"새벽부터 100명 줄\""
## [34] "나이지리아 \"美반대에도 WTO 총장 우리후보 뽑히게 작업\""
## [35] "야구장 관객 꽉 채워 '감염 실험'..日 '코로나 마루타' 논란"
## [36] "대리사과에 거부감 드러낸 의대생들..갈수록 꼬여가는 의사국시"
## [37] "고문하다 사람이 죽으면 낙동강 고기밥으로 던졌다"
## [38] "음주 뒤 차에서 잤더니..\"음주운전했죠?\" 견인차 기사들의 협박"
## [39] "검사들 커밍아웃 '사이버 연판장'..秋 \"불편한 진실 계속\""
## [40] "이곳만 다녀가면..차량 100여 대 망가뜨린 주유소"
## [41] "'손님 가장' 남성에 성매매 알선한 업주<U+2027>여종업원 1심서 무죄..이유는?"
## [42] "[영상] 터키·그리스 덮친 규모 7.0 강진..\"쓰나미가 더 심각\"(종합2보)"
## [43] "72년생 서경석도 봤다..34만 몰린 공인중개사 시험 40대 최다"
## [44] "[단독] 윤석열, 진천에서 '신임부장 소집'..조직 다지기 본격화"
## [45] "김민석 \"의사국시 당정청 합의 없어..최대집 자작극 언플 중단해야\""
## [46] "김경준 \"BBK도 이명박 소유..진술 막은 검찰 단죄해야\""
## [47] "마스크 고리..귀를 지킨다"
## [48] "'처치곤란' 아이스팩, 재활용 아이디어 '눈길'"
## [49] "\"신은 위대하다\" 외치며..기도하는 할머니도 참수"
## [50] "[화보] 19년 만에 뜬 '핼러윈 블루문'..다음은 2039년"What is a function? What is the function, lapply()?
Function
urls## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"remove_numbers <- function(x){
library(stringr)
y <- str_remove(x, "[[:digit:]]+")
return(y)
}
?lapply## starting httpd help server ... doneclass(lapply(urls, remove_numbers))## [1] "list"lapply(urls, remove_numbers)## [[1]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[2]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[3]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[4]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[5]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[6]]
## [1] "https://news.daum.net/ranking/popular?regDate="
##
## [[7]]
## [1] "https://news.daum.net/ranking/popular?regDate="R Basics for Web Scraping
Creating vectors
A sequence of numbers/integers, characters, or Booleans
c(1,3,5) # Join elements into a vector ## [1] 1 3 51:5 # An integer sequence## [1] 1 2 3 4 5seq(1, 5, by=2) # A sequence of integers from 1 to 5, increasing by 2## [1] 1 3 5rep(1:5, times=3) # Repeat an integer sequence 1:5 three times## [1] 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5rep(1:5, each=3) # Repeat each element of an integer sequence 1:5 three times## [1] 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5Vector functions
# R is an object-oriented programming language; everything can be assigned to an object
headlines## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
## [6] "[단독] \"경비원에게 이런 일을, 너무 잔인\" 대학생의 일갈"
## [7] "화이자 CEO, '백신 효과' 발표 당일 \"62억원어치 주식 매각\""
## [8] "제트기 동원해 독일로 환자 이송..\"의료붕괴 위기\""
## [9] "트럼프를 아는 이들은 말린다..전 부인 \"골프 치며 살길\""
## [10] "\"아이폰12 너무 비싸 ㅠㅠ\" 90만원→3만원 '똥값'된 아이폰XR 구매 문의 급증! [IT선빵!]"
## [11] "'입주하려는데 현관문에 용접이..' 울산 대명루첸 또 '시끌'"
## [12] "전동킥보드 규제 풀어준 의원들..뒤늦게 \"안 타봐서\""
## [13] "추미애 \"보수·진보언론 안 가리고 윤석열 띄워..국민 우려\"(종합)"
## [14] "[단독] '학대 동영상' 또 있었다..'두 얼굴의 엄마' 구속"
## [15] "윤석열 부인 회사 과세자료 확보..\"무리한 수사\" vs \"원칙대로\""
## [16] "김봉현 \"검사 술접대 증거, 차량 내비게이션에 남았을 것\""
## [17] "어제 끼고 오늘 또 끼고..마스크 재사용 괜찮을까?"
## [18] "\"확산세 계속되면 거리두기 격상\"..1.5단계 뭐가 달라지나?"
## [19] "최재형 \"월성원전, 범죄 개연성 있어 檢에 참고자료 보내\"(종합)"
## [20] "[현장영상] 서울 하늘에 처음 뜬 '드론택시'..누가 탔나? 요금은?"
## [21] "김봉현\"룸살롱 접대 작년 7월12일..검사 집까지 차로, 내비에 증거\"(종합)"
## [22] "日 전역서 '하루 최다' 속출..\"코로나19 3차 유행 왔다\""
## [23] "'전설의 대물' 돗돔, 3년 만에 경매에..통영서 양식 도전"
## [24] "수천만원 주고 정교사된 사학 기간제교사들 무더기 송치(종합)"
## [25] "[단독]\"위험하다고 말렸는데..\" 음주운전 차량에 23살 배달원 다리 절단"
## [26] "\"일단 도수치료 하시죠\" 제동?..의사 책임 묻는다"
## [27] "백신 나오면 마스크 없는 일상으로?..\"시간 더 필요\""
## [28] "12조 원 규모 철도 건설 추진..현실성은?"
## [29] "'화이자 백신' 日 1억 회분 '선주문' 했는데..한국 \"협상 중\""
## [30] "26년 전 쫓겨난 서의현, 또다시 조계종을 뒤흔들다"
## [31] "네 살 아이 두 눈에 시퍼런 피멍 들 때까지 때린 40대"
## [32] "김해 신공항 백지화 가닥..선거용 변질, 지역 갈등 '뇌관'으로"
## [33] "\"보건소서 괜찮다했는데..독감주사 맞은 누이, 이틀뒤 사망\""
## [34] "교사들 \"코로나19 장기화, 대면수업 늘려야 .. 교육부 예산은 '원격수업' 치중\""
## [35] "잘못된 수요예측, 비싼 통행료 받고도 혈세 1조6667억 '꿀꺽'"
## [36] "하루평균 확진자 100명 육박..정부 \"2~3주 내 1.5단계 가능성\""
## [37] "[오늘 이 뉴스] \"여전히 고통..\" 고유정 사건 또 다른 피해자"
## [38] "'630억 재산피해' 군포물류센터 실화 혐의 튀니지인 무죄 선고(종합)"
## [39] "[사건의 재구성] \"내 여친에 연락 그만해\" 죽기 직전까지 얻어맞은 옛 남친"
## [40] "[집중취재M] 기자가 '택배'로만 1주일 살아봤습니다"
## [41] "바이든 사람들은 읽씹 중인데..방미 강경화의 '난센스 외교'"
## [42] "동료 의원에 축의금 100만원 건넨 道 의장· 부의장 검찰 송치"
## [43] "'술집부터 미행 음주차에 고의 사고' 돈 뜯어낸 20대"
## [44] "[밀착카메라] 쓰레기 쌓이는 '캠핑 명소'..실종된 에티켓"
## [45] "이재명 \"연애는 필수, 결혼은 선택?.. 더 이상, 결혼·출산 포기 되어선 안돼\""
## [46] "美대선불복 와중에 강경화, 트럼프·바이든 양쪽에 손 내밀었다"
## [47] "[팩트체크] 영하 70도 백신 유통, 국내에서는 불가능하다?"
## [48] "국민의힘, 잡기엔 뜨거운 감자들 '윤·안·금'을 어쩌나"
## [49] "\"담임카톡 못 받아 우는데, 결국 폰 샀죠\" 학부모들 한숨"
## [50] "혼전계약서 쓴 트럼프, 멜라니아 이혼땐 14살 아들도 뺏긴다?"h_vector <- headlines[1:5]
h_vector## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"companies## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"
## [6] "오마이뉴스" "연합뉴스" "MBC" "JTBC" "헤럴드경제"
## [11] "연합뉴스" "JTBC" "뉴시스" "MBC" "KBS"
## [16] "연합뉴스" "머니투데이" "KBS" "연합뉴스" "KBS"
## [21] "뉴스1" "KBS" "JTBC" "연합뉴스" "동아일보"
## [26] "MBC" "JTBC" "KBS" "채널A" "한국일보"
## [31] "연합뉴스" "경향신문" "중앙일보" "서울신문" "경향신문"
## [36] "KBS" "MBC" "연합뉴스" "뉴스1" "MBC"
## [41] "중앙일보" "뉴시스" "뉴시스" "JTBC" "머니S"
## [46] "중앙일보" "JTBC" "경향신문" "국민일보" "중앙일보"c_vector <- companies[1:5]
c_vector## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"dates## [1] 20201025 20201026 20201027 20201028 20201029 20201030 20201031d_vector <- c(rep(dates[1],3),rep(dates[2],2))
d_vector## [1] 20201025 20201025 20201025 20201026 20201026list( )
What is a vector object? A collection of ordered elements in the same nature.
Ex) a vector of headlines; a vector of company names; a vector of dates …
What is a list object?
A vector with possible heterogeneous elements. That is, a list is collection of elements which can be of different contents or types.
The elements of a list can include character vectors and numeric vectors at once.
Let say we want to generate a list object that contains the above three vector objects all together.
We can use a function list( ) here.
List1 <- list(headline=h_vector, company=c_vector, date=d_vector) # Generate a list object, List1, to contain all the elements that are named "headline", "company", and "date"
List1## $headline
## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
##
## $company
## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"
##
## $date
## [1] 20201025 20201025 20201025 20201026 20201026length(List1) # The function, length, calculates how many elements are in any R object (vectors, lists, & factors).## [1] 3class(List1) # R is an object-oriented style of programming. The function, class, allows us to know what type an object belongs to. It can be numeric, character, logical, list, and so on...## [1] "list"names(List1) # To get or set the names of an object; Here, elements' names are "headline", "company", and "date"## [1] "headline" "company" "date"List1[1:2] # returns a new list object that contains the first and the second elements. What is length(List1[1:2])?## $headline
## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
##
## $company
## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"List1[2] # returns a new list object that contains the second element only. What is length(List1[2])?## $company
## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"length(List1[2])## [1] 1List1[[2]] # returns a vector object that contains five elements of company names in the second element of List1. What is length(List1[[2]])? ## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"length(List1[[2]])## [1] 5List1['headline'] # returns a new list with the element named 'headline' only## $headline
## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"List1[['headline']] # returns a vector with the elements of the list element named 'headline'## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"Why is list( ) important in web scraping?
Web data are structured at multiple levels. The list( ) function is useful for dealing with hierarchical data.
Ex) DAUM News > Ranking News > Popular News > Top 50 List on Oct/25, Top 50 List on Oct/26, Top 50 List on Oct/27 …
Let say we have a list of ten URLs for popular news at DAUM on different dates
# Example
urls## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"class(urls)## [1] "character"urls[1]## [1] "https://news.daum.net/ranking/popular?regDate=20201025"urls_list <- as.list(urls)
urls_list## [[1]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
##
## [[2]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201026"
##
## [[3]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201027"
##
## [[4]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201028"
##
## [[5]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201029"
##
## [[6]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201030"
##
## [[7]]
## [1] "https://news.daum.net/ranking/popular?regDate=20201031"class(urls_list)## [1] "list"urls_list[[1]] # URL for popular news at DAUM on 10/25## [1] "https://news.daum.net/ranking/popular?regDate=20201025"urls_list[[2]] # URL for popular news at DAUM on 10/26## [1] "https://news.daum.net/ranking/popular?regDate=20201026"How to turn a list into a vector
#unlist( ) is a function to turn a list object into a vector object
#be cautious about using the unlist function
class(urls_list)## [1] "list"unlist(urls_list) # turn a list object into a vector object## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"class(unlist(urls_list))## [1] "character"urls_list[[2]]## [1] "https://news.daum.net/ranking/popular?regDate=20201026"unlist(urls_list)## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"unlist( ) allows us to combine a list object’s elements into a vector object
The apply() Family
apply() and its derivative functions allow crossing the data in a number of ways and avoid explicit use of loop constructs. They act on an input list, matrix or array and apply a named function with one or several optional arguments.
lapply: Loops over a list or a vector and evaluates a function on each elementsapply: A more simplified version of thelapply()functiontapply: Evaluates a function over subsets of a vector
lapply( ): Applies a function to a list and returns a list object
lapply( ) applies a specified function to each element of a list and returns a new list object of the same length as the input list object. Each element of which is the result of applying a function to the corresponding element of the input list.
l in lapply( ) stands for list
List2 <- list(1:3,4:6,7:9)
List2## [[1]]
## [1] 1 2 3
##
## [[2]]
## [1] 4 5 6
##
## [[3]]
## [1] 7 8 9class(List2)## [1] "list"add_two <- function(x){
y <- x + 2
return(y)
}
lapply(List2, add_two) # returns a list object of results from applying a function "add_two" to each element of List2 ## [[1]]
## [1] 3 4 5
##
## [[2]]
## [1] 6 7 8
##
## [[3]]
## [1] 9 10 11lapply(List2, sum) # Built-in function## [[1]]
## [1] 6
##
## [[2]]
## [1] 15
##
## [[3]]
## [1] 24List2## [[1]]
## [1] 1 2 3
##
## [[2]]
## [1] 4 5 6
##
## [[3]]
## [1] 7 8 9class(List2)## [1] "list"unlist(List2)## [1] 1 2 3 4 5 6 7 8 9int_vec <- unlist(List2)
int_vec## [1] 1 2 3 4 5 6 7 8 9class(int_vec)## [1] "integer"as.list(int_vec)## [[1]]
## [1] 1
##
## [[2]]
## [1] 2
##
## [[3]]
## [1] 3
##
## [[4]]
## [1] 4
##
## [[5]]
## [1] 5
##
## [[6]]
## [1] 6
##
## [[7]]
## [1] 7
##
## [[8]]
## [1] 8
##
## [[9]]
## [1] 9lapply(int_vec, add_two)## [[1]]
## [1] 3
##
## [[2]]
## [1] 4
##
## [[3]]
## [1] 5
##
## [[4]]
## [1] 6
##
## [[5]]
## [1] 7
##
## [[6]]
## [1] 8
##
## [[7]]
## [1] 9
##
## [[8]]
## [1] 10
##
## [[9]]
## [1] 11lapply(as.list(int_vec), add_two)## [[1]]
## [1] 3
##
## [[2]]
## [1] 4
##
## [[3]]
## [1] 5
##
## [[4]]
## [1] 6
##
## [[5]]
## [1] 7
##
## [[6]]
## [1] 8
##
## [[7]]
## [1] 9
##
## [[8]]
## [1] 10
##
## [[9]]
## [1] 11sapply( ): Applies a function to a list and returns a vector (or matrix) object
sapply( ) applies a specified function to each element of a list and returns a vector object when possible. It is the same as applying the function unlist( ) to the result of lapply( ).
List2## [[1]]
## [1] 1 2 3
##
## [[2]]
## [1] 4 5 6
##
## [[3]]
## [1] 7 8 9lapply(List2, add_two)## [[1]]
## [1] 3 4 5
##
## [[2]]
## [1] 6 7 8
##
## [[3]]
## [1] 9 10 11sapply(List2, add_two) # applies a function "add_two" to elements as vectors in List2 as a list## [,1] [,2] [,3]
## [1,] 3 6 9
## [2,] 4 7 10
## [3,] 5 8 11lapply(int_vec, add_two)## [[1]]
## [1] 3
##
## [[2]]
## [1] 4
##
## [[3]]
## [1] 5
##
## [[4]]
## [1] 6
##
## [[5]]
## [1] 7
##
## [[6]]
## [1] 8
##
## [[7]]
## [1] 9
##
## [[8]]
## [1] 10
##
## [[9]]
## [1] 11sapply(int_vec, add_two)## [1] 3 4 5 6 7 8 9 10 11sapply( ) is also applicable to elements in different formats.
library(stringr)
List1## $headline
## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
##
## $company
## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"
##
## $date
## [1] 20201025 20201025 20201025 20201026 20201026sapply(List1, str_length)## headline company date
## [1,] 32 4 8
## [2,] 28 3 8
## [3,] 42 3 8
## [4,] 33 3 8
## [5,] 28 3 8tapply( ): Useful in applying to table
tapply( ) is used for applying a specified function to each element of a vector, grouped by another vector.
library(tidyverse)## -- Attaching packages ---------------------------------- tidyverse 1.3.0 --## √ ggplot2 3.3.0 √ purrr 0.3.4
## √ tibble 3.0.0 √ dplyr 1.0.1
## √ tidyr 1.0.2 √ forcats 0.5.0
## √ readr 1.3.1## -- Conflicts ------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x readr::guess_encoding() masks rvest::guess_encoding()
## x dplyr::lag() masks stats::lag()
## x purrr::pluck() masks rvest::pluck()
## x rvest::xml() masks XML::xml()mytable <- tibble(headline=h_vector, company=c_vector, date=d_vector) # Create a tibble object (data frame) with three variables
mytable # returns a table with the three vectors## # A tibble: 5 x 3
## headline company date
## <chr> <chr> <dbl>
## 1 "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'" JTBC 2.02e7
## 2 "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변" SBS 2.02e7
## 3 "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""~ 뉴스1 2.02e7
## 4 "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중" 뉴스1 2.02e7
## 5 "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다" MBC 2.02e7mytable$headline # $ sign selects a column of a data frame named "headline"## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"mytable$company## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"mytable$date## [1] 20201025 20201025 20201025 20201026 20201026Say we want to count how many characters appear in headlines on 20201025 and in headlines on 20201026. Here each headline can be grouped by the variable date.
tapply(mytable$headline, mytable$date, str_length) # applies the function str_length to mytable$headline, grouped by mytable$date, and returns the result: the number of characters in each headline## $`20201025`
## [1] 32 28 42
##
## $`20201026`
## [1] 33 28tapply(x,y,str_length): Applies the function str_length() to x as a vector of character length in each headline, grouped by y as another vector of dates.
Let’s practice on tapply( )
Let’s calculate how many headlines are in each company and how many characters are in the headlines, using the function tapply( ).
headlines## [1] "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'"
## [2] "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변"
## [3] "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""
## [4] "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중"
## [5] "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다"
## [6] "[단독] \"경비원에게 이런 일을, 너무 잔인\" 대학생의 일갈"
## [7] "화이자 CEO, '백신 효과' 발표 당일 \"62억원어치 주식 매각\""
## [8] "제트기 동원해 독일로 환자 이송..\"의료붕괴 위기\""
## [9] "트럼프를 아는 이들은 말린다..전 부인 \"골프 치며 살길\""
## [10] "\"아이폰12 너무 비싸 ㅠㅠ\" 90만원→3만원 '똥값'된 아이폰XR 구매 문의 급증! [IT선빵!]"
## [11] "'입주하려는데 현관문에 용접이..' 울산 대명루첸 또 '시끌'"
## [12] "전동킥보드 규제 풀어준 의원들..뒤늦게 \"안 타봐서\""
## [13] "추미애 \"보수·진보언론 안 가리고 윤석열 띄워..국민 우려\"(종합)"
## [14] "[단독] '학대 동영상' 또 있었다..'두 얼굴의 엄마' 구속"
## [15] "윤석열 부인 회사 과세자료 확보..\"무리한 수사\" vs \"원칙대로\""
## [16] "김봉현 \"검사 술접대 증거, 차량 내비게이션에 남았을 것\""
## [17] "어제 끼고 오늘 또 끼고..마스크 재사용 괜찮을까?"
## [18] "\"확산세 계속되면 거리두기 격상\"..1.5단계 뭐가 달라지나?"
## [19] "최재형 \"월성원전, 범죄 개연성 있어 檢에 참고자료 보내\"(종합)"
## [20] "[현장영상] 서울 하늘에 처음 뜬 '드론택시'..누가 탔나? 요금은?"
## [21] "김봉현\"룸살롱 접대 작년 7월12일..검사 집까지 차로, 내비에 증거\"(종합)"
## [22] "日 전역서 '하루 최다' 속출..\"코로나19 3차 유행 왔다\""
## [23] "'전설의 대물' 돗돔, 3년 만에 경매에..통영서 양식 도전"
## [24] "수천만원 주고 정교사된 사학 기간제교사들 무더기 송치(종합)"
## [25] "[단독]\"위험하다고 말렸는데..\" 음주운전 차량에 23살 배달원 다리 절단"
## [26] "\"일단 도수치료 하시죠\" 제동?..의사 책임 묻는다"
## [27] "백신 나오면 마스크 없는 일상으로?..\"시간 더 필요\""
## [28] "12조 원 규모 철도 건설 추진..현실성은?"
## [29] "'화이자 백신' 日 1억 회분 '선주문' 했는데..한국 \"협상 중\""
## [30] "26년 전 쫓겨난 서의현, 또다시 조계종을 뒤흔들다"
## [31] "네 살 아이 두 눈에 시퍼런 피멍 들 때까지 때린 40대"
## [32] "김해 신공항 백지화 가닥..선거용 변질, 지역 갈등 '뇌관'으로"
## [33] "\"보건소서 괜찮다했는데..독감주사 맞은 누이, 이틀뒤 사망\""
## [34] "교사들 \"코로나19 장기화, 대면수업 늘려야 .. 교육부 예산은 '원격수업' 치중\""
## [35] "잘못된 수요예측, 비싼 통행료 받고도 혈세 1조6667억 '꿀꺽'"
## [36] "하루평균 확진자 100명 육박..정부 \"2~3주 내 1.5단계 가능성\""
## [37] "[오늘 이 뉴스] \"여전히 고통..\" 고유정 사건 또 다른 피해자"
## [38] "'630억 재산피해' 군포물류센터 실화 혐의 튀니지인 무죄 선고(종합)"
## [39] "[사건의 재구성] \"내 여친에 연락 그만해\" 죽기 직전까지 얻어맞은 옛 남친"
## [40] "[집중취재M] 기자가 '택배'로만 1주일 살아봤습니다"
## [41] "바이든 사람들은 읽씹 중인데..방미 강경화의 '난센스 외교'"
## [42] "동료 의원에 축의금 100만원 건넨 道 의장· 부의장 검찰 송치"
## [43] "'술집부터 미행 음주차에 고의 사고' 돈 뜯어낸 20대"
## [44] "[밀착카메라] 쓰레기 쌓이는 '캠핑 명소'..실종된 에티켓"
## [45] "이재명 \"연애는 필수, 결혼은 선택?.. 더 이상, 결혼·출산 포기 되어선 안돼\""
## [46] "美대선불복 와중에 강경화, 트럼프·바이든 양쪽에 손 내밀었다"
## [47] "[팩트체크] 영하 70도 백신 유통, 국내에서는 불가능하다?"
## [48] "국민의힘, 잡기엔 뜨거운 감자들 '윤·안·금'을 어쩌나"
## [49] "\"담임카톡 못 받아 우는데, 결국 폰 샀죠\" 학부모들 한숨"
## [50] "혼전계약서 쓴 트럼프, 멜라니아 이혼땐 14살 아들도 뺏긴다?"companies## [1] "JTBC" "SBS" "뉴스1" "뉴스1" "MBC"
## [6] "오마이뉴스" "연합뉴스" "MBC" "JTBC" "헤럴드경제"
## [11] "연합뉴스" "JTBC" "뉴시스" "MBC" "KBS"
## [16] "연합뉴스" "머니투데이" "KBS" "연합뉴스" "KBS"
## [21] "뉴스1" "KBS" "JTBC" "연합뉴스" "동아일보"
## [26] "MBC" "JTBC" "KBS" "채널A" "한국일보"
## [31] "연합뉴스" "경향신문" "중앙일보" "서울신문" "경향신문"
## [36] "KBS" "MBC" "연합뉴스" "뉴스1" "MBC"
## [41] "중앙일보" "뉴시스" "뉴시스" "JTBC" "머니S"
## [46] "중앙일보" "JTBC" "경향신문" "국민일보" "중앙일보"headline_df <- tibble(headlines, companies) # creates a data frame including two vectors as columns
headline_df## # A tibble: 50 x 2
## headlines companies
## <chr> <chr>
## 1 "520만원짜리 프라다 가방이 5만2천원?..온라인 '들썩'" JTBC
## 2 "\"음주운전 안 된다\" 말리던 노모, 아들 차에 참변" SBS
## 3 "이용수 할머니 \"군인이 방으로 끌고 갔을 때 '엄마' 부른 소리 아직 생생\""~ 뉴스1
## 4 "대검 '한동훈 폭행' 정진웅 직무배제 요청..법무부 검토 중" 뉴스1
## 5 "\"하루 한 끼로 버텨요\"..20대 청년들이 추락한다" MBC
## 6 "[단독] \"경비원에게 이런 일을, 너무 잔인\" 대학생의 일갈" 오마이뉴스~
## 7 "화이자 CEO, '백신 효과' 발표 당일 \"62억원어치 주식 매각\"" 연합뉴스
## 8 "제트기 동원해 독일로 환자 이송..\"의료붕괴 위기\"" MBC
## 9 "트럼프를 아는 이들은 말린다..전 부인 \"골프 치며 살길\"" JTBC
## 10 "\"아이폰12 너무 비싸 ㅠㅠ\" 90만원→3만원 '똥값'된 아이폰XR 구매 문의 급증! [IT선빵!]"~ 헤럴드경제~
## # ... with 40 more rows# length() & str_length() apply to headline_df$headlines, grouped by headline_df$companies
tapply(headline_df$headlines, headline_df$companies, length) # returns a table## JTBC KBS MBC SBS 경향신문 국민일보 뉴스1
## 7 6 6 1 3 1 4
## 뉴시스 동아일보 머니S 머니투데이 서울신문 연합뉴스 오마이뉴스
## 3 1 1 1 1 7 1
## 중앙일보 채널A 한국일보 헤럴드경제
## 4 1 1 1tapply(headline_df$headlines, headline_df$companies, str_length)## $JTBC
## [1] 32 32 29 33 30 32 33
##
## $KBS
## [1] 37 34 38 34 24 39
##
## $MBC
## [1] 28 28 34 28 36 29
##
## $SBS
## [1] 28
##
## $경향신문
## [1] 35 36 30
##
## $국민일보
## [1] 32
##
## $뉴스1
## [1] 42 33 43 42
##
## $뉴시스
## [1] 37 35 30
##
## $동아일보
## [1] 41
##
## $머니S
## [1] 45
##
## $머니투데이
## [1] 28
##
## $서울신문
## [1] 46
##
## $연합뉴스
## [1] 37 34 32 36 33 31 39
##
## $오마이뉴스
## [1] 33
##
## $중앙일보
## [1] 33 33 33 34
##
## $채널A
## [1] 37
##
## $한국일보
## [1] 28
##
## $헤럴드경제
## [1] 55headline_characters <- tapply(headline_df$headlines, headline_df$companies, str_length)
headline_characters## $JTBC
## [1] 32 32 29 33 30 32 33
##
## $KBS
## [1] 37 34 38 34 24 39
##
## $MBC
## [1] 28 28 34 28 36 29
##
## $SBS
## [1] 28
##
## $경향신문
## [1] 35 36 30
##
## $국민일보
## [1] 32
##
## $뉴스1
## [1] 42 33 43 42
##
## $뉴시스
## [1] 37 35 30
##
## $동아일보
## [1] 41
##
## $머니S
## [1] 45
##
## $머니투데이
## [1] 28
##
## $서울신문
## [1] 46
##
## $연합뉴스
## [1] 37 34 32 36 33 31 39
##
## $오마이뉴스
## [1] 33
##
## $중앙일보
## [1] 33 33 33 34
##
## $채널A
## [1] 37
##
## $한국일보
## [1] 28
##
## $헤럴드경제
## [1] 55class(headline_characters)## [1] "array"lapply(headline_characters, mean)## $JTBC
## [1] 31.57143
##
## $KBS
## [1] 34.33333
##
## $MBC
## [1] 30.5
##
## $SBS
## [1] 28
##
## $경향신문
## [1] 33.66667
##
## $국민일보
## [1] 32
##
## $뉴스1
## [1] 40
##
## $뉴시스
## [1] 34
##
## $동아일보
## [1] 41
##
## $머니S
## [1] 45
##
## $머니투데이
## [1] 28
##
## $서울신문
## [1] 46
##
## $연합뉴스
## [1] 34.57143
##
## $오마이뉴스
## [1] 33
##
## $중앙일보
## [1] 33.25
##
## $채널A
## [1] 37
##
## $한국일보
## [1] 28
##
## $헤럴드경제
## [1] 55Let’s apply the function for extracting headlines and companies from the URLs
urls## [1] "https://news.daum.net/ranking/popular?regDate=20201025"
## [2] "https://news.daum.net/ranking/popular?regDate=20201026"
## [3] "https://news.daum.net/ranking/popular?regDate=20201027"
## [4] "https://news.daum.net/ranking/popular?regDate=20201028"
## [5] "https://news.daum.net/ranking/popular?regDate=20201029"
## [6] "https://news.daum.net/ranking/popular?regDate=20201030"
## [7] "https://news.daum.net/ranking/popular?regDate=20201031"library(XML)
headline_extractor <- function(url) {
page <- readLines(url)
page_parsed <- htmlParse(page)
headlines <- xpathSApply(page_parsed, headline_xpath, xmlValue)
return(headlines)
}
headline_list <- lapply(as.list(urls), headline_extractor)
class(headline_list)## [1] "list"length(headline_list)## [1] 7urls[3]## [1] "https://news.daum.net/ranking/popular?regDate=20201027"headline_list[[3]]## [1] "'백신 사망' 17세 고교생, 부검서 화학물질 검출..유족 \"억울하다\""
## [2] "[단독][취재파일] 잿더미 된 사찰, 알고 보니..부처님 앞 \"할렐루야!\" 외친 '그 여자'"
## [3] "'화학물질 검출' 고교생..경찰 \"직접 구매 확인\" 가족 \"극단선택 이유없다\""
## [4] "[AS뉴스]\"엽기폭행 양진호, 옥중 결혼..한해 수익 2백억\""
## [5] "[단독] '조국 일가 명예훼손' 보수 블로거 \"조 선생님 선처를\""
## [6] "'붉은대게' 재고 산더미..공장 문 닫고 조업 포기"
## [7] "성병 숨기고 7개월간 두명과 성관계..20대 집행유예"
## [8] "용인 골프모임 31명 집단확진..가족모임·어린이집서도 새 감염(종합)"
## [9] "7억짜리 용인 땅, 300억 됐다..이건희가 건설비 전액 댄 이곳"
## [10] "[단독] \"실종 보고받고 지휘한 내용 밝혀라\"<U+22EF> 피격 공무원 형, 청와대에 정보공개 청구"
## [11] "자신과 아내 지키려 흉기든 이웃 제압해 숨지게 한 70대 '무죄'"
## [12] "세계최고 수준 천문학적 세금 '폭탄'..세금 때문에 기업 판다"
## [13] "트럼프 개인 빚 1조2400억..재선 실패땐 파산 가능성"
## [14] "'갑질폭행' 양진호, 옥중결혼 이유..부인 통해 매년 200억 가져간다"
## [15] "'3000만원 현상금'에 놀라 롤렉스 반환한 범인 \"고가인줄 몰랐어요\"[사건TMI!]"
## [16] "트럼프 잔고 바닥났다, 바이든은 45억짜리 브래드 피트 광고"
## [17] "무면허로 전동킥보드 타다 택시 충돌한 고교생, 사흘만에 사망"
## [18] "\"휠 고의 파손? 그런적 없다\" 타이어뱅크 점주 '사과문' 나흘만에 돌변"
## [19] "문대통령이 윤석열에 메신저 보내?..靑 \"정보 없어 확인 불가\""
## [20] "시외버스서 승객 너머로 자위행위 촬영 20대 집행유예"
## [21] "강경화 \"비자발급 안돼\"→유승준 또 호소문..\"국민이 거부\" 여론 싸늘"
## [22] "인천 마트 주차장 3층서 승용차 추락..70대 운전자 숨져"
## [23] "유튜브 잠깐 출연했다 봉변.. 일상 덮친 이름 모를 '악플'"
## [24] "트럼프 극찬한 항체 치료제 실제 써보니 '효과'"
## [25] "인천 고교생 사망 원인 \"독감 백신 아닌 독극물\""
## [26] "백*원의 원조쌈밥집 등 '자기 이름을 상표로'..성명상표 출원 활발"
## [27] "파지수집 리어카 끌던 노인, 전복된 승용차에 치여 사망(종합)"
## [28] "아프리카서 물개 7000마리 떼죽음 미스터리..대부분 태아 상태"
## [29] "백악관 \"대유행 통제 않을 것\" 바이든 \"패배의 백기 흔들어\""
## [30] "'한동훈과 육탄전' 정진웅, 독직폭행 혐의로 기소(종합)"
## [31] "\"왜 더 큰 평수로 옮겨요? 이거 거래허가 못내줍니다\""
## [32] "AFP \"EU 회원국 대다수, WTO 총장 선거서 나이지리아 후보 지지\""
## [33] "중국 공청단 \"한국전쟁 남침 아니다..한 국가 내전\" 궤변(종합)"
## [34] "의협 다시 집단행동? \"28일까지 의사국시 해결책 내놓지 않으면..\""
## [35] "이탈리아 언론 또 한국 칭찬..\"첨단기술로 바이러스 잡았다\""
## [36] "EU 27개 '몰표' 나이지리아로..WTO 첫 한국인 수장 선출 경고등"
## [37] "이건희 회장 병상 6년간 일가 받은 배당금 2.8조"
## [38] "[황보선의출발새아침] 박수영\"文 대통령, 둘 다 해임하든 한 사람 해임하든지 결단해야\""
## [39] "쇠징 박힌 신발 신은 채 후배 얼굴 걷어찬 겁 없는 10대"
## [40] "[주진우 라이브] 함세웅 신부 \"이건희의 '마누라와 자식 빼고 버려라?'..가족에 매몰된 한계가 삼성의 한계이자 우리 시대의 한계\""
## [41] "1인용 킥보드에 남녀 두명이? 도로 위 '위험천만' 데이트"
## [42] "낙동강 하구 이어 도심하천인 부산 온천천에서도 연어 발견"
## [43] "\"한국만 아니면 된다\"..고비 때마다 '발목' 잡는 일본"
## [44] "[단독] 첫날부터 오작동..2억 원 아끼려다 5명 목숨 잃었다"
## [45] "룸살롱서 술판 벌이고 라임 자료 줬는데.. 금감원은 '사적영역'이라며 부실 감찰"
## [46] "\"한국반도체 인수 검토하라\" 한마디..삼성, 세계적 기업 시발점 됐습니다"
## [47] "[단독]해외는 좌석 채우는데..한국은 연인도 띄어앉아"
## [48] "김봉현이 주장한 술접대, 당사자 전원 \"검사 없었다\""
## [49] "독감 백신 접종 뒤 숨진 인천 고교생 형 \"억울함 풀어달라\" 청원(종합)"
## [50] "중국 신장서 기침·발열없이 137명 집단감염..\"이전 코로나와 다르다\""company_extractor <- function(url) {
page <- readLines(url)
page_parsed <- htmlParse(page)
companies <- xpathSApply(page_parsed, company_xpath, xmlValue)
return(companies)
}
company_list <- lapply(urls, company_extractor)
length(company_list)## [1] 7urls[7]## [1] "https://news.daum.net/ranking/popular?regDate=20201031"company_list[[7]]## [1] "머니투데이" "경향신문" "중앙일보" "JTBC" "한국경제"
## [6] "연합뉴스" "연합뉴스" "연합뉴스" "연합뉴스" "뉴스1"
## [11] "머니투데이" "연합뉴스" "미디어오늘" "뉴스1" "뉴스1"
## [16] "오마이뉴스" "연합뉴스" "연합뉴스" "중앙SUNDAY" "서울신문"
## [21] "뉴스1" "조선일보" "연합뉴스" "서울경제" "뉴스1"
## [26] "중앙SUNDAY" "이데일리" "연합뉴스" "뉴스1" "서울신문"
## [31] "뉴시스" "아시아경제" "머니투데이" "뉴시스" "뉴스1"
## [36] "뉴스1" "오마이뉴스" "YTN" "뉴스1" "MBC"
## [41] "뉴스1" "서울신문" "중앙일보" "YTN" "뉴시스"
## [46] "뉴스1" "경향신문" "KBS" "MBC" "뉴스1"