Skip to content

Commit

Permalink
Don't restore the levels
Browse files Browse the repository at this point in the history
  • Loading branch information
Yunuuuu committed Jan 10, 2025
1 parent d54635f commit f6f2083
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions R/fortify-data-frame.R
Original file line number Diff line number Diff line change
Expand Up @@ -90,13 +90,10 @@ fortify_data_frame.matrix <- function(data, ...) {
rlang::check_dots_empty()
row_nms <- vec_names(data)
col_nms <- colnames(data)
lvls <- ggalign_lvls_get(data)
value <- c(data)
if (!is.null(lvls)) value <- factor(value, levels = lvls)
data <- new_data_frame(list(
.row_index = vec_rep(seq_len(nrow(data)), ncol(data)),
.column_index = vec_rep_each(seq_len(ncol(data)), nrow(data)),
value = value
value = c(data)
))
if (!is.null(row_nms)) data$.row_names <- row_nms[data$.row_index]
if (!is.null(col_nms)) data$.column_names <- col_nms[data$.column_index]
Expand Down

0 comments on commit f6f2083

Please sign in to comment.