更改 r 中的行顺序，kable 包标签

Question

我想更改行顺序，使是行在第一行，否行在第二行。有什么办法可以做到吗？代码如下：

DATA5$Predict=predict(best.mod,newx=y2, type="class")
DATA5$armedornot2=ifelse(DATA5$armedornot!=1,"Yes","No")
DATA5$Predict=ifelse(DATA5$Predict <0.5, "No","Yes")
armedtable <- table(DATA5[,c("armedornot2","Predict")]) 
newtable<-cbind(armedtable,No=c(0,0))

另外，有没有办法给下面的table加个侧标？我希望它在侧面显示 "Actual"，在顶部显示 "Predicted"。谢谢！

newtable %>% kable() %>% kable_styling(bootstrap_options = "striped", full_width = F, position = "left") %>% add_header_above(c("This is the title"=3))

enter image description here

Answer 1

根据你的table（我称之为df），你可以：

df[order(rownames(df), decreasing = TRUE),]

    Yes No
Yes 101  0
No  360  0

关于侧边标签的添加，您可以通过以下方式重命名列和行：

rownames(df) <- paste0("Actual_",rownames(df))
colnames(df) <- paste0("Predicted_",colnames(df))

数据

df = data.frame('Yes' = c(360,101),
                'No' = c(0,0))
rownames(df) = c('No', 'Yes')

更改 r 中的行顺序，kable 包标签

Change row order in r, kable package labeling

r

row

kable