Мне нужно сделать гистограмму или гистограмму, включающую 3 переменные.Переменная «Блок» должна быть в опции facet_grid.На оси абсцисс должна быть переменная H18SkaBet.А на оси у H18Скада.Контейнеры должны представлять в целом H18 SkaBet каждого блока и укладываться вместе с H18Skada.Это должен быть в основном график в виде кода, только в процентах.
ggplot(ThuSve, aes(H18SkaBet, fill = factor(H18Skada), colors= H18Skada)) +
geom_histogram(binwidth = 0.5)+
facet_grid(~Block, labeller=labeller(Block = labels))+
scale_x_continuous((name="Damage severity"))+
scale_y_continuous(name="Number of seedlings")+
theme_dark()+
scale_fill_manual(values = c("#CCFF99","#CCCCCC","#CCFFFF","#CC9966","#33CC99", "#339900", "#FF0033", "#666666"),
name ="Damage cause",
breaks=c("0", "1","2","3", "4", "5", "6","7","8", "9"),
labels=c("No Damage", "Fungus","Frost", "Drought", "Winter dessication", "Vegetation", "Game","Insects", "Pine Weevil", "Other/Unknown"),
aesthetics = "fill")