library(dplyr)
x_importance <- c(
0.00214138, 0.00223875, 0.00417543, 0.00190968, 0.00401864, 0.00217691, 0.00433094, 0.00226843, 0.00325509, 0.00216857, 0.10460003, 0.00391664,
0.00767382, 0.00396873, 0.00250077, 0.00479975, 0.00427557, 0.0048804,
0.01157961, 0.00317895, 0.00436049, 0.00188456, 0.00387129, 0.00243802,
0.00310723, 0.00224145, 0.00252978, 0.00227851, 0.00279751, 0.00569469,
0.00343455, 0.00259924, 0.00631933, 0.00390691, 0.0049399 , 0.00793074,
0.00768941, 0.11683329, 0.00476818, 0.00877021, 0.00356901, 0.00351175,
0.00412742, 0.12899243, 0.06790988, 0.14708958, 0.15042191, 0.11592464)
y <- factory.names
# 当然x与y是相对应的
data <- data.frame(
name = y,
value = x
)
data %>%
# 当存在多类别数据时,可按类别进行排序
# group_by(class) %>%
# 按照降序进行排列,默认升序
arrange(desc(value))