[英]How to merge Column headers in dataframe in r
我在R中有一个数据框架,看起来像这样。
Housing = c("Average Housing Year Built",
"Owner Occupied",
"Occupied Units",
"Rent as a Percent of MFI",
"All Residents",
"Hispanic/Latino",
"White",
"Black",
"Asian")
Values = c(1920, 5065886, 7255261, 99444.94, "20.54%", "27.7%", "18.67%",
"36.64%", "42.42%")
Housing = data.frame(Housing, Values)
我正在尝试将列标题Housing_characteristics
Housing$Housing
和Housing$Values
合并到一个名为Housing_characteristics
的单个单元格中,其余数据框必须相同。 就像Excel电子表格一样。
https://i.stack.imgur.com/J7AjF.jpg
我希望输出看起来像这样-https://i.stack.imgur.com/qHd0C.jpg
我有一堆要在RShiny应用程序中显示的数据帧,并且需要格式化标题以使外观整洁。
谢谢!
这可能是您可以获得的最接近的东西:
library(stargazer)
stargazer(Housing, summary = FALSE, type = "text",
rownames = FALSE, align = TRUE, title = "Housing Characteristics")
文字表:
Housing Characteristics
===================================
Housing Values
-----------------------------------
Average Housing Year Built 1920
Owner Occupied 5065886
Occupied Units 7255261
Rent as a Percent of MFI 99444.94
All Residents 20.54%
Hispanic/Latino 27.7%
White 18.67%
Black 36.64%
Asian 42.42%
-----------------------------------
请注意,这不是 data.frame
。 这是输出到控制台的文本形式的表,因此您不能像data.frame
一样操作它。
如果您对闪亮的应用程序中的乳胶表满意,还可以使用type = latex
选项,这是默认选项:
library(stargazer)
stargazer(Housing, summary = FALSE, header = FALSE,
title = "Housing Characteristics")
乳胶代码:
\begin{table}[!htbp] \centering
\caption{Housing Characteristics}
\label{}
\begin{tabular}{@{\extracolsep{5pt}} cc}
\\[-1.8ex]\hline
\hline \\[-1.8ex]
Housing & Values \\
\hline \\[-1.8ex]
Average Housing Year Built & 1920 \\
Owner Occupied & 5065886 \\
Occupied Units & 7255261 \\
Rent as a Percent of MFI & 99444.94 \\
All Residents & 20.54\% \\
Hispanic/Latino & 27.7\% \\
White & 18.67\% \\
Black & 36.64\% \\
Asian & 42.42\% \\
\hline \\[-1.8ex]
\end{tabular}
\end{table}
在闪亮的应用程序上看起来会很好!
修改显示的输出,而不是data.frame
。 下面将绘制一个带有标题的交互式表格,并且仍然允许对列进行排序:
library(DT)
sketch = htmltools::withTags(table(
class = 'display',
thead(
tr(
th(colspan = 2, 'Housing Characteristics')
),
tr(
th('Description'),
th('Values')
)
)
))
datatable(Housing, container = sketch, rownames = FALSE)
示例源自http://rstudio.github.io/DT/的 2.5节
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.