Plot[ {100, 100 * ((Re[ 3 f^2 PolyLog[ 2, Exp[ f ] ] - 6 f PolyLog[ 3, Exp[ f ] ] + 6 PolyLog[ 4, Exp[ f ] ] - 1/4 * f^4 + f^3 * Log[ Exp[ f ] - 1 ] ] * 15 / (Pi)^4) - 1)}, { f, 0, 12 } ]