标签: xtable
如何使用 xtable 基于条件生成表
我只是在开始使用package likextable或`stargazer。Bellow 是一个示例数据集，原始数据集要大得多。
set.seed(1)
df <- data.frame(rep(
sample(c(2012,2016),10, replace = T)),
sample(c('Treat','Control'),10,replace = T),
runif(10,0,1),
runif(10,0,1),
runif(10,0,1))
colnames(df) <- c('Year','Group','V1','V2','V3')
我想生成格式良好的表格，显示上述数据集的描述性统计数据。
但是，有没有一种方法xtable可以直接生成一个表格，我可以在其中查看整个数据集的统计数据，按组（治疗和控制）和年份（2012、2016）分开？或者甚至可以将组和年份结合起来？
或者我应该根据这些设置过滤原始 df 并xtable在每个设置上运行？
我想要的另一件事是显示变量的中位数，而不是显示mean，以及其他统计数据。是否有可能，或者我是否必须使用 R 手动计算？
任何考虑stargazer的解决方案都是有效的！
谢谢！
推荐指数
解决办法
查看次数
如何以最小的格式将数据框导出到乳胶？
考虑这个简单的例子
library(dplyr)
dataframe <- data_frame(mytext1 = c('HELLO',
'WORLD'),
mytext2 = c('HELLO',
'AGAIN'),
value1 = c(1,2),
value2 = c(1,2))
# A tibble: 2 x 4
mytext1 mytext2 value1 value2
<chr> <chr> <dbl> <dbl>
1 HELLO HELLO 1 1
2 WORLD AGAIN 2 2
我想将此数据框导出到乳胶表，但进行一些小的（但重要的）调整。
特别是，我想在乳胶输出中添加一个分隔文本变量的超级列和另一个分隔数字变量的超级列。mat也就是说，本图像中的某些内容com：
我尝试了 R 包xtable，tables但无法实现接近的目标（可能是因为它们创建了汇总统计表）。我在这里错过了什么吗？
谢谢！
推荐指数
解决办法
查看次数
使用Shiny Table时，如何使日期以日期格式显示？
我一直想让日期显示在Shiny表中。我进行了一些研究，发现过去xtable在Shiny上效果不佳。有关SO的问题有两个。一个常规参考可以在这里找到R：xtable和date。
我的问题是1）我在使用Shiny编程并使用方面是个新手xtable。2）我不熟悉使用POSIXct。3）我不理解上面链接中提供的解决方案。
请为下面的基本代码提供帮助。这个想法是有人会每天使用此应用程序输入数据。这些数据将存储在.csv中。当存储在.csv中时，仅存储R日期的数值。这也是Shiny表上显示的内容。请教我如何在表格和.csv文件中正确设置格式。
在检查下面的代码之前，请知道将存储一个带有标题日期A，B的.csv文件。让我们将此文件称为“日志”，它将存储在本地。这是代码：
library(shiny)
log <- read.table("V:\\My\\Path\\log.csv",sep=",",header=T)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(width=2,
#Enter Date
dateInput("date","Date",min="2016-07-04", max = "2017-07-04"),
#Enter Combo
selectInput(inputId = "a", "A", c("Choose one" = "","A1", "A2", "A3"), multiple = FALSE, selectize = TRUE, width = NULL, size = NULL),
#Enter Number
numericInput(inputId = "b", "Favorite Number", NULL, min = 0, max = NA),
#Enter Submit to write info to file
actionButton(inputId = "submit", "Submit", icon = NULL, width = NULL) …推荐指数
解决办法
查看次数
不像 xtable 那样在 knit::kable 输出中显示 NA
我想NAs在输出中省略与执行knitr::kable相同的输出xtable（请参阅下面的kable和xtable输出）。
fm12anova <-
structure(list(SOV = c("Days", "Residuals"), Df2 = c(1L, 178L
), Sum.Sq2 = c(162702.651909532, 405251.617480465), Mean.Sq2 = c(162702.651909532,
2276.69448022733), F.value2 = c(71.4644205986244, NA), Pr..F.2 = c(9.89409632221545e-15,
NA), Sum.Sq1 = c(30031.0139578738, NA), Mean.Sq1 = c(30031.0139578738,
NA), NumDF1 = c(1L, NA), DenDF1 = c(17.0000010028433, NA), F.value1 = c(45.8530037127448,
NA), Pr..F.1 = c(3.26378804516025e-06, NA)), class = "data.frame", row.names = c(NA,
-2L), .Names = c("SOV", "Df2", "Sum.Sq2", "Mean.Sq2", "F.value2",
"Pr..F.2", "Sum.Sq1", "Mean.Sq1", "NumDF1", …推荐指数
解决办法
查看次数