使用grep获取数据帧的行，而不是行号

Question

我正在尝试基于已经存在的数据帧创建子数据帧。我的子数据框正在填充行数而不是行本身。

rates = read.csv("file.txt") 
genes = unique(gsub('_[0-9]+', '', rates[,1])) 
for (k in unique(gsub('_[0-9]+', '', rates[,1]))){ 
     sub = print(grep(k, rates[,1]), value=T) 
     sub 
} 

file.txt的

clothing,freq,temp 
coat_1,0.3,10 
coat_1,0.9,0 
coat_1,0.1,20 
coat_2,0.5,20 
coat_2,0.3,15 
coat_2,0.1,5 
scarf,0.4,30 
scarf,0.2,20 
scarf,0.1,10 

这是目前输出

[1] 1 2 3 4 5 6 
[1] 7 8 9 

，我想这样的事情，而不是

clothing freq temp 
1 coat_1 0.3 10 
2 coat_1 0.9 0 
3 coat_1 0.1 20 
4 coat_2 0.5 20 
5 coat_2 0.3 15 
6 coat_2 0.1 5 

    clothing freq temp 
1 scarf 0.4 30 
2 scarf 0.2 20 
3 scarf 0.1 10 

Answer 1

rates <- read.csv("file.txt", stringsAsFactors = FALSE) 
rates 
# clothing freq temp 
# 1 coat_1 0.3 10 
# 2 coat_1 0.9 0 
# 3 coat_1 0.1 20 
# 4 coat_2 0.5 20 
# 5 coat_2 0.3 15 
# 6 coat_2 0.1 5 
# 7 scarf 0.4 30 
# 8 scarf 0.2 20 
# 9 scarf 0.1 10 

rates[rates$clothing != "scarf",] 
# clothing freq temp 
# 1 coat_1 0.3 10 
# 2 coat_1 0.9 0 
# 3 coat_1 0.1 20 
# 4 coat_2 0.5 20 
# 5 coat_2 0.3 15 
# 6 coat_2 0.1 5 
rates[rates$clothing == "scarf",] 
# clothing freq temp 
#7 scarf 0.4 30 
#8 scarf 0.2 20 
#9 scarf 0.1 10