我有一个看起来像情感词典的数据集。
说数据如下:
sentiment <-read.table(header=TRUE,text='
term score
awesome 3
good 0
interesting 2
power 1
bad -1
horrible -2
worst -3' )
我想通过score
将此数据转换为列表列表。如下所示(列表名称可以不同):
$pos3
[1] awesome
$pos2
[1] interesting
$pos1
[1] power
$zero
[1] good
$neg1
[1] bad
$neg2
[1] horrible
$neg3
[1] worst
其他解决方案建议使用dlply
:
dlply(sentiment, .(score), c)
但这会产生我不想要的score
个列表。所以我最终使用了如下的愚蠢代码:
list(neg3=sentiment$term[sentiment$score==-3],neg2=sentiment$term[sentiment$score==-2],
neg1=sentiment$term[sentiment$score==-1],zero=sentiment$term[sentiment$score==0],
pos1=sentiment$term[sentiment$score==1], pos2=sentiment$term[sentiment$score==2],
pos3=sentiment$term[sentiment$score==3])
但我想知道是否有更好的方法来做到这一点。
如何在不生成我不想要的列表的情况下将数据框转换为列表列表?