Изменить tibble, чтобы использовать лучшие метки фасетов

Я прикрепил пример кода ниже. a является категориальной переменной с 0 и 1, но количество уровней фактора может быть динамическим.

Кто-нибудь, пожалуйста, измените таблицу, чтобы добавить еще один столбец со значениями a = 0 и a = 1. Чтобы я мог использовать этот столбец для фасетирования в ggplot для улучшения маркировки фасетов.
Также измените последовательность фасетов в ggplot, т.е. панель a = 1 должна быть выше a = 0

Спасибо

library(tidyverse)

# continuous variables
x1 <- seq(-5, 5, 0.1)

# compute y1
error_term <- runif (1, min = -2, max = 2)
y1 <- 1/(1 + exp(-x1 + error_term))

# compute y2
error_term <- runif (1, min = -2, max = 2)
y2 <- 1/(1 + exp(-x1 + error_term))

# merge x and y
y <- c(y1, y2)
x <- c(x1, x1)

# categorical variable
a <- c(rep(0, 101), rep(1, 101))

# tibble 
tbl <- tibble(x, a, y)

# GGPLOT ---------------------------------------------------------------------
p <- ggplot(data = tbl,
                    aes(x = x,
                        y = y,
                        color = factor(a))) + 
  geom_line() + 
  theme_bw() +
  facet_grid(a ~ .) +
  theme(legend.position = "none")

r dplyr

22.12.2020 18:34

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это может быть достигнуто так:

Установите порядок с помощью levels аргумента factor
Измените метки с помощью labels аргумента factor

library(tidyverse)

# continuous variables
x1 <- seq(-5, 5, 0.1)

# compute y1
error_term <- runif (1, min = -2, max = 2)
y1 <- 1/(1 + exp(-x1 + error_term))

# compute y2
error_term <- runif (1, min = -2, max = 2)
y2 <- 1/(1 + exp(-x1 + error_term))

# merge x and y
y <- c(y1, y2)
x <- c(x1, x1)

# categorical variable
a <- c(rep(0, 101), rep(1, 101))

# tibble 
tbl <- tibble(x, a, y)

tbl <- mutate(tbl, a = factor(a, levels = c(1, 0), labels = paste0("a = ", c(1, 0))))

ggplot(data = tbl,
            aes(x = x,
                y = y,
                color = a)) + 
  geom_line() + 
  theme_bw() +
  facet_grid(a ~ .) +
  theme(legend.position = "none")