Раскрашивание гистограммы с использованием непрерывной переменной - фактор не работает

library(tidyverse)
library(poliscidata)

world_red <- world %>% group_by(dem_level4) %>% summarize(number_of_countries = n(), oil=sum(oil, na.rm = TRUE))

colors <- c("green", "blue", "orange", "red")
p1 <- ggplot(data = world_red) + 
        aes(x = reorder(dem_level4, -oil) , y = oil, 
            fill = factor(number_of_countries) ) +
        geom_col() + 
        scale_fill_manual(values = colors) 

Переменная «мир» является частью загруженного пакета.

В этом коде нет сообщения об ошибке, но легенда выглядит как «фактор(количество_стран»), но, конечно, это должно быть только «количество_стран». Как я могу этого добиться?

Просто пишу

fill = number_of_countries)  +

без вызова фактора () приводит к сообщению об ошибке «Непрерывное значение, подаваемое на дискретную шкалу»

3 метода стилизации элементов HTML
3 метода стилизации элементов HTML
Когда дело доходит до применения какого-либо стиля к нашему HTML, существует три подхода: встроенный, внутренний и внешний. Предпочтительным обычно...
Формы c голосовым вводом в React с помощью Speechly
Формы c голосовым вводом в React с помощью Speechly
Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...
Flatpickr: простой модуль календаря для вашего приложения на React
Flatpickr: простой модуль календаря для вашего приложения на React
Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....
В чем разница между Promise и Observable?
В чем разница между Promise и Observable?
Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.
1
0
34
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

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

Вы можете добавить аргумент name в scale_fill_manual:

p1 <- ggplot(data = world_red) + 
  aes(x = reorder(dem_level4, -oil) , y = oil, 
      fill = factor(number_of_countries) ) +
  geom_col() + 
  scale_fill_manual(name = "number_of_countries", values = colors)

Или вы можете добавить строку labs, а затем дать новое имя fill. Вы также можете обновить метки осей x и y здесь (что я сделал ниже).

library(tidyverse)

p1 <- ggplot(data = world_red) + 
  aes(x = reorder(dem_level4, -oil) , y = oil, 
      fill = factor(number_of_countries) ) +
  geom_col() + 
  scale_fill_manual(values = colors) +
  labs(fill='number_of_countries',
       y = "Oil", 
       x = "dem_level4")

Выход

enter image description here

Другие вопросы по теме