Блог

Главная - Вопросы по программированию - Как добавить вручную вектор дискретной цветовой заливки ggmap

Как добавить вручную вектор дискретной цветовой заливки ggmap

#r #ggplot2 #fill #ggmap

Вопрос:

Цвета по умолчанию недостаточно дискретны. Мне нужно указать свой собственный цветовой вектор. Любые идеи о том, возможно ли это, так как я уже указал scale_fill_discrete. Я не смог заставить scale_fill_manual работать в этом случае.

В идеале 2 легенды должны быть объединены с легендой размера пузырька, получающей соответствующий цвет заливки и имеющей название «Суперрегион», указанное рядом с пузырьком, и, возможно, даже процент генетического сходства, указанный рядом с ним, но я понимаю, что, возможно, это растянуто, не прибегая к добавлению таблицы на карту.

Мой выходной график показан ниже, наложенный на карту мира местности.

 results <- read.csv("A.csv")
map_K30 <- ggmap(get_googlemap(center = c(lon=180.000, lat=36.659), zoom=2, maptype = 'terrain', color = 'color'))   
  geom_point(data = results, aes(x = lon, y = lat, size = Genetic_Similarity, fill= Super_Region), shape = 21, alpha = .8,)  
  scale_size_area(max_size = 15)   scale_fill_discrete(guide = guide_legend(override.aes = list(size = 4)))

Выходной мировой график

Комментарии:

1. scale_fill_discrete Замените scale_fill_manual и установите нужные цвета с помощью values аргумента the.

2. Спасибо, но разве я не отказался бы от контроля над размером символов цвета легенды, если бы сделал это ? (Символы станут крошечными)

3. Ноп. Конечно, вы все еще могли бы использовать guide = guide_legend(override.aes = list(size = 4)) scale_fill_manual его .

4. …. геом_поинт(данные = результаты, aes(x = lon, y = lat, размер = генетическое сходство, заполнение= суперрегион), форма = 21, альфа = .8,) область масштабирования(max_size = 15) масштаб заполнения_мануальные(значения=c(«зеленый», «синий»,»серый», «желтый»,»оранжевый»,»фиолетовый», «красный»,»черный», «фиолетовый»), разрывы=c(0,1,2,3,4,5,6,7,8)) руководство = guide_legend(переопределение.aes = список(размер = 8)) Я получаю ошибку: Ошибка в map_K30 <- ggmap(get_googlemap(center = c(lon = 180, широта = 36.659), : не удалось найти функцию «<-

5. Используйте его в качестве аргумента, как вы сделали в scale_fill_discrete, т. Е. scale_fill_manual(values = ..., breaks = ..., guide = ...)

Метки: