plotting – ListLogPlot with uncertainties in both coordinates – Around function

I use data sets like this:

data = {{3.17, 2.41*^10}, {4.43, 2.37*^10}, {5.54, 2.27*^10}, 
{6.87, 2.15*^10}, {8.52, 1.98*^10}, {10.5, 1.85*^10}, {13.14, 1.8*^10},
{14.74, 1.81*^10}};

and plot them through ListLogPlot. Now, I would like to add a 10% uncertainty in x and 5% in the y direction. I know, I can use the Around Function for this. Here written by hand:

data2 = {{Around[3.17, Scaled[0.1]], 
Around[2.41*^10, Scaled[0.05]]}, {Around[4.43, Scaled[0.1]], 
Around[2.37*^10, Scaled[0.05]]}, {Around[5.54, Scaled[0.1]], 
Around[2.27*^10, Scaled[0.05]]}, {Around[6.87, Scaled[0.1]], 
Around[2.15*^10, Scaled[0.05]]}, {Around[8.52, Scaled[0.1]], 
Around[1.98*^10, Scaled[0.05]]}, {Around[10.5, Scaled[0.1]], 
Around[1.85*^10, Scaled[0.05]]}, {Around[13.14, Scaled[0.1]], 
Around[1.8*^10, Scaled[0.05]]}, {Around[14.74, Scaled[0.1]], 
Around[1.81*^10, Scaled[0.05]]}};

With ListLogPlot[data2] I get a plot

enter the description of the image here

But is there any way to automate the definition of the data set? My original sets are much bigger, and I have a lot of them … I guess something like Map It can be used.

I am open to any idea. Perhaps there is even a more elegant way directly in the ListLogPlot function.