在R中使用scrollX时设置列宽

library(DT)

# 创建一个示例数据表
data <- data.frame(
  ID = 1:10,
  Name = c("John", "Jane", "Tom", "Mary", "Peter", "Alice", "Bob", "Kate", "Mark", "Emma"),
  Age = c(25, 30, 35, 40, 45, 50, 55, 60, 65, 70)
)

# 使用datatable函数创建交互式数据表，并设置scrollX和列宽
datatable(data, 
          options = list(
            scrollX = TRUE,  # 启用水平滚动
            columnDefs = list(
              list(width = "100px", targets = c(1, 2, 3))  # 设置列宽
            )
          )
)

library(flextable)

# 创建一个示例数据表
data <- data.frame(
  ID = 1:10,
  Name = c("John", "Jane", "Tom", "Mary", "Peter", "Alice", "Bob", "Kate", "Mark", "Emma"),
  Age = c(25, 30, 35, 40, 45, 50, 55, 60, 65, 70)
)

# 创建一个flextable对象
ft <- flextable(data)

# 设置列宽
ft <- width(ft, j = c(1, 2, 3), width = 100)

# 显示表格
ft