将列更改为索引

Question

我有一个如下所示的表格，我正在尝试将其转换为第一列成为索引的方式，即我可以在其上使用类似条形图的函数。

               TFR_TT      ML            BGT  
1                0       26795        1577776.4
2                2        2779         432500.0
3                6           1            187.2

像下面这样的东西

                        ML            BGT  
               0       26705         1577776.4
               2        2779          432500.0
               6           1             187.2

然后运行折线图，这样我就可以得到 0,2,6 作为 X 轴作为 ML 和 Y 轴作为 BGT 之间的点

Answer 1

要获取索引，您必须设置 rownames()。过去，我使用 as.table.data.frame() 辅助函数来做

#sample data
dd<-structure(list(TFR_TT = c(0L, 2L, 6L), ML = c(26795L, 2779L, 
1L), BGT = c(1577776.4, 432500, 187.2)), .Names = c("TFR_TT", 
"ML", "BGT"), class = "data.frame", row.names = c("1", "2", "3"
))

barchart(as.table(dd, rownames=1)[,-1])

如果您指定 rownames= 参数，这将负责重新格式化对象并设置名称。

为了完整起见，我将在此处包含源代码

as.table.data.frame<-function(x, rownames=0) {
    numerics <- sapply(x,is.numeric)
    chars <- which(sapply(x,function(x) is.character(x) || is.factor(x)))
    names <- if(!is.null(rownames)) {
        if (length(rownames)==1) {
            if (rownames ==0) {
                 rownames(x)
            } else {
                as.character(x[,rownames])
            }
        } else {
            rownames
        }
    } else {
          if(length(chars)==1) {
            as.character(x[,chars])
        } else {
            rownames(x)
        }
    }
    x<-as.matrix(x[,numerics])
    rownames(x)<-names
    structure(x, class="table")
}