Question

我想打印所有列都对齐的数据框。以下代码未产生预期的结果，因为最后一列右对齐。

代码如下：

tab <- data.frame(x = rep("Multi", 7), y = c("BC", "AB", "ABCD", "AER", "A", "A", "OI"), z = c(0.533, 10.658, 0.317, 4, 2000, 0.478, 1.569))

tab$y <- as.character(tab$y)
for(i in 1:dim(tab)[1]){
tab[i,c("y")] <- paste0('"', paste(tab[i,c("y")], collapse="\", \""), '"')
}

tab_format <- apply(tab, 2, format)
write.table(tab_format, file = "test1.txt", sep = " ", row.names = FALSE, col.names = FALSE, quote = FALSE)

产生的输出

Multi "BC"      0.533
Multi "AB"     10.658
Multi "ABCD"    0.317
Multi "AER"     4.000
Multi "A"    2000.000
Multi "A"       0.478
Multi "OI"      1.569

预期产量

Multi "BC"   0.533
Multi "AB"   10.658
Multi "ABCD" 0.317
Multi "AER"  4
Multi "A"    2000
Multi "A"    0.478
Multi "OI"   1.569

Answer 1

使用npm install angular-token --save npm i @angular/common@6.0 @angular/core@6.0 -s npm i rxjs@6.0 -s npm i @angular/forms@6.0 npm i @angular/animations@6.0 @angular/platform-browser@6.0 @angular/http@6.0 npm i rxjs-compat@6.0 -s npm i @angular/router@6.0 -s包，您可以执行以下操作（ionic lab是我从另一个问题遗留下来的测试数据框）：

pander

这提供了：

ca_data

在数据框中使列左对齐

1 个答案: