2

我想放置两行标签或列名（到数据框或矩阵），如下所示：

  Big Big Medium Medium Low Low
  Wet Dry    Wet    Dry Wet Dry
1   6   4      1      3   2   5
2   4   4      1      3   1   6
3   4   3      1      3   1   6
4   5   2      1      2   1   4
5   3   4      1      2   3   5

并且能够通过使用两个标签来引用给定的列，例如列“Medium”、“Dry”。

4

3 回答 3

4

你所要求的不存在。名称始终是字符向量，因此它们始终是一维的。因此，您要么使用简单的名称，如"Big Wet"数据框/矩阵中的名称，要么必须使用其他数据结构，例如具有维度size、wet/dry、row的 3 维数组，您可以在其中分别命名它们：

> array(c(6,4,4,5,3,4,4,3,2,4,1,1,1,1,1,3,3,3,2,2,2,1,1,1,3,5,6,6,4,5),
        c(5,2,3), list(1:5, c("Wet", "Dry"), c("Big", "Medium", "Low")))
, , Big

  Wet Dry
1   6   4
2   4   4
3   4   3
4   5   2
5   3   4

, , Medium

  Wet Dry
1   1   3
2   1   3
3   1   3
4   1   2
5   1   2

, , Low

  Wet Dry
1   2   5
2   1   6
3   1   6
4   1   4
5   3   5

> a[, "Wet",]
  Big Medium Low
1   6      1   2
2   4      1   1
3   4      1   1
4   5      1   1
5   3      1   3

> a[, "Dry", "Medium"]
1 2 3 4 5 
3 3 3 2 2
于 2013-01-09T04:24:08.297 回答
1 
text <- "  Big Big Medium Medium Low Low
  Wet Dry    Wet    Dry Wet Dry
1   6   4      1      3   2   5
2   4   4      1      3   1   6
3   4   3      1      3   1   6
4   5   2      1      2   1   4
5   3   4      1      2   3   5"

您可能会从文件中读取，并使用file参数而不是text我在下面使用的参数：

labs <- read.table(header=FALSE, text=text, nrows=2)  # This will be used to construct the headers.
data <- read.table(header=TRUE, text=text, skip=1)    # Consume a header line so that the row IDs are not interpreted as data.
names(data) <- apply(labs, 2, paste, collapse=',')    # Overwrite the header read above.

> data

  Big,Wet Big,Dry Medium,Wet Medium,Dry Low,Wet Low,Dry
1       6       4          1          3       2       5
2       4       4          1          3       1       6
3       4       3          1          3       1       6
4       5       2          1          2       1       4
5       3       4          1          2       3       5

> data['Big,Wet']
  Big,Wet
1       6
2       4
3       4
4       5
5       3
于 2013-01-09T04:18:32.247 回答
1

这为您提供了您所要求的东西，但除了可视化之外，对任何东西都毫无价值：

dat <- read.table(text="1   6   4      1      3   2   5
2   4   4      1      3   1   6
3   4   3      1      3   1   6
4   5   2      1      2   1   4
5   3   4      1      2   3   5", header=FALSE)[, -1]

nms1 <- unlist(strsplit(gsub("\\s+", " ", "Wet Dry    Wet    Dry Wet Dry"), " "))
nms2 <- unlist(strsplit("Big Big Medium Medium Low Low", " "))

dat2 <- rbind(nms1, dat)
colnames(dat2) <- nms2

rownames(dat2) <- c(" ", 1:(nrow(dat2) - 1))
dat2

产量：

  Big Big Medium Medium Low Low
  Wet Dry    Wet    Dry Wet Dry
1   6   4      1      3   2   5
2   4   4      1      3   1   6
3   4   3      1      3   1   6
4   5   2      1      2   1   4
5   3   4      1      2   3   5

和索引：

indexer <- function(x, y) as.numeric(dat2[-1, colnames(dat2) == x & dat2[1, ] == y])
indexer("Big", "Dry")

这很笨重，我不会走这条路。如果您想要功能性，请使用其他出色的响应。

于 2013-01-09T04:41:08.937 回答