При объединении двух безымянных векторов, он становится разбитым и не будет 1 столбцом

Question

В этих данных я хочу разместить вторые данные после одного. Поэтому я закодировал, как показано ниже:

billboard.html <- read_html("https://www.billboard.com/charts/hot-100/2018-01-03")

title <- as.vector(billboard.html %>% 
                     html_nodes('.chart-number-one__title') %>% 
                     html_text())
title <- rbind(title, as.vector(billboard.html %>% 
                                  html_nodes('.chart-list-item__title-text') %>% 
                                  html_text()))
title <- gsub("\n", "", title)

title

Если это работает, как я думал, результат должен быть 100 строк, набор данных из 1 столбца. Но есть 2 ряда, 100 столбцов данных непрерывно. Я совершенно не мог понять эту ситуацию. Пожалуйста, помогите мне.

Answer 1

При объединении векторов вы должны использовать c(), а не rbind() (который используется для связывания data.frame с по вертикали).

require(rvest)

billboard.html <- read_html("https://www.billboard.com/charts/hot-100/2018-01-03")

title <- as.vector(billboard.html %>% 
                     html_nodes('.chart-number-one__title') %>% 
                     html_text())

title <- c(title, as.vector(billboard.html %>% 
                                  html_nodes('.chart-list-item__title-text') %>% 
                                  html_text()))
title <- gsub("\n", "", title)

title