R read.ftable 操作平面列联表

说明

读取、写入和强制‘flat’(应急)表，又名ftable。

用法

read.ftable(file, sep = "", quote = "\"",
            row.var.names, col.vars, skip = 0)

write.ftable(x, file = "", quote = TRUE, append = FALSE,
             digits = getOption("digits"), sep = " ", ...)

## S3 method for class 'ftable'
format(x, quote = TRUE, digits = getOption("digits"),
       method = c("non.compact", "row.compact", "col.compact", "compact"),
       lsep = " | ",
       justify = c("left", "right"),
       ...)

## S3 method for class 'ftable'
print(x, digits = getOption("digits"), ...)

参数

file	命名文件的字符串或要从中读取或写入数据的connection。 ""表示从控制台输入进行读取，输出到控制台进行写入。
sep	字段分隔符字符串。文件每一行上的值均以此字符串分隔。
quote	给出 read.ftable 的引用字符集的字符串；要完全禁用引用，请使用 quote="" 。对于 write.table ，指示数据中的字符串是否用双引号引起来的逻辑。
row.var.names	带有行变量名称的字符向量，以防无法自动确定。
col.vars	给出列变量的名称和级别的列表，以防无法自动确定。
skip	开始读取数据之前要跳过的数据文件行数。
x	类 "ftable" 的对象。
append	合乎逻辑的。如果 TRUE 和 file 是文件名(而不是连接或 "|cmd" )，则 write.ftable 的输出将附加到该文件。如果FALSE，file的内容将被覆盖。
digits	一个整数，给出用于 x (的单元格条目)使用的有效位数。
method	指定如何格式化 "ftable" 对象的字符串(如果在 write.ftable() 或 print 方法中使用，则打印)。可以缩写。可用的方法有(参见示例)： "non.compact" "ftable" 对象的默认表示形式。 "row.compact" 列标签下方没有空单元格的行紧凑版本。 "col.compact" 行标签右侧没有空单元格的列紧凑版本。 "compact" 行和列紧凑版本。这可能意味着行和列标签共享同一单元格。然后它们由字符串 lsep 分隔。
lsep	仅适用于 method = "compact" ，行和列标签的分隔字符串。
justify	character 长度为(一或)二的向量，指定在 format(..) 中应如何进行字符串对齐，首先是标签，然后是表条目。
...	传入或传出方法的更多参数；对于 write() 和 print() ，特别是诸如 method 之类的参数，传递给 format() 。

细节

read.ftable 从文件中读取扁平状列联表。如果文件包含平面表的书面表示(更准确地说，标题包含有关列变量的名称和级别的所有信息，后跟一行包含行变量的名称)，则不需要其他参数。同样，只有一个列变量(其名称是第一行中唯一条目)的平面表会自动处理。其他变体可以通过使用 skip 跳过所有标题信息，并分别使用 row.var.names 和 col.vars 提供行变量的名称以及列变量的名称和级别来处理。请参阅下面的示例。

请注意，平面表的特点是行(也可能是列)标签的 ‘ragged’ 显示。如果给出了行变量级别的完整网格，则应使用 read.table 读取数据，并使用 xtabs 从中创建列联表。

write.ftable 将平面表写入文件，这对于生成列联表的 ‘pretty’ ASCII 表示很有用。通过 method 参数可以使用不同的版本，例如，这对于构建 LaTeX 表可能很有用。

例子

## Agresti (1990), page 157, Table 5.8.
## Not in ftable standard format, but o.k.
file <- tempfile()
cat("             Intercourse\n",
    "Race  Gender     Yes  No\n",
    "White Male        43 134\n",
    "      Female      26 149\n",
    "Black Male        29  23\n",
    "      Female      22  36\n",
    file = file)
file.show(file)
ft1 <- read.ftable(file)
ft1
unlink(file)

## Agresti (1990), page 297, Table 8.16.
## Almost o.k., but misses the name of the row variable.
file <- tempfile()
cat("                      \"Tonsil Size\"\n",
    "            \"Not Enl.\" \"Enl.\" \"Greatly Enl.\"\n",
    "Noncarriers       497     560           269\n",
    "Carriers           19      29            24\n",
    file = file)
file.show(file)
ft <- read.ftable(file, skip = 2,
                  row.var.names = "Status",
                  col.vars = list("Tonsil Size" =
                      c("Not Enl.", "Enl.", "Greatly Enl.")))
ft
unlink(file)

ft22 <- ftable(Titanic, row.vars = 2:1, col.vars = 4:3)
write.ftable(ft22, quote = FALSE) # is the same as
print(ft22)#method="non.compact" is default
print(ft22, method="row.compact")
print(ft22, method="col.compact")
print(ft22, method="compact")

## using 'justify' and 'quote' :
format(ftable(wool + tension ~ breaks, warpbreaks),
       justify = "none", quote = FALSE)

参考

Agresti, A. (1990) Categorical data analysis. New York: Wiley.

也可以看看

ftable 了解有关平面列联表的更多信息。