Tengo una tabla que quiero presentar en la que los valores de algunas filas deberían tener decimales, y los de otras no. Adicionalmente, me gustaría mantener la coma como separador decimal. Parece ser que puedo cumplir con una de las condiciones por vez, pero no con las dos juntas, al menos usando kableExtra: usar formatC para establecer el número de decimales transforma los valores en caracter, y ya no puedo indicar la coma como separador decimal. ¿Existe alguna forma más o menos sencilla de lograrlo? Aquí dejo un mínimo ejemplo:
---
title: "kble"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
---
```{r global, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(shiny)
library(kableExtra)
library(janitor)
dt <- mtcars[1:5, 1:6]%>% as.data.frame()%>%
mutate(categoria = ifelse(disp<200,"1","0"))
```
Title...
=====================================
Inputs {.sidebar data-width=400}
-------------------------------------
```{r cars}
filtered_data <- dt %>%
filter(cyl==6)
number <-table(filtered_data$cyl)%>% as.data.frame()%>%rename("N" = Freq)
percent_cat_1 <- addmargins(table(filtered_data$cyl, filtered_data$`categoria`), 2)
percent_cat_12 <-as.data.frame.matrix(percent_cat_1) %>%
mutate(`Percent cat 1` = round((`1`)/Sum*100,1))%>%
select(-`1`,-`0`,-`Sum`)
percent_cat_1<- tibble::rownames_to_column(percent_cat_12, "Var1")
final_table <- number %>%
left_join(percent_cat_1)%>%
t()%>%as.data.frame()%>%
row_to_names(row_number =1)
final_table[1] <- lapply(final_table[1], as.numeric)
final_table%>%
knitr::kable(format.args = list(decimal.mark = ',', big.mark = "."),
caption = "Title",
align = "ccc"
)%>%
kable_styling("striped","hover",full_width = F)
```
La fila N no debería mostrar decimales, pero la "Percent cat 1" sí. Gracias!