使用 Kable 将简单的表格添加到单词列表

Posted 2023-02-14

【中文标题】使用 Kable 将简单的表格添加到单词列表

【英文标题】：Getting simple table to a word list with Kable

【发布时间】：2021-12-25 15:29:29

【问题描述】：

我正在尝试在 Rstudio 降价中使用 Kable 为字符串（单词）列表获取一个简单的表格。使用 MSword 我得到了这个例子：

我正在尝试以不同的方式使用 Rstudio/Markdown 来获得这个，但只能得到这个：

    library(kableExtra)

    table= data.frame(words=c("uno", "dos", "tres", "cuatro", "cinco"))

    kable(table)

    table2= as.vector(table)

    kable(table2)

    table3=c("uno", "dos", "tres", "cuatro", "cinco")

    kable(table3)

编辑（我添加另一个示例）：

@manro 回复，工作正常，但不适用于长字符串单词列表。

  table_long= data.frame(words=c("uno", "hoy", "a", "al", "desconcierto", "nos", "estan", "por", "era", "otra", "con", "de", "hacia", "_"son", "h"sobre", "hasta", "quienes", "tratar", "nuestro", "y", "porque", "su", "eres" , "otro", "al", "mi", "aos", ".", "vueltas", "", "hacer"utilizando", "haciendo", "estimado", "realizando", "baja", "hago", "existen", "resto", "traves", "todas", "realice", "saber"posteriormente", "presentaron", "mandarlo", "veces", "ya", "posee", "b", "cosas", "hechos", "ud", "durante", "eran", "coste, "de", "o", "que", "todo","te", "ni", "tu", "antes", "pag", "bajo", "asi", "fue","una", "muy", "les", "ha sido", "desde", "puede", "a", rso", "sugiero", "oceanografia", "grabe", "ella", "casi", "fin", "da", "sr", "ahora","sido", "la", "a", "en", "y", "seguir", "nada"pues", "pudo", "profesor", "profesora", "punto", "profe", "temas", "unos", "dia", "gabriele", "a", "al", "de", "vuelven", "hizo", "de", "de", "que", "se", "y", "a", "un", "a", "al ", " al ", "ha", "no", "se", "los", "por", "al", "yo", "enviar", "usted", "cristian", s", "del",  "lo", "es", "para", "como", "direccion", "toda", "toco", "ser", "este", "pero", "donde", "el", "entre", "estos", "antes", "s, "ya", "o", "e", "mas", "dos", "han", "dirección", "decir", "le", "ex", "ante", "tras", "http", "noviembre", "borde", "segun", "quien", emas", "sobre", "esta", "dijo", "debe", "tengan", "parte", "tips", "tipo", "habia", "solo", "mil", "mucha", "mucho", "tener", "tiene", "si", "me", "ese", "eso", "hace", "hablaba", "ellos", "esto", "cuando", "esa", "va", "nos", "cada", "ahi", "tus", "uso", "dafne", "tanto", "vez", "año", "años", "tienen", "mayor", "hyperlink", "tenian", "tenia", "tan", "sea", "podria", "aunque", "mismo", "creo", "n", "tres", "ayer", "otros", "tambien", "https", "p", "nop", "dado", "alguna", "algunas", "estaba", "deberia", "cualquier", "hora", "poquito", "parecen", "grande", "hilo", "cerrar", "paso", "algo", "ocasion", "respecto", "sola", "segundo", "llegar", "parecer", "dice", "todos", "luego", "c", "fueron", "mientras", "pag", "alfo", "dentro", "alla", "cual", "caso", "dejado", "haces", "estar", "dan", "vaya", "pocos", "nuestra", "una", "hemos",  "estamos", "decia", "tuviera", "aveces", "tenido", "u", "vemos", "he", "aula", "mar", "topado", "sino", "cabo", "ac", "esas", "alfinal", "dante", "dan", "hofer", "juan", "deben", "estas", "ti", "quizas", "valio", "tenga", "siga", "pone", "via", "etc", "èl", "fui", "den", "ah", "ir", "tuve", "claudio", "has", "joaquim"))

【问题讨论】：

你想织成字吗？

不是。我只想要这种桌子。不是单词。

@Rodrigo_BC 在 html 文件中？

我需要一个像我的第一个例子那样带有表格的 pdf

@Rodrigo_BC 好的，我很快就能做到 :)

【参考方案1】：

你可以试试这个：

   ```r, echo = FALSE
    
    library(kableExtra)
    library(data.table)
    
    table3 <- data.frame("uno, dos, tres, cuatro, cinco")
    
    table_t3 <- transpose(table3)
    colnames(table_t3) <- NULL
    
    kable(table_t3, format = "latex", align ="|c|", booktabs = T) %>%
        kable_styling(latex_options =c("striped", "hold_position")) 
    
    ```

---

对于长名单： 将full_width = TRUE 添加到kable_styling

kable_styling(latex_options =c("striped", "hold_position"), full_width = TRUE)

但在这种情况下边框不起作用。