R 将htest写入excel或图像

我有一张单子

t列表

$Delägare.Totalt

    Welch Two Sample t-test

data:  x by datattest$Uttaxeringskassa
t = -4.2515, df = 4525.773, p-value = 0.00002166
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -194.58860  -71.76597
sample estimates:
mean in group 0 mean in group 1 
       207.2441        340.4214 


$Delägare.AndelKvinnor

    Welch Two Sample t-test

data:  x by datattest$Uttaxeringskassa
t = -3.358, df = 5204.392, p-value = 0.0007907
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -3.3451054 -0.8790346
sample estimates:
mean in group 0 mean in group 1 
       35.09412        37.20619 

class(thelist)
[1] "list"

class(thelist[[1]])
[1] "htest"

我想很好地导出到excel或jpg文件。有什么建议吗

致以最良好的祝愿

dput(thelist)
structure(list(Delägare.Totalt = structure(list(statistic = structure(-4.25153766803811, .Names = "t"), 
    parameter = structure(4525.77251107907, .Names = "df"), p.value = 0.0000216586994081083, 
    conf.int = structure(c(-194.588596176246, -71.7659721316704
    ), conf.level = 0.95), estimate = structure(c(207.244090610637, 
    340.421374764595), .Names = c("mean in group 0", "mean in group 1"
    )), null.value = structure(0, .Names = "difference in means"), 
    alternative = "two.sided", method = "Welch Two Sample t-test", 
    data.name = "x by datattest$Uttaxeringskassa"), .Names = c("statistic", 
"parameter", "p.value", "conf.int", "estimate", "null.value", 
"alternative", "method", "data.name"), class = "htest"), Delägare.AndelKvinnor = structure(list(
    statistic = structure(-3.35800910076486, .Names = "t"), parameter = structure(5204.39192454832, .Names = "df"), 
    p.value = 0.000790696715995022, conf.int = structure(c(-3.34510541135959, 
    -0.879034608967678), conf.level = 0.95), estimate = structure(c(35.0941200840133, 
    37.2061900941769), .Names = c("mean in group 0", "mean in group 1"
    )), null.value = structure(0, .Names = "difference in means"), 
    alternative = "two.sided", method = "Welch Two Sample t-test", 
    data.name = "x by datattest$Uttaxeringskassa"), .Names = c("statistic", 
"parameter", "p.value", "conf.int", "estimate", "null.value", 
"alternative", "method", "data.name"), class = "htest")), .Names = c("Delägare.Totalt", 
"Delägare.AndelKvinnor"))

您可以使用：

> sapply(thelist, unlist)
                               Delägare.Totalt                   Delägare.AndelKvinnor            
statistic.t                    "-4.25153766803811"               "-3.35800910076486"              
parameter.df                   "4525.77251107907"                "5204.39192454832"               
p.value                        "2.16586994081083e-05"            "0.000790696715995022"           
conf.int1                      "-194.588596176246"               "-3.34510541135959"              
conf.int2                      "-71.7659721316704"               "-0.879034608967678"             
estimate.mean in group 0       "207.244090610637"                "35.0941200840133"               
estimate.mean in group 1       "340.421374764595"                "37.2061900941769"               
null.value.difference in means "0"                               "0"                              
alternative                    "two.sided"                       "two.sided"                      
method                         "Welch Two Sample t-test"         "Welch Two Sample t-test"        
data.name                      "x by datattest$Uttaxeringskassa" "x by datattest$Uttaxeringskassa"

然后通过

write.table

保存ist

更新

要保存到.jpeg，可以使用gridExtra:：：grid.table:

df <- sapply(thelist, unlist)
require(gridExtra)
jpeg("output.jpg")
grid.table(df)
dev.off()

df您可以使用：

> sapply(thelist, unlist)
                               Delägare.Totalt                   Delägare.AndelKvinnor            
statistic.t                    "-4.25153766803811"               "-3.35800910076486"              
parameter.df                   "4525.77251107907"                "5204.39192454832"               
p.value                        "2.16586994081083e-05"            "0.000790696715995022"           
conf.int1                      "-194.588596176246"               "-3.34510541135959"              
conf.int2                      "-71.7659721316704"               "-0.879034608967678"             
estimate.mean in group 0       "207.244090610637"                "35.0941200840133"               
estimate.mean in group 1       "340.421374764595"                "37.2061900941769"               
null.value.difference in means "0"                               "0"                              
alternative                    "two.sided"                       "two.sided"                      
method                         "Welch Two Sample t-test"         "Welch Two Sample t-test"        
data.name                      "x by datattest$Uttaxeringskassa" "x by datattest$Uttaxeringskassa"

然后通过
write.table
保存ist

更新

要保存到.jpeg，可以使用gridExtra:：：grid.table:

df <- sapply(thelist, unlist)
require(gridExtra)
jpeg("output.jpg")
grid.table(df)
dev.off()

df是的，我知道这样做，但我想将列表保存为图像！：）回答得好！谢谢！：）是的，我知道这样做，但我想将列表保存为图像！：）回答得好！谢谢！：）尝试
gplots:：textplot
Try
gplots:：textplot