наложить гистограммы с помощью параметра заполнения - PullRequest
Новая
       40

наложить гистограммы с помощью параметра заполнения

0 голосов
/ 04 ноября 2018

Я хотел бы создать график, показывающий, как часто каждый тип события отвечает за сокращение каждого вида.

Всего у меня 9 видов и 8 событий. Я хотел бы исправить события, такие как различные группы баров (заливка) и виды на оси абсцисс, как показано на рисунке ниже.

Я создал следующий скрипт, но получаю это сообщение об ошибке

Ошибка: StatBin требует непрерывной переменной x, а переменная x является дискретной. Возможно, вы хотите stat = "count"?

У кого-нибудь есть какие-либо предложения о том, как сделать правильный скрипт? Большое спасибо заранее 

library(ggplot2)
event <- factor(Dataset, levels = c("A", "B", "C", "D", "E", "F", "G",  "H"))
ggplot(Dataset) +
  geom_histogram(aes(x=specie, fill=event), 
                 colour="grey50", alpha=0.5, position="identity")

данные 

Dataset <- structure(list(specie = structure(1:9, .Label = c("Hipp_amph", 
"Hipp_eq", "Phil_mont", "Pota_larv", "Red_aru", "Sylv_grim", 
"Sync_caf", "Trag_oryx", "Trag_scri"), class = "factor"), A = c(2.97029703, 
0, 13.86138614, 12.87128713, 0, 17.82178218, 2.97029703, 0, 0.99009901
), B = c(0, 7.920792079, 55.44554455, 51.48514851, 33.66336634, 
27.72277228, 33.66336634, 15.84158416, 62.37623762), C = c(0, 
5.940594059, 0.99009901, 8.910891089, 2.97029703, 0, 10.89108911, 
4.95049505, 21.78217822), D = c(0, 0, 0, 0.99009901, 0, 0, 0, 
0, 0), E = c(16.83168317, 28.71287129, 74.25742574, 100, 40.59405941, 
32.67326733, 89.10891089, 27.72277228, 86.13861386), F = c(6.930693069, 
0, 10.89108911, 42.57425743, 0, 0, 7.920792079, 0, 2.97029703
), G = c(0, 0, 0, 0.99009901, 0, 0, 0, 0, 0), H = c(0, 4.95049505, 
1.98019802, 1.98019802, 15.84158416, 0, 19.8019802, 0, 1.98019802
)), .Names = c("specie", "A", "B", "C", "D", "E", "F", "G", "H"
), class = "data.frame", row.names = c(NA, -9L))

enter image description here

1 Ответ

0 голосов
/ 04 ноября 2018

Проблема действительно в том, что вы пытаетесь передать фактор / символьную переменную по оси x, которая в этом случае требует числовых значений.

Вы можете попробовать следующее с вашим фреймом данных и сделать решетку с specie; либо это, либо вы жертвуете заполнением баров event (A, B и т. д.) и помещаете specie в fill.

Более того, прежде всего необходимо собрать данные в длинном формате, чтобы можно было передать их в aes. 

library(tidyverse)

Dataset <- Dataset %>% gather(event, value, 2:9)

ggplot(Dataset) + 
  geom_histogram(aes(x=value, fill=event), colour="grey50", alpha=0.5, position="identity") + 
  facet_wrap(~ specie)
...