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))