r语言中对这个表格进行美化library(DT)# 创建数据框 df <- data.frame( name = c("Alice", "Bob", "Charlie"), age = c(25, 30, 35), gender = c("female", "male", "male"))# 将数据框转换为DT格式 datatable(df, filter = "top")

好的，以下是对您提供的表格进行简单美化的 R 代码：

library(DT)

# 创建数据框
df <- data.frame(
  name = c("Alice", "Bob", "Charlie"),
  age = c(25, 30, 35),
  gender = c("female", "male", "male")
)

# 将数据框转换为DT格式，并设置表格样式和选项
datatable(df, filter = "top", rownames = FALSE, 
          options = list(dom = 't', pageLength = 5, 
                         lengthMenu = c(5, 10, 15), 
                         language = list(
                           search = "搜索:",
                           lengthMenu = "显示 _MENU_ 行",
                           info = "显示第 _START_ 至 _END_ 行，共 _TOTAL_ 行",
                           paginate = list(
                             first = "首页",
                             last = "末页",
                             next = "下一页",
                             previous = "上一页"
                           )
                         )
          ),
          style = list(
            "border-collapse" = "collapse",
            "font-size" = "14px",
            "font-family" = "Arial, Helvetica, sans-serif"
          )
)

上述代码中，设置了表格的样式和选项，包括：

- 显示搜索框在表格顶部
- 隐藏行号
- 显示每页显示数据行数的选项
- 自定义显示信息
- 显示分页器，设置分页器的文本内容
- 设置表格样式，包括边框合并、字体大小和字体类型等。

您可以根据需要自定义设置。