ggtexttable (ggpubr) 错误

Question

我正在尝试使用 ggpubr 中的 ggtexttable 函数创建可发布的 table。我有一个数据框：

dput(df)    
structure(list(feature = list("start_codon", "stop_codon", "intergenic", 
        "3UTR", "5UTR", "exon", "intron", "ncRNA", "pseudogene"), 
        observed = list(structure(1L, .Names = "start_codon"), structure(1L, .Names = "stop_codon"), 
            structure(418L, .Names = "intergenic"), structure(48L, .Names = "3UTR"), 
            structure(28L, .Names = "5UTR"), structure(223L, .Names = "exon"), 
            structure(578L, .Names = "intron"), structure(20L, .Names = "ncRNA"), 
            structure(1L, .Names = "pseudogene")), expected = list(
            0.286, 0.286, 369.02, 72.461, 33.165, 257.869, 631.189, 
            48.491, 3.172), fc = list(3.5, 3.5, 1.1, 0.7, 0.8, 0.9, 
            0.9, 0.4, 0.3), test = list("enrichment", "enrichment", 
            "enrichment", "depletion", "depletion", "depletion", 
            "depletion", "depletion", "depletion"), sig = list("F", 
            "F", "T", "T", "F", "T", "T", "T", "F"), p_val = list(
            "0.249", "0.249", "0.00186", "0.00116", "0.209", "0.00814", 
            "0.00237", "<1e-04", "0.175")), class = "data.frame", row.names = c(NA, 
    -9L), .Names = c("feature", "observed", "expected", "fc", "test", 
    "sig", "p_val"))

当我尝试将它变成 table 时：

ggtexttable(df)

我收到错误：

Error in (function (label, parse = FALSE, col = "black", fontsize = 12, : unused arguments (label.feature = dots[[5]][1], label.observed = dots[[6]][1], label.expected = dots[[7]][1], label.fc = dots[[8]][1], label.test = dots[[9]][1], label.sig_val = dots[[10]][1], label.p_val = dots[[11]][1])

有谁知道这可能是什么原因造成的？

这很好用：

df <- head(iris)
ggtexttable(df)

Answer 1

我已经找到适合您的问题和解决方案。首先，您的数据格式不正确（嵌套列表），这就是为什么您在尝试显示它时遇到此错误。您可以通过在控制台中粘贴来轻松检查数据集的格式：str(data)

这是将您的数据转换为 data.frame 的解决方案：

first.step <- lapply(data, unlist) 
second.step <- as.data.frame(first.step, stringsAsFactors = F)

然后您可以轻松地使用函数 ggtexttable(second.step) 并显示 table 和您的数据。

ggtexttable (ggpubr) 错误

Error in ggtexttable (ggpubr)

r

ggplot2

ggpubr