Вот одна возможность:
df$colMax <- apply(df, 1, function(x) max(x[x != 9]))
вы можете добавить этот код в свой css.
.amp-menu>li a:hover{ background: #cc3333; }