P2 = -((-112 \[Pi] r^10 + 6 \[Pi]^2 (4 r^8 + r^10 (0.2` + r^2)))/(
8 \[Pi]^3 r^14))
T2 = (224 \[Pi] r^10 - 6 \[Pi]^2 (12 r^8 + r^10 (0.4` + r^2)))/(
12 \[Pi]^3 r^11 (0.4` + r^2))
Show[ListLinePlot[Table[{P2, T2}, {r, 0.01, 10, 0.001}],
PlotRange -> {{0, 0.21}, {0, 0.20}}]]
这是是个例子，下面是我自己写的函数，但是不能确定范围
P2 = (-6 r - 3 r^2 +
Sqrt[3] Sqrt[r^2 (12 + 10 r + 24 \[Pi] r + 3 r^2)])/(16 \[Pi] r^3)
T2 = (-2 r + r^2 +
Sqrt[3] Sqrt[r^2 (12 + 10 r + 24 \[Pi] r + 3 r^2)])/(8 \[Pi] r^2)
Show[ListLinePlot[Table[{P2, T2}, {r, X, X, X}],
PlotRange -> {{0, X}, {0, Y}}]]
就是如何确定X，Y，还有r的取值，可以画出和第一个类似的图

没什么特别好的办法。非要说的话，就是把PlotRange改成All，然后慢慢调r的范围。还有这个问题完全可以用ParametricPlot来画。