In Sweave, XTABLE, drehen nur einige Spaltennamen

Question

Lets sagen, dass ich eine Tabelle in Sweave machen wollen, wie folgt aus:

<<tab2.1 , results = "asis", echo=FALSE, warning=FALSE>>= 
library(xtable) 
df <- data.frame(Fish=1:5, Bird=11:15) 

rownames(df) <- 2013:2017 

print(xtable(df), 
     rotate.colnames = TRUE) 
@ 

Nun möchte ich das Etikett des haben Plot im freien Raum über den Jahren und links vom FishBird, aber ohne Rotation. Ich habe versucht, in der xtable-Anleitung nachzuschlagen, aber es zeigt nicht, wie man nur einige Spaltennamen rotiert.

Answer 1

Hier ist eine Problemumgehung. Ich lege zuerst die Jahre in eine Spalte und definiere meine eigene Funktion, um die Spaltennamen zu manipulieren. Dadurch kann ich den ersten Spaltennamen (in meinem Codebeispiel hier: rotated[1]) durch etwas anderes ersetzen.

library(xtable) 
df <- data.frame(rows = 2013:2017, Fish=1:5, Bird=11:15) 
# note that the rownames have their own column 

print(xtable(df), include.rownames = F, 
     sanitize.colnames.function = function(x){ 
     rotated <- paste("\\begin{sideways}", x, "\\end{sideways}") 
     # put all column names into sideways environments for the rotation. 
     return(c("Need coffee!", paste(rotated[-1], collapse="&")))} 
     # replaces first column name with something else (not rotated). 
) 

\begin{table}[ht] 
\centering 
\begin{tabular}{rrr} 
    \hline 
Need coffee! & \begin{sideways} Fish \end{sideways} &\begin{sideways} Bird \end{sideways} \\ 
    \hline 
2013 & 1 & 11 \\ 
    2014 & 2 & 12 \\ 
    2015 & 3 & 13 \\ 
    2016 & 4 & 14 \\ 
    2017 & 5 & 15 \\ 
    \hline 
\end{tabular} 
\end{table} 

Beachten Sie, dass Sie Ihre rownames immer noch haben können. Folgende Arbeiten genauso gut:

df <- data.frame(Fish=1:5, Bird=11:15) 
rownames(df) <- 2013:2017 
print(xtable(tibble::rownames_to_column(df)), include.rownames = F, 
     sanitize.colnames.function = function(x){ 
     rotated <- paste("\\begin{sideways}", x, "\\end{sideways}") 
     return(c("Need coffee!", paste(rotated[-1], collapse="&")))} 
) 

Answer 2

Eine weitere Option, wenn Sie mit LaTeX-Code nicht direkt beschäftigen möchte, ist pixiedust zu verwenden, die Sie wählen können werden, welche Spalten geändert werden.

\documentclass{article} 
\usepackage{amssymb} 
\usepackage{arydshln} 
\usepackage{caption} 
\usepackage{graphicx} 
\usepackage{hhline} 
\usepackage{longtable} 
\usepackage{multirow} 
\usepackage[dvipsnames,table]{xcolor} 
\begin{document} 
\SweaveOpts{concordance=TRUE} 

<<tab2.1, results = tex>>= 
df <- data.frame(Year = 2013:2017, Fish=1:5, Bird=11:15) 

library(pixiedust) 
options(pixiedust_print_method = "latex") # This option must be set in Rnw files 

dust(df) %>% 
    medley_bw() %>% 
    sprinkle(cols = c("Fish", "Bird"), 
      rotate_degree = 90, 
      part = "head") %>% 
    print() %>% 
    cat() 
@ 


\end{document} 

Answer 3

Eine andere Möglichkeit (mit meinem eigenen huxtable Paket):

library(huxtable) 
df <- data.frame(Fish=1:5, Bird=11:15) 
rownames(df) <- 2013:2017 
ht <- hux(df, add_rownames = TRUE, add_colnames = TRUE) 
ht[1, 1] <- 'Your advert here' 
number_format(ht) <- 0 
rotation(ht)[1, 2:3] <- 90 
ht