R 将gt表格并排排列或排列在表格的网格或表格中

我想在网格或并排中生成一组

gt

表对象。例如，下面的代码使用

groupby

参数垂直分隔它们。但是如果我想让它们并排分开呢

mtcars2%
变异（好的_mpg=ifelse（mpg>20，“好里程”，“坏里程”），
车辆名称=行名称（）
mtcars2%>%
分组人（好分组）%>%
切片最大值（订单单位=hp，n=5）%>%
排列（hp）%>%
选择（车名，马力）%>%
gt（）%>%
数据颜色（列=c（“hp”），
颜色=颜色（调色板=“蓝色”，
域=c（0400）））

---

您可以通过对内部表使用

as_raw_html（）

和顶级表中的

fmt_markdown（columns=TRUE）

来实现这一点

hp_表%
数据颜色（列=c（“hp”），
颜色=颜色（调色板=“蓝色”，
域=c（0400））%>%
tab_选项（column_labels.hidden=TRUE）%>%
as_raw_html（）#返回为html
}
好的表格%
变异（好的_mpg=ifelse（mpg>20，“好里程”，“坏里程”），
车辆名称=行名称（%）%>%
过滤器（良好里程=“良好里程”）%>%
总分（5）%>%
排列（hp）%>%
选择（车名，马力）%>%
hp_表（）
坏表%
总分（5）%>%
排列（hp）%>%
选择（车名，马力）%>%
hp_表（）
数据表%
gt（）%>%
fmt_标记（columns=TRUE）%>%#将单元格内容呈现为html
cols_标签（good_table=“高里程”，
坏表=“低里程”）

---

@Daniel，谢谢你分享！这可以派上用场

为了使代码更加紧凑，您可以使用

group\u map

（或

do

）在

dplyr

工作流中生成两个表，然后像您所做的那样连接它们：

库（dplyr）
图书馆（gt）
图书馆（比例尺）
hp_表%
数据颜色（columns=“hp”，
颜色=颜色数值（调色板=“蓝色”，c（0400））%>%
tab_选项（column_labels.hidden=TRUE）%>%
as_raw_html（）
}
mtcars%>%
变异（好的_mpg=ifelse（mpg>20，“好里程”，“坏里程”），
车辆名称=行名称（%）%>%
排列（hp）%>%
分组依据（相对水平（系数（良好里程），“良好里程”））%>%
切片头（n=5）%>%
选择（车名，马力）%>%
组映射（~hp\u表（.x））%>%
数据帧（%）>%
设置名称（，c（“高里程”、“低里程”））%>%
gt（）%>%
fmt_降价（列=真）

---

非常好。非常感谢。