Smart diagram in Mathematica

Question

I am wondering if I can get a smart diagram in Mathematica like the following one obtained with LaTeX

found here

http://www.texample.net/tikz/examples/pdca-cycle/

and modified here

https://tex.stackexchange.com/questions/487891/modifying-the-colors-of-arcarrow

I could do it from scratch. I just want to find out if there are any built-in functionalities for such purposes. Thanks a lot.

Answer 1

You can get most of the way there with just PieChart:

PieChart[{{
   Labeled[1, 
    Style["PDCA\nCycle", Large, 
     TextAlignment -> Center], {{0, 0}, {.4, .5}}]
   }, Labeled[1, Style[#, Larger]] & /@ {"Plan", "Do", "Check", 
    "Act"}}]