Для будущих вопросов распечатайте результат dput (fdr). Это немного облегчит ответ другим.
Рассмотрите возможность использования formattable package.
formattable(df, list(
pi = formatter("span", style = x ~ ifelse(x < 0.05, style(color = "red", font.weight = "bold"), NA)),
pd = formatter("span", style = x ~ ifelse(x < 0.05, style(color = "red", font.weight = "bold"), NA)),
aa = formatter("span", style = x ~ ifelse(x < 0.05, style(color = "red", font.weight = "bold"), NA)),
ef = formatter("span", style = x ~ ifelse(x < 0.05, style(color = "red", font.weight = "bold"), NA))
))
Результат выглядит следующим образом:
Это не в полной мере добиться того, что вы хотите (с точки зрения окраски клеток). Но кажется, что вы пытались выделить конкретные случаи (< 0.05), и это определенно отражает это.
Вам нужно будет расширить это довольно много. «Раскрашивание ячеек в кадре данных» - это своего рода бессмысленная концепция в R, если вы не говорите о отображении фрейма данных в таблице HTML или не экспортируете его в какой-либо другой конкретный формат, который поддерживает таблицу, такую как интерфейс. И в этих случаях вам нужно будет объяснить, как именно вы собираетесь просматривать данные, какие пакеты вы используете и т. Д. – joran
Я использую функцию grid.table и функцию heatmap.2. –
Хорошо, тогда в дополнение к варианту ниже рассмотрим вопрос [это] (http://stackoverflow.com/q/18663159/324364), может быть? Или [это] (http://stackoverflow.com/q/23819209/324364), или [это] (http://stackoverflow.com/q/18414001/324364)? – joran