A very rough example:
library(ggplot2)
DF <- data.frame(X=sample(1:50,50,replace=TRUE),
Y=sample(1:10,50,replace=TRUE),
Col=sample(LETTERS[1:10],50,replace = TRUE))
ggplot(DF,aes(x=X,y=Y,fill=Col,width=0.5,height=0.5))+geom_tile()+
coord_polar()+scale_x_continuous(breaks = 1:50)

Created on 2022-01-19 by the reprex package (v2.0.1)