Giảm Chiều Dữ Liệu với R
Matt Pickard
Owner, Pickard Predictives, LLC
df %>% ncol()
3

Loại bỏ hoặc gộp các đặc trưng ít hoặc không thêm thông tin mới

Loại bỏ hoặc gộp các đặc trưng ít hoặc không thêm thông tin mới

Loại bỏ hoặc gộp các đặc trưng ít hoặc không thêm thông tin mới


df %>% summarize( across( everything(), ~ var(., na.rm = TRUE))) %>%pivot_longer( everything(), "feature", "variance")
# A tibble: 7 × 2
feature variance
<chr> <dbl>
1 sqft_living 843534.
2 sqft_above 685735.
3 sqft_basement 195873.
4 sqft_living_near15 475480.
5 sqft_lot_near15 863386815.
6 num_garages 0
7 num_hvac_units 0




library(corrr)house_sales_df %>% select(where(is.numeric)) %>%correlate() %>%shave() %>%rplot(print_cor = TRUE) +theme(axis.text.x = element_text(angle = 90, hjust = 1))

Giảm Chiều Dữ Liệu với R