【发布时间】:2020-08-01 02:42:55
【问题描述】:
我使用下面的代码创建了一个表格,但我无法将其导出为表格。
谁能帮忙
library(tidyverse)
library(gapminder)
data(gapminder)
median_gdp <- median(gapminder$gdpPercap)
gapminder %>%
select(-country) %>%
mutate(gdpPercap = ifelse(gdpPercap > median_gdp, "high", "low")) %>%
mutate(gdpPercap = factor(gdpPercap)) %>%
mutate(pop = pop / 1000000) -> gapminder
gapminder <- lapply(gapminder, function(x) x[sample(c(TRUE, NA),
prob = c(0.9, 0.1),
size = length(x),
replace = TRUE
)])
library(arsenal)
table_one <- tableby(continent ~ ., data = gapminder)
summary(table_one, title = "Gapminder Data", text=TRUE)
【问题讨论】:
-
欢迎来到 Stack Overflow!如果您可以在edit 您的问题中包含有关
export it as a table含义的更多详细信息,则可能会更容易提供帮助。您是否需要带有表格的 Word 文档、表格的 LaTeX 代码等? -
为什么不将数据导出到 csv(使用
write.table),然后在 LibreOffice Calc 或 Excel 上进行格式化?
标签: r