Oto moje uproszczone dane:

company <-c(rep(c(rep("company1",4),rep("company2",4),rep("company3",4)),3))
product<-c(rep(c(rep(c("product1","product2","product3","product4"),3)),3))
week<-c( c(rep("w1",12),rep("w2",12),rep("w3",12)))

mydata<-data.frame(company=company,product=product,week=week)
mydata$rank<-c(rep(c(1,3,2,3,2,1,3,2,3,2,1,1),3))
mydata=mydata[mydata$company=="company1",]

I kod R, którego użyłem:

ggplot(mydata,aes(x = week,fill = as.factor(rank))) +
geom_bar(position = "fill")+
scale_y_continuous(labels = percent_format())

Na wykresie słupkowym chcę oznaczyć procent za tydzień, według rangi. Problem polega na tym, że dane nie mają procentowej rangi. A struktura tych danych nie nadaje się do ich posiadania. (oczywiście oryginalne dane mają znacznie więcej obserwacji niż przykład)

Czy jest ktoś, kto może mnie nauczyć Jak mogę oznaczyć procent na tym wykresie?