Как обнаружить и отобразить изменения?

Question

В примере фрейма данных:

dframe <- structure(list(id = c(14768L, 18180L), col1 = c(-0.6084, -0.3227
), col2 = c(-1.4887, -1.1797), col3 = c(3.8402, 3.0491), col4 = c(-1.8265, 
-1.3248), col5 = c(0.4078, 0.7862), col1_new = c(-0.4582, -0.2094
), col2_new = c(-1.3878, -1.5926), col3_new = c(3.3112, 3.2756
), col4_new = c(-1.6242, -1.2361), col5_new = c(0.5014, 0.5925
)), class = "data.frame", row.names = c(NA, -2L))

Как можно определить для всех уникальных идентификаторов, есть ли изменения, увеличенные или уменьшенные для каждой пары имя столбца, например, col1 - col1_new

Answer 1

Во-первых, полезно преобразовать в более удобный длинный формат, используя data.table::melt. Затем мы можем просто вычислить разницу и добавить новый столбец, указывающий увеличение или уменьшение.

library(data.table)
library(tidyverse)

setDT(dframe)

# take each pair of original and new values, and move each pair from columns 
# to their own row (with two columns, "current" and "new"
dframe_new <- melt(dframe, id.var = "id", measure = patterns("\\d$", "new$"), 
    value.name = c("current", "new")) %>% 
mutate(
    diff = new-current, 
    Change = case_when(
        diff > 0 ~ "Increase",
        diff == 0 ~ "No Change",
        TRUE ~ "Decrease"
    )
)

      id variable current     new    diff   Change
1  14768        1 -0.6084 -0.4582  0.1502 Increase
2  18180        1 -0.3227 -0.2094  0.1133 Increase
3  14768        2 -1.4887 -1.3878  0.1009 Increase
4  18180        2 -1.1797 -1.5926 -0.4129 Decrease
5  14768        3  3.8402  3.3112 -0.5290 Decrease
6  18180        3  3.0491  3.2756  0.2265 Increase
7  14768        4 -1.8265 -1.6242  0.2023 Increase
8  18180        4 -1.3248 -1.2361  0.0887 Increase
9  14768        5  0.4078  0.5014  0.0936 Increase
10 18180        5  0.7862  0.5925 -0.1937 Decrease

И простой график может быть таким:

ggplot(dframe_new, aes(factor(id), diff, color = Change)) + geom_point()