Question

我的表函数有问题。我显然没有使用正确的功能或没有正确执行它。它将ContactCode列与Dec月合并，我需要将它们分开。使用Table函数时，如何指定ContactCode是自己的列？

Map = HeatMapCC[,c('ContactCode','Month')]
Map = table(Map$ContactCode,Map$Month)

输出

      Dec Jan
  101 219 315
  103  37  47
  104  69  72
  110  26  60
  112  41  24
  113  18  28

Desired OutPut

  ContactCodes    Dec Jan
  101             219 315
  103             37  47
  104             69  72
  110             26  60
  112             41  24
  113             18  28

> str(Map)
 'table' int [1:26, 1:2] 219 37 69 26 41 18 106 2 26 19 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:26] "101" "103" "104" "110" ...
  ..$ : chr [1:2] "Dec" "Jan"

Answer 1

如果您的输出被调用Map，请执行以下操作：

Map <- cbind(ContactCode=rownames(Map), Map)

正如Hong所指出的，如果rownames不是全数字，你可能会得到不需要的强制值。在这些情况下，您可以使用data.frame代替cbind。即：

Map <- data.frame(ContactCode=rownames(Map), Map)

注意，在任何一种情况下，如果你不喜欢在将它们添加为列后仍然存在的rownames的外观，你可以摆脱它们：

rownames(Map) <- NULL
Map
  ContactCode Dec Jan
1         101 219 315
2         103  37  47
3         104  69  72
4         110  26  60
5         112  41  24
6         113  18  28

表格1的问题

1 个答案: