如何在R中的數據框中合並列標題

Question

我在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應用程序中顯示的數據幀，並且需要格式化標題以使外觀整潔。

謝謝！

Answer 1

這可能是您可以獲得的最接近的東西：

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}

在閃亮的應用程序上看起來會很好！

Answer 2

修改顯示的輸出，而不是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節