R 带可折叠包装文本的居中列名
我有一些麻烦的中心列名称已包装的文字。包装文本的顶行居中,但第二行不居中R 带可折叠包装文本的居中列名,r,formatting,centering,kable,columnname,R,Formatting,Centering,Kable,Columnname,我有一些麻烦的中心列名称已包装的文字。包装文本的顶行居中,但第二行不居中 test_data <- data.frame(Mean = runif(5, 3.71, 7.72), N = sample(57:59, 5, replace = TRUE), sd = c(1, rep(0, 4)), d = rep(1, 5),
test_data <- data.frame(Mean = runif(5, 3.71, 7.72),
N = sample(57:59, 5, replace = TRUE),
sd = c(1, rep(0, 4)),
d = rep(1, 5),
naod = sample(1:4, 5, replace = TRUE),
a = sample(5:12, 5, replace = TRUE),
sa = sample(37:44, 5, replace = TRUE)
test <-as.data.frame(t(as.matrix(sapply(2:6,function(i) vec_fun5(test_Data,i)))))
kable(test,"latex" ,booktabs=T, align="c",col.names=linebreak(c('Mean','\\textit{N}' ,'Strongly\n Disagree','Disagree','Neither Agree\n or Disagree','Agree','Strongly\n Agree')),row.names = T,escape=F)%>%
row_spec(0,align = "c")
test\u data您可以使用tableHTML
来:
测试数据:
set.seed(1)
test_data <- data.frame(Mean = runif(5, 3.71, 7.72),
N = sample(57:59, 5, replace = TRUE),
sd = c(1, rep(0, 4)),
d = rep(1, 5),
naod = sample(1:4, 5, replace = TRUE),
a = sample(5:12, 5, replace = TRUE),
sa = sample(37:44, 5, replace = TRUE))
library(tableHTML)
test_data %>%
tableHTML(round = 2,
widths = c(50, 50, 50, 50,
80, 120, 50, 50),
headers = c("Mean", "N",
"Strongly <br>Disagree",
"Disagree",
"Neither Agree <br> or Disagree",
"Agree",
"Strongly <br>Agree"),
escape = FALSE) %>%
add_theme("scientific")
set.seed(1)
测试数据%
表格HTML(圆形=2,
宽度=c(50,50,50,50,
80, 120, 50, 50),
标题=c(“平均值”,“N”,
“强烈
不同意”,
“不同意”,
“不同意或不同意”,
“同意”,
“强烈同意”),
转义=假)%>%
添加主题(“科学”)
结果如下所示:
您可以使用表格HTML
来实现:
测试数据:
set.seed(1)
test_data <- data.frame(Mean = runif(5, 3.71, 7.72),
N = sample(57:59, 5, replace = TRUE),
sd = c(1, rep(0, 4)),
d = rep(1, 5),
naod = sample(1:4, 5, replace = TRUE),
a = sample(5:12, 5, replace = TRUE),
sa = sample(37:44, 5, replace = TRUE))
library(tableHTML)
test_data %>%
tableHTML(round = 2,
widths = c(50, 50, 50, 50,
80, 120, 50, 50),
headers = c("Mean", "N",
"Strongly <br>Disagree",
"Disagree",
"Neither Agree <br> or Disagree",
"Agree",
"Strongly <br>Agree"),
escape = FALSE) %>%
add_theme("scientific")
set.seed(1)
测试数据%
表格HTML(圆形=2,
宽度=c(50,50,50,50,
80, 120, 50, 50),
标题=c(“平均值”,“N”,
“强烈
不同意”,
“不同意”,
“不同意或不同意”,
“同意”,
“强烈同意”),
转义=假)%>%
添加主题(“科学”)
结果如下所示:
我不太明白。从图像中,所有列标题都完全(水平)居中。你喜欢做什么?顺便说一下,在发布代码片段时提供可复制的样本数据总是一个好主意,这样我们就可以复制您的输出。“Nethier同意或不同意”列就是最好的例子。我将发布更多的代码和示例数据。这里是相同的问题和答案,但是使用xtable
。我使用xtable
和kable
的组合来实现简单且效果最好的功能。因此,如果您需要快速修复,并且可以替换xtable
,那么这可能会起作用。我不确定我是否理解。从图像中,所有列标题都完全(水平)居中。你喜欢做什么?顺便说一下,在发布代码片段时提供可复制的样本数据总是一个好主意,这样我们就可以复制您的输出。“Nethier同意或不同意”列就是最好的例子。我将发布更多的代码和示例数据。这里是相同的问题和答案,但是使用xtable
。我使用xtable
和kable
的组合来实现简单且效果最好的功能。因此,如果您需要这里的快速修复,并且可以替换xtable
,那么这可能会起作用。