2

我有一个包含 255 个变量的数据集。

我使用加载我的数据集

>agep=read.csv("ncsucurrent.csv")
>attach(agep)

从数据集中，我只想将 4 个变量的子集制成表格。所以我选择使用的子集

>enroll=agep[,16:19]


id  Q1_Item1  Q1_Item2  Q1_Item3  Q1_Item4
 1         4         4         4         2
 2         1         2         3         4
 3         3         4         4         4
 4         3         3         3         3
 5         2         1         1         1

子集中的变量是数字形式。我希望它们作为因素，所以我使用：

enroll<- lapply(enroll, factor, levels=1:4, labels=c("Not at all", "To a small extent", "To some extent", "To a great extent") ) t( sapply(enroll, table) )

这会产生一个矩阵，显示每个类别下每个变量的响应数（即“根本没有”......“在很大程度上”）

Not at all  To a small extent  To some extent  To a great extent 
Item1          1                  1               2                  1
Item2          1                  1               1                  2
Item3          1                  0               2                  2
Item4          1                  1               1                  2

现在我想使用 xtable 创建一个漂亮的表。我用

>require(xtable)
>library(xtable)
>enroll=as.data.frame(enroll)
>enroll=xtable(enroll)
>print(enroll)

但是，它返回带有标签的原始子集

% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Wed Jul 11 00:27:10 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rlll}
  \hline
 & Q1_item1 & Q1_item2 & Q1_item3 & Q1_item4  \\ 
  \hline
1 & To a great extent & To a great extent& To a great extent & To a small extent \\ 
2 & Not at all & To a small extent  & To some extent & To a great extent\\ 
3 & To some extent & To a great extent & To a great extent & To a great extent\\ 
4 & To some extent & To some extent & To some extent & To some extent \\ 
5 & To a small extent& Not at all& Not at all& Not at all\\
   \hline
\end{tabular}
\end{center}
\end{table}

使用 xtable 对数据进行子集化并打印矩阵（从上数第二个）的正确方法是什么？

4

0 回答 0