我有以下内容dataframe
:
> View(AuthorsMM)
Autor # Sentiment
1 Autor 1 33 J
2 Autor 2 33 J
3 Autor 3 22 K
4 Autor 4 18 L
5 Autor 5 16 L
6 Autor 6 15 K
7 Autor 7 15 L
8 Autor 8 15 K
9 Autor 9 15 K
10 Autor 10 14 K
我正在使用该包ReporteRs
将这个 data.frame 发送flextable
到 Powerpoint:
AuthorsMM_ft <- FlexTable( data = head(AuthorsMM,10), header.columns = TRUE )
我使用以下文本属性定义情感列:
AuthorsMM_ft[, 3] = textProperties( color = 'white', font.weight = 'bold', font.family = 'Wingdings', font.size = 12 )
这使得 Powerpoint 根据列的内容显示不同的表情符号(因为 Wingdings trueType)。
但是,我想根据内容对文本另外应用不同的颜色(绿色、黄色、红色)。所以:
if (Sentiment == "J") then textProperties( color = 'green' , font.weight = 'bold', font.family = 'Wingdings', font.size = 12 )
if (Sentiment == "K") then textProperties( color = 'yellow' , font.weight = 'bold', font.family = 'Wingdings', font.size = 12 )
if (Sentiment == "L") then textProperties( color = 'red' , font.weight = 'bold', font.family = 'Wingdings', font.size = 12 )
使用这个包可以吗?