ggtexttable (ggpubr) 错误
Error in ggtexttable (ggpubr)
我正在尝试使用 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)
我已经找到适合您的问题和解决方案。首先,您的数据格式不正确(嵌套列表),这就是为什么您在尝试显示它时遇到此错误。您可以通过在控制台中粘贴来轻松检查数据集的格式:str(data)
这是将您的数据转换为 data.frame
的解决方案:
first.step <- lapply(data, unlist)
second.step <- as.data.frame(first.step, stringsAsFactors = F)
然后您可以轻松地使用函数 ggtexttable(second.step)
并显示 table 和您的数据。
我正在尝试使用 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)
我已经找到适合您的问题和解决方案。首先,您的数据格式不正确(嵌套列表),这就是为什么您在尝试显示它时遇到此错误。您可以通过在控制台中粘贴来轻松检查数据集的格式:str(data)
这是将您的数据转换为 data.frame
的解决方案:
first.step <- lapply(data, unlist)
second.step <- as.data.frame(first.step, stringsAsFactors = F)
然后您可以轻松地使用函数 ggtexttable(second.step)
并显示 table 和您的数据。