Question

我使用write命令将xgBoost的重要性矩阵打印到日志中（写入与文件连接一起工作并将其直接导向stderr）。这是我正在使用的命令：

importance_matrix <- xgb.importance(names, model=bst)
write("The top 30 variables are:",stderr())
write(paste0("Feature",'\t','\t','Gain','\t','Cover','\t','Frequency'),stderr())
write(t(as.matrix(importance_matrix[1:30,])),sep="\t",ncolumns = length(names(importance_matrix)),stderr())

输出格式为：

Feature         Gain    Cover   Frequency
pctTillDate 0.560359696 0.1314074664    0.024278250
colr_per    0.183149483 0.0962457545    0.049618673
date    0.050528297 0.1143752021    0.066395735
GREG_D  0.025648433 0.0381476142    0.018070143
LNGTD_I 0.020346020 0.0485235001    0.101322109
LATTD_I 0.019241497 0.0421892270    0.093867103

这使得它看起来有点笨拙（在日志中比在SO中出现的更笨拙）。所以为了让它更好看，我想更改t(as.matrix(importance_matrix[1:30,])),sep="\t"的最后一行，这样第一个sep将成为2个标签（＆＃39; \ t＆＃39;，＆＃39; \ t＆＃ 39;）和休息单标签（＆＃39; \ t＆＃39;）;而不是当前的均匀间距。简单但搜索没有任何想法。有什么建议吗？

Answer 1

考虑使用空格填充列名和矩阵的第一个char列，以使每个列与第一列的最大字符大小对齐：

write.table(importance_matrix, sep="\t", row.names = FALSE,  quote = FALSE)
# Feature   Gain    Cover   Frequency
# pctTillDate   0.56035970  0.13140747  0.02427825
# colr_per  0.18314948  0.09624575  0.04961867
# date  0.05052830  0.11437520  0.06639573
# GREG_D    0.02564843  0.03814761  0.01807014
# LNGTD_I   0.02034602  0.04852350  0.10132211
# LATTD_I   0.01924150  0.04218923  0.09386710

new_matrix <- importance_matrix

# FIRST COLUMN LARGEST CHAR LENGTH
charmax <- max(nchar(new_matrix[,1]))

# PAD COLUMN HEADERS
colnames(new_matrix) <- lapply(1:ncol(new_matrix), function(i)
       paste0(colnames(new_matrix)[i],
              paste(rep(" ", charmax - nchar(colnames(new_matrix)[i])), collapse=""))
)

# PAD FIRST COLUMN
new_matrix[,1] <- sapply(1:nrow(new_matrix), function(i)
       paste0(new_matrix[i,1], 
              paste(rep(" ", charmax - nchar(new_matrix[i,1])), collapse=""))
)

write.table(new_matrix, sep="\t", row.names = FALSE,  quote = FALSE)
# Feature       Gain        Cover       Frequency  
# pctTillDate   0.56035970  0.13140747  0.02427825
# colr_per      0.18314948  0.09624575  0.04961867
# date          0.05052830  0.11437520  0.06639573
# GREG_D        0.02564843  0.03814761  0.01807014
# LNGTD_I       0.02034602  0.04852350  0.10132211
# LATTD_I       0.01924150  0.04218923  0.09386710

打印到日志时间距不同

1 个答案: