Добавить пробелы по оси X - PullRequest
Новая
       21

Добавить пробелы по оси X

0 голосов
/ 25 октября 2019

Я строю месячные временные ряды изобилия, используя гистограмму, и есть несколько месяцев, когда у меня нет данных для отображения. Можно добавить пробелы у категорической оси X?

Это мои данные: 

library(dplyr)
library(ggplot2)

structure(list(spp = structure(c(9L, 10L, 1L, 2L, 3L), .Label = c("sp10", "sp15", "sp16", "sp20", "sp21", "sp22", "sp23", "sp24", "sp8", "sp9"), class = "factor"), abundance = c(0, 0, 0, 0, 11.19404656), estation = c(5L, 5L, 5L,5L, 5L), year = c(1995L, 1995L, 1995L, 1995L, 1995L), month = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c("abr", "dic", "ene", "feb"), class = "factor"), date = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c("abr-96", "dic-95", "ene-96", "feb-96"), class = "factor")), row.names = c(NA, 5L), class = "data.frame")

subset_group <- subset %>% group_by(date,spp) %>% summarize(sum_pl = sum(abundance))

ggplot(subset_group, aes(x = date, y = sum_pl, fill = spp)) + geom_bar(stat = "identity") + scale_x_discrete(labels = c("dic-95" = "D", "ene-96" = "E", "feb-96" = "F", "M", "abr-96" = "A"))

Я использовал scale_x_discrete (), но без положительных результатов.

...