The medpol() function from package EDA applies median polish to tables. The function result is a an object containg effects and residuals, as well as other values. The plot() function has a method to produce a plot with the comparision values (Tukey's additivity plot): plot(med.d) (running the example code) produces the chart you can see by clicking on the paperclip.

plot2way() [LearnEDA] produces a similar graph directly..