I made this plot in order to make clearer what this circle is.
you can keep the things you like and try stuff by yourself.
otherwise this would be like replicating an image challenge...
Show[Graphics[{Line[{{-2, 0}, {2, 0}}], Green, Circle[{0, 1}], Red,
Line[{{0, 0}, {1, 1}}], Line[{{0, 0}, {1, 0}}],
Line[{{0, 0}, {1, 1/4}}], Line[{{0, 0}, {1, 4}}],
Line[{{-1, 1}, {1, -1}}], Line[{{-1, 1/4}, {1, -1/4}}],
Line[{{-1, 4}, {1, -4}}], Purple, Line[{{1, 5}, {1, -5}}], Black,
Text[Style["4", 15], {1.2, 4}], Point[{1, 4}],
Text[Style["1", 15], {1.2, 1}], Point[{1, 1}],
Text[Style["1/4", 15], {1.2, 1/4}], Point[{1, 1/4}],
Text[Style["-4", 15], {1.2, -4}], Point[{1, -4}],
Text[Style["-1", 15], {1.2, -1}], Point[{1, -1}],
Text[Style["-1/4", 15], {1.2, -1/4}], Point[{1, -1/4}],
Text[Style["0", Purple, 20], {-.1, -0.2}],
Text[Style["4", Purple, 20], {0.4, 2.05}],
Point[{0.470588, 1.88235}],
Text[Style["-4", Purple, 20], {-0.35, 2.05}],
Point[{-0.470588, 1.88235}],
Text[Style["-1", Purple, 20], {-1.2, 1}], Point[{-1, 1}],
Text[Style["\!\(\*
StyleBox[\"\[PlusMinus]\", \"OperatorCharacter\"]\)\[Infinity]",
Purple, 20], {0, 2.1}],
Text[Style["+\[Infinity]", 20], {1.2, 5}],
Text[Style["-\[Infinity]", 20], {1.2, -5}], Point[{-1, 1}]},
AxesStyle -> Black]]
Here is also the basics for making the image you want..
t1 = "" <> ToString /@ # & /@ Tuples[{0, 1}, 3];
t2 = {"0 ", "1/4", "1 ", "4 ", "\[PlusMinus]\[Infinity]", "-4",
"-1", "-1/4"};
Graphics[{Green, Thick,
Circle[], {Arrowheads[.1],
Arrow[{{0.2, 0.98}, {0.01, 1}}]}, {Arrowheads[.1],
Arrow[{{-0.2, 0.98}, {0.01, 1}}]}, Black, PointSize[Large],
Point[c = CirclePoints[{1, 4.7}, 8]],
Table[Text[Style[t2[[i]] <> " " <> t1[[i]], 15], c[[i]],
Automatic, c[[i]]], {i, 8}]}]