有效地解析R中的二进制输入

Question

R中的

我有两行数据帧 每个数字本身都存储在一个单独的列中。

目前我正在使用

unname(which(df[1,]-df[2,]==0))->hte

找到有一些实例的地方，其中第1行的实例等于1，第2行等于1，第1行等于0，第2行等于0.相当于70k cols的时间< / p>

Answer 1

您可以通过转置将其转换为矩阵。这似乎很快

    var myChart = new dimple.chart(svg3_1, dt);
    myChart.setBounds(4, 20, "88%", "80%");
    myChart.addMeasureAxis("x", "sum");
    var y = myChart.addCategoryAxis("y", "supplier");
    y.hidden = true;
    supplierChartSeries = myChart.addSeries("supplier", dimple.plot.bar);

    myChart.defaultColors = [
      new dimple.color("#3498db", "#2980b9", 1), // blue
    ];

或 system.time({ m1 <- t(df1) which(m1[,1]==m1[,2])}) # user system elapsed # 0.31 0.00 0.31

unlist

数据

 system.time(which(unlist(df1[1,])==unlist(df1[2,])))
 #   user  system elapsed 
 #  1.175   0.002   1.177