R 中是否有一个包可以生成这样的表: 基本上,给定一个因子和变量的数据集,生成一个格式良好的表格,其中包含成对的 t 检验和表示差异显着性的字母?
虚拟数据:
var = c(rnorm(100,mean=1,sd=2),rnorm(30,mean=-1,sd=2),rnorm(50,mean=0,sd=4))
factor = as.factor(c(rep(1,100),rep(2,30),rep(3,50))
我如何获取该虚拟数据并将其转换为示例表(的一列)?
最佳答案
免责声明
不是一个确切的答案,但它可能是一个好的开始!!!使用 tables
包。
library(Hmisc)
library(tables)
stderr <- function(x) sd(x)/sqrt(length(x))
latex(
object = tabular((Species+1) ~ All(iris)* PlusMinus(mean, stderr, digits=1), data=iris)
, title = "Test"
, file=""
, size = "small"
, cdot = 3
, here = TRUE
, booktabs=TRUE
, center="centering"
)
输出
已编辑
您可以使用multcompView
包获取字母。
代码
library(multcompView)
Sepal.Length.fm <- aov(Sepal.Length~Species, data=iris)
Sepal.Length.Letters <- data.frame("Letters"=multcompLetters(extract_p(TukeyHSD(Sepal.Length.fm)$"Species"))$"Letters")
Sepal.Width.fm <- aov(Sepal.Width~Species, data=iris)
Sepal.Width.Letters <- data.frame("Letters"=multcompLetters(extract_p(TukeyHSD(Sepal.Width.fm)$"Species"))$"Letters")
Petal.Length.fm <- aov(Petal.Length~Species, data=iris)
Petal.Length.Letters <- data.frame("Letters"=multcompLetters(extract_p(TukeyHSD(Petal.Length.fm)$"Species"))$"Letters")
Petal.Width.fm <- aov(Petal.Width~Species, data=iris)
Petal.Width.Letters <- data.frame("Letters"=multcompLetters(extract_p(TukeyHSD(Petal.Width.fm)$"Species"))$"Letters")
Letters <- cbind(Sepal.Length.Letters, Sepal.Width.Letters, Petal.Length.Letters, Petal.Width.Letters)
输出
Letters Letters Letters Letters
versicolor a a a a
virginica b b b b
setosa c c c c
关于r - 如何为 R->latex 中的组间显着差异制作一个带有字母的方差分析表?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21508408/