library(ggiraph)
## Loading required package: ggplot2
y1<- sample(seq(-170,170,by=10),18)
x1<-c()

for(i in 1:18){
  x1[i]<- sample(1:((190-sign(y1[i])*y1[i])/20) ,1)
}

y2<- sample(seq(-170,170,by=10),18)
x2<-c()

for(i in 1:18){
  x2[i]<- sample(1:((190-sign(y2[i])*y2[i])/20) ,1)
}

y3<- sample(seq(-170,170,by=10),18)
x3<-c()

for(i in 1:18){
  x3[i]<- sample(1:((190-sign(y3[i])*y3[i])/20) ,1)
}

y4<- sample(seq(-170,170,by=10),18)
x4<-c()

for(i in 1:18){
  x4[i]<- sample(1:((190-sign(y4[i])*y4[i])/20) ,1)
}


dane<-data.frame(
  y=c(seq(10,170, by=20),seq(-170,-10, by=20)),
  z=c("A","B","C","D","E","F","G","H","I","I","H","G","F","E","D","C","B","A"),
  w=c("Choinka","Swieta","Prezenty"," Boze Narodzenie","Pierwsza gwiazdka","Snieg",
      "Wigilia","Mikolaj","Nowy Rok","Sylwester","Pasterka","Rozga","Balwan","Renifery","Sanki",
      "Szopka","Dzwoneczki","Pierniki"),
  x=c(9:1,1:9),
  y1=y1,
  x1=x1,
  y2=y2,
  x2=x2,
  y3=y3,
  x3=x3,
  y4=y4,
  x4=x4
  
)

p<- ggplot(dane, aes(x=x,y=y,  fill=z))+
  geom_bar_interactive(stat="identity",width=0.7)+
  coord_flip()+
  scale_fill_brewer(palette = "Greens")+
  theme_classic()+
  theme(axis.line=element_blank(),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        panel.border=element_blank(),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        plot.background=element_blank())+
  geom_point_interactive(aes(y=c(y[1:9]-5, y[10:18]+5), tooltip =w), color="red", size=3)+
  geom_point_interactive(aes(y=0, x=9.5), shape=8, color="gold", size=5)+
  geom_point_interactive(aes(y=0, x=0.3), shape=15, color="brown", size=12)+
  geom_point_interactive(aes(y=-55, x=0.3), shape=15, color="deepskyblue", size=15)+
  geom_point_interactive(aes(y=70, x=0.3), shape=15, color="lightcoral", size=15)+
  geom_point_interactive(aes(y=-128, x=0.3), shape=15, color="gold4", size=15)+
  geom_point_interactive(aes(y=148, x=0.3), shape=15, color="pink", size=15)+
  geom_point_interactive(aes(y=-55, x=0.3), shape=12, color="blue", size=15)+
  geom_point_interactive(aes(y=70, x=0.3), shape=12, color="red", size=15)+
  geom_point_interactive(aes(y=-128, x=0.3), shape=12, color="gold", size=15)+
  geom_point_interactive(aes(y=148, x=0.3), shape=12, color="purple", size=15)+
  geom_point_interactive(aes(y=y1, x=x1, tooltip =w), size=3, color="gold")+
  geom_point_interactive(aes(y=y2, x=x2-0.2, tooltip =w), size=3,  color="red")+
  geom_point_interactive(aes(y=y3, x=x3+0.2, tooltip =w), size=3, color="blue")+
  geom_point_interactive(aes(y=y4, x=x4, tooltip =w), size=3,  color="purple")

ggiraph(code = print(p))