Вы можете просмотреть код из seqLogo:
> library(seqLogo)
> seqLogo
function (pwm, ic.scale = TRUE, xaxis = TRUE, yaxis = TRUE, xfontsize = 15, yfontsize = 15)
{
if (class(pwm) == "pwm") {
pwm <- pwm@pwm
}
...
}
<environment: namespace:seqLogo>
>
Там есть параметры, управляющие рендерингом, которые вы можете настроить, отредактировав код функции. См. этот SO-ответ , чтобы узнать о функции fix()
.