Czy istnieje sposób ustawiania stałej szerokości dla geom_bar()
w przypadku brakujących danych w poniższym przykładzie szeregów czasowych? Próbowałem ustawić width
w aes()
bez powodzenia. Porównaj od 11 do 11 czerwca szerokość pasków na wykresie poniżej przykładowego kodu.Stała szerokość dla geom_bar w przypadku brakujących danych
colours <- c("#FF0000", "#33CC33", "#CCCCCC", "#FFA500", "#000000")
iris$Month <- rep(seq(from=as.Date("2011-01-01"), to=as.Date("2011-10-01"), by="month"), 15)
colours <- c("#FF0000", "#33CC33", "#CCCCCC", "#FFA500", "#000000")
iris$Month <- rep(seq(from=as.Date("2011-01-01"), to=as.Date("2011-10-01"), by="month"), 15)
d<-aggregate(iris$Sepal.Length, by=list(iris$Month, iris$Species), sum)
d$quota<-seq(from=2000, to=60000, by=2000)
colnames(d) <- c("Month", "Species", "Sepal.Width", "Quota")
d$Sepal.Width<-d$Sepal.Width * 1000
g1 <- ggplot(data=d, aes(x=Month, y=Quota, color="Quota")) + geom_line(size=1)
g1 + geom_bar(data=d[c(-1:-5),], aes(x=Month, y=Sepal.Width, width=10, group=Species, fill=Species), stat="identity", position="dodge") + scale_fill_manual(values=colours)
Jest podobny problem [tutaj] (https://github.com/hadley/ggplot2/issues/235) jednak ma do czynienia tylko z 'stats', które nie mogą obsłużyć parametru width. 'position = 'dodge'' wydaje się mieć takie samo niepowodzenie. Ktoś, kto ma nieco więcej wiedzy o 'ggplot' może chcieć wbić, ale to brzmi jak potencjalny błąd. – Justin
Natknąłem się również na tę kwestię. Dobrze wiedzieć. Na razie użyję poniższego obejścia, wypełniając wartości NA. – tcash21
W swojej odpowiedzi na https://github.com/tidyverse/ggplot2/issues/1776, Hadley mówi: "Tak działa uniki. Możesz spróbować zamiast tego faseta._ BTW, ten problem został już kilkakrotnie skierowany na SO: [tutaj] (http://stackoverflow.com/q/12806260/3817004) i [tutaj] (http: // stackoverflow .com/q/15367762/3817004), np – Uwe