Consegui da seguinte forma:
freq_absoluta = table(func_t$civil)
freq_relativa = prop.table(freq_absoluta)*100
rotulos <- c("solteiro","casado")
rotulos <- paste(rotulos, freq_relativa)
rotulos <- paste(rotulos, "%" , sep = " ")
pie(freq_relativa, labels = rotulos)
Bom dia José, tudo bem? Espero que sim!
Desculpe pela demora em retornar.
Obrigado por compartilhar aqui o modo que conseguiu resolver. De fato, o que precisa ser passado para o rotulo e para o pie é a freq_relativa.