You might be interested in the (algorithms implemented in) the ‘polygonsLabel’ function in the rgeos package in R. See the referance manual for more information.