Plot combining regression coefficients (partial derivatives) with CIs in R, lincom + coefplot?

Question

Most of the time we run a regression with interactive terms, we are interested in a partial derivative. For example, consider the model below,

If I am interested