小编eok*_*eok的帖子

我想看看将因子值转换为数值的地方。我试图通过简单地print在各处添加语句来实现这一点。

geom_tile2 <- function(mapping = NULL, data = NULL,
                      stat = "identity2", position = "identity",
                      ...,
                      na.rm = FALSE,
                      show.legend = NA,
                      inherit.aes = TRUE) {
  layer(
    data = data,
    mapping = mapping,
    stat = stat,
    geom = GeomTile2,
    position = position,
    show.legend = show.legend,
    inherit.aes = inherit.aes,
    params = list(
      na.rm = na.rm,
      ...
    )
  )
}

GeomTile2 <- ggproto("GeomTile2", GeomRect,
  extra_params = c("na.rm", "width", "height"),

  setup_data = function(data, params) {
    print(data)

    data$width <- data$width %||% params$width …

我觉得这应该很容易,但我无法弄清楚..

假设我有两张桌子

  x y
1 1 2
2 2 3
3 3 4

和

   x y
1  4 2
2 16 1
3  5 1
4  5 3

我想找到行数之间的差异(这里是4-3).

我试过了

ALTER TABLE table1 ADD COLUMN TBL CHAR DEFAULT "Table 1";
ALTER TABLE table2 ADD COLUMN TBL CHAR DEFAULT "Table 2";

SELECT COUNT(*)
FROM
  (SELECT *
   FROM table1
   UNION SELECT *
   FROM table2 )
GROUP BY TBL ;

这确实给了我个别行数,但......不是差别.