https://github.com/rrmn/r-equality-table
https://github.com/rrmn/r-equality-table
Last synced: 5 months ago
JSON representation
- Host: GitHub
- URL: https://github.com/rrmn/r-equality-table
- Owner: rrmn
- Created: 2024-01-08T16:29:09.000Z (over 2 years ago)
- Default Branch: main
- Last Pushed: 2024-01-08T17:05:26.000Z (over 2 years ago)
- Last Synced: 2025-01-21T00:49:49.743Z (over 1 year ago)
- Size: 6.84 KB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
Equality in R is mostly straightforward, but sometimes it's not. Take care.
### Example
```
0 == 0 --> ✅ 𝗧𝗥𝗨𝗘
0 == "0" --> ✅ 𝗧𝗥𝗨𝗘
0 == FALSE --> ✅ 𝗧𝗥𝗨𝗘
𝗯𝘂𝘁:
FALSE == "0" --> ❌ 𝗙𝗔𝗟𝗦𝗘
```
### Thanks
Thanks to [dorey](https://github.com/dorey) for the [idea](https://github.com/dorey/JavaScript-Equality-Table).
### Comparison Table
### Code
```
# sorry for the hacky code :-)
x_labels <- c(
"FALSE", "F", "0", "\"0\"", "0L", "\"0L\"", "0.0", "\"0.0\"", "0.0L", "\"0.0L\"", "list(0)", "c(0)",
"TRUE", "T", "1", "\"1\"", "1L", "\"1L\"", "1.0", "\"1.0\"", "1.0L", "\"1.0L\"", "list(1)", "c(1)",
"NA", "NULL", "NaN",
"Inf", "-Inf"
)
res_v <- vector(mode = "character", length = length(x_labels) ^ 2)
res_comp <- vector(mode = "character", length = length(x_labels) ^ 2)
for (i in 1:length(x_labels)) {
for (j in 1:length(x_labels)) {
r <- tryCatch(
expr = {
as.character(eval(rlang::parse_expr(x_labels[i])) == eval(rlang::parse_expr(x_labels[j])))
},
error = function(e) {
"Not implemented"
}
)
if (length(r) == 0) {
r <- "logical(0)"
}
if (is.na(r)) {
r <- "NA"
}
res_v[((i - 1) * length(x_labels)) + j] <- r
}
}
res_df <- tibble(x = x_labels) %>%
crossing(tibble(y = x_labels)) %>%
ungroup() %>%
# arrange(match(x, x_labels), match(y, x_labels)) %>%
mutate(
x = factor(x),
y = factor(y)
) %>%
group_by(x) %>%
mutate(
xmax = cur_group_id(),
xmin = xmax - 1
) %>%
ungroup() %>%
group_by(y) %>%
mutate(
ymax = cur_group_id(),
ymin = ymax - 1
) %>%
ungroup() %>%
mutate(
c = factor(res_v, levels = c("TRUE", "FALSE", "NA", "logical(0)", "Not implemented"))
)
ggplot(res_df) +
geom_rect(
aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = c),
color = "#111111",
alpha = 0.7,
stat = "identity"
) +
theme(
legend.title = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), panel.background = element_blank(),
axis.line = element_line(colour = "black")
) +
scale_fill_manual(values = c("#06d6a0", "#ef476f", "#8d99ae", "#118ab2", "#073b4c")) +
scale_y_continuous(expand=c(0,0), breaks = 1:length(x_labels) - 0.5, labels = x_labels) +
scale_x_continuous(expand=c(0,0), breaks = 1:length(x_labels) - 0.5, labels = x_labels)
```