如何在R数据框中去除特定行的小数位显示

你遇到的问题是因为rbind合并行时，所有行被统一转为数值型（double），导致kable默认显示小数位。以下两种方法可以实现Year和Sales行的无小数整数显示：

方法1：保留数据类型，仅在表格展示时格式化（推荐） #

使用kableExtra的row_spec配合cell_spec，针对指定行设置格式，不修改原始数据类型：

library(kableExtra)

# 原始数据定义
sales <- c(10, 30, 50, 20, 40)
revenue <- c(100.25, 300.50, 500.75, 200.00, 400.50)
profit <- c(10.4, 200.7, 400.5, 100.00, 356.79)
year <- c(2019:2023)
data <- rbind(Year = year, Sales = sales, Revenue = revenue, Profit = profit)

# 创建并格式化表格
Table <- kbl(data,
             caption = "Development",
             booktabs = TRUE,
             linesep = c("\\addlinespace[0.2cm]"),
             align = c("l", "r")) %>% 
  # 对第1行（Year）和第2行（Sales）设置无小数格式
  row_spec(c(1,2),
           cell_spec = function(x) {
             cell_spec(x, format = "latex", 
                       format.args = list(digits = 0, nsmall = 0))
           }) %>%
  kable_styling(latex_options = c("striped"), font_size = 10, position = "left")

Table

方法2：修改数据类型为字符型（适合纯展示场景） #

直接将Year和Sales行转为字符型，强制显示整数形式，但会改变原始数据的数值属性：

library(kableExtra)

# 数据定义时转换目标行为字符型
sales <- c(10, 30, 50, 20, 40)
revenue <- c(100.25, 300.50, 500.75, 200.00, 400.50)
profit <- c(10.4, 200.7, 400.5, 100.00, 356.79)
year <- c(2019:2023)
data <- rbind(Year = as.character(year), 
              Sales = as.character(sales), 
              Revenue = revenue, 
              Profit = profit)

# 后续表格生成代码不变
Table <- kbl(data,
             caption = "Development",
             booktabs = TRUE,
             linesep = c("\\addlinespace[0.2cm]"),
             align = c("l", "r")) %>% 
  kable_styling(latex_options = c("striped"), font_size = 10, position = "left")

Table

内容的提问来源于stack exchange，提问作者estrix