res <- llply(split(smp, smp$Test1), function(x) head(kable(x[order(x$Date, decreasing = TRUE),
])))
我从上面的rmarkdown代码换成下面的代码,结果还是一样的结果杂乱无章。 :plain:
res <- llply(split(smp, smp$Test1), function(x) x[order(x$Date, decreasing = TRUE),
])
head(kable(res$alcohol))
head(kable(res$tabacco))
[1] " No Code Container Price S.median S.Mean S.sd Count PL PL.percent" [2] “— —— —– ——— ———– ——— ———- ———– —— ———- ———–” [3] “17 12.9 110 Alcohol 2339962500 330000 459717.6 501185.27 5090 18457062 0.0078878” [4] “15 23.7 112 Alcohol 1794915000 370000 532615.7 740154.36 3370 77640375 0.0432557” [5] “14 12.5 007 Tabacco 1574068400 300000 443774.6 571082.57 3547 522896525 0.3321943” [6] “18 14.50 012 Tabacco 1345432000 250000 383860.8 500513.35 3505 -4051590 -0.0030114”