US hegemony

US hegemony

rm(list = ls())
library(rvest)
library(stringr)
library(dplyr)
library(ggplot2)
# Define URL: 

wealth <- "https://en.wikipedia.org/wiki/List_of_countries_by_total_wealth"

# Extract data: 

wealth %>% 
  read_html() %>%  # đọc trang web
  html_nodes(xpath = '//*[@id="mw-content-text"]/div[1]/table[3]') %>%
  html_table() %>% 
  .[[1]] -> wealth1

wealth %>% 
  read_html() %>%  # đọc trang web
  html_nodes(xpath = '//*[@id="mw-content-text"]/div[1]/table[4]') %>% 
  html_table() %>%  # lấy dữ liệu bảng
  .[[1]] -> wealth2  # số 1 

wealth20 <- rbind(wealth1, wealth2)

wealth20 %>% 
  select(-c(2,7,10,11))  -> wealth20

colnames(wealth20) <- c('year', 'canada', 'china','france', 'germany', 'italy', 'japan', 'united_kingdom', 'united_states','aggregateshare')

class(wealth20)

wealth20 gồm các loại data khác nhau: [1] “tbl_df” “tbl” “data.frame”

Làm thế nào để một object có nhiều loại data chuyển hóa thành atomic vector?

Nếu vẫn dùng lệnh xóa ký hiệu % thì sẽ được kết quả

str(wealth20)
wealth20 <- as.data.frame(lapply(wealth20, as.character))

wealth20 %>% 
  str_replace_all("%", "") %>% 
  as.numeric() -> wealth20

thì được thông báo: [1] NA NA NA NA NA NA NA NA NA NA Warning messages: 1: In stri_replace_all_regex(string, pattern, fix_replacement(replacement), : argument is not an atomic vector; coercing 2: In wealth20 %>% str_replace_all(“%”, ““) %>% as.numeric() : NAs introduced by coercion

```